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PURPOSE 



THE EXTENDED CORE FUNCTION TEST PROVIDES TWO SPECIAL PATTERN 
TESTS FOR DIAGNOSING INTERMITTENT CORE PROBLEMS. IT SHOULD 
BE USED IF THE CORE FUNCTION TEST, 8CF, FAILS TO PINPOINT 
A PERSISTANT INTERMITTENT PROBLEM. 



2. REQUIREMENTS 



2.1 



2.2 



PROGRAM 

THE 1800 RELOCATABLE DIAGNOSTIC LOADER IS USED TO LOAD THE 
OBJECT DECK OR PAPER TAPE OBJECT PROGRAM. 



EQUIPMENT 

AN 1800 PROCESSOR-CONTROLLER WITH 8 
1802, 1803) 



65K OF MEMORY. (1801, 



A 1442 CARD READ PUNCH OR 1054 PAPER TAPE READER. 

A 1443 OR 1816 OR 1053 PRINTER FOR DIAGNOSTIC MESSAGES. 
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3.1 PROGRAM LOADING 

THE EXTENDED CORE FUNCTION TEST CAN BE LOADED AND EXECUTED ON ANY 
4K WORD BOUNDARY. NORMALLY THE PROGRAM IS IN iTIALfY LOADED AND 

SUSPFcf ,'t If pnl.t^ °%'"' ^'"'"^ ^-'"' "°"^^"-' '^ THE F RST BSM ,S 
^M ?uF:,'L'L'^?."'^'-^ ^° ^^"'^ ^*^^ EXTENDED CORE FUNCTION TEST 
IN THE HI 4K OF ANY BSM BY PATCHING THE RELOCATABLE LOADER. 

rL^^n.^co^cZ ^'^O^"*" 'S ON CARDS, THF MINIH CARD OF 
THE LOADER SHOULD BE REPLACED WITH OKt OF THE FOL'nHING 
CARDS TO ACCOMPLISH RELOCATION - fUL. ,«i.xib 



BSM 


ADDRESS RANGE 
OF BSM 


PATCH CARD 
COLS. 1-10 


1 


/0000-/1FFF 


£0125 17FF 


2 


/2000-/3FFF 


£0125 37FF 


3 


/4000-/5FFF 


£0125 57FF 


4 


/6000-/7FFF 


£0125 77FF 


5 


/8000-/9FFF 


£0125 97FF 


6 


/AO0O-/BFFF 


£0125 B7FF 


7 


/COOO-/DFFF 


£0125 07FF 


8 


/EOOO-/FFFF 


£0125 F7FF 



* IMPORTANT OPERATING INSTRUCTION * 



* 
* 
* 

* 

* 



THE 8 PATCH CARDS SHOWN ABOVE ARE SENT TO THE FIELD * 



SmurrLPprT^L?^^^" ^^^*^- ™^ FIELD ENGINEER 
SHOULD SELECT ONE FOR USE AND REMOVE AND SAVE THE 
OTHER SEVEN DURING OPERATION. THE SFLFCTED PATCH 
f^!L^"°"'-° REMAIN BEFORE THE OBJECT DECK AND THE 
LOADER PLACED IN FRONT OF IT. 



**NOTE - THE PATCH CARDS AFFECT THE LOADER. 
ARE NOT SHOWN IN THE OBJECT DECK LISTING. 



THEY 



» 

* 



IF THE OBJECT PROGRAM IS ON PAPER TAPE, THE RELOCATABLE PAPFR TAPf 
LOAD|R J PROGRAM 08BO) WILL HAVE TO BE PATCHED AFTErIthAsIeEn'' 

OF COURSE, IF THE 1800 HAS ONLY ONE BSM, THE OPERATOR Will 
HAVE TO ATTEMPT TO LOAD THE CORE FUNCTION TEST IN THF lluL, 
MANNER OR ATTEMPT TO TROUBLESHOOT THe'mEMORy'wiIh SOMe'SthER 
Pit I HUu. 
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BSM 


ADDRESS RANGE 
OF BSM 


1 


/0000-/1FFF 


2 


/2O00-/3FFF 


3 


/4000-/5FFF 


4 


/6000-/7FFF 


5 


/8000-/9FFF 


6 


/AOOO-/BFFF 


7 


/C0OO-/DFFF 


8 


/eOOO-/FFFF 



TO LOAD THE EXTENDED CORE FUNCTION TEST OBJECT DECK OR PAPER TAPE 
OBJECT PROGRAM - 

1. CLEAR THE MEMORY, RESET THE MACHINE. 

2. A) CARD - PLACE OBJECT DECK IN CARD READER, PRESS READER 

START BUTTON. 

B) PAPER TAPE - PUT PAPER TAPE LOADER PROGRAM, 08B0, IN THE 
PAPER TAPE READER AND LOAD THE PROGRAM. WHEN IT COMES 
TO WAIT /30FF AND THE lAR IS AT /0O83, PATCH WORD /0125 
USING THE DATA ENTRY SWITCHES - 

HEX PATCH 
IN WORD /0125 

/17FF 

/37FF 

/57FF 

/77FF 

/97FF 

/B7FF 

/D7FF 

/F7FF 

WHEN THE PATCH IS COMPLETED, RETURN TO WAIT /30FF AT 
LOCATION /0082. PUT THE OBJhCT PROGRAM TAPE INTO THE 
PAPER TAPE READER AND READY IT. 

3. SET DATA ENTRY SWITCH 9 TO INDICATE PRINTER FOR 
MESSAGE LOGGING. 

SWITCH 9 OFF, LOG ON 1443. 
SWITCH 9 ON, LOG ON 1816 OR 1053. 

READY INDICATED PRINTER. 

4. A) CARD - PRESS THE PROGRAM LOAD BUTTON. THE PROGRAM WILL 

BE LOADED, A HEADING PRINTED AND THE PROGRAM WILL WAIT 
FOR THE DATA ENTRY SWITCH SETTINGS. 

B) PAPER TAPE - PRESS THE START BUTTON AND THE PROGRAM WILL 
BE LOADED, A HEADING PRINTED AND THE PROGRAM WILL WAIT 
FOR DATA ENTRY SWITCH SETTINGS. 

« * 

* IMPORTANT OPERATING INSTRUCTION * 

* * 

* * 

* 5. SET WRITE STORAGE PROTECT BITS SWITCH TO YES. * 

* SET CHECK STOP SWITCH TO OFF. « 

* * 
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THE EXTENDED CORE FUNCTION TEST CONSISTS OF TWO PATTERN 
TESTS. THEY CAN BOTH BE RUN OR ONE CAN HE SELECTED. THE 
TEST CAN BE RUN IN ALL BASIC STORAGE MODULES OF A MACHINE 
OR IT CAN BE RUN IN A SELECTED BASIC STORAGE MODULE. IT IS 
ALSO POSSIBLE FOR THE EXTENDED CORE FUNiJION TEST TO BE 
RESIDING IN ONE BASIC STORAGE MODULE AND RUNNING PATTERN 
TESTS IN ANOTHER BASIC STORAGE MODULE (fXTERNAL TEST). 
THERE IS A PROVISION FOR LOOPING ON A PATTERN TEST. 

PATTERN TEST SELECTION IS MADE BY SETTING DATA ENTRY 
SWITCHES 0-3. SETTINGS ARE INDICATED BELOW - 



DATA ENTRY SWITCHES 
0123 

0000 



0001 
0010 
1111 



PATTERN TEST SELECTED 

BOTH PATTERN TESTS ARE TO BE 
EXECUTED. 

1 - CORE BEAT TEST 

2 - RANDOM DATA, MIXED OPERATIONS TEST 
15 - SUMMARY LOG 



* NOTE - ALL SWITCH SETTINGS FOR DES. 0-3 BETWEEN 
0010 AND nil ARE INVALID AND IF SELECTED 
WILL RESULT IN AN ERROR LOG. 

STORAGE MODULE SELECTION IS INDICATED BY DATA ENTRY SWITCHES 
4-7. SETTINGS ARE INDICATED BELOW - 



DATA ENTRY SWITCHES 


BSM 


SELECTED 


ADDRESS RANGE 


4567 


FOR 


TESTING 


OF BSM 


0000 




ALL 




0001 




1 


/0000-/1FFF 


0010 




2 


/2000-/3FFF 


0011 




3 


/4000-/5FFF 


0100 




4 


/6000-/7FFF 


0101 




5 


/8000-/9FFF 


0110 




6 


/AO0O-/BFFF 


0111 




7 


/COOO-/DFFF 


1000 




8 


/E00O-/FFFF 



* NOTE - ALL OTHER SWITCH SETTINGS FOR DES. 4-7 ARE 
INVALID AND IF SELECTED WILL RESULT IN AN 
ERROR LOG. ALSO, SELECTING A BSM NOT IN THE 
RANGE OF THE PARTICULAR MACHINE WILL RESULT 
IN AN ERROR LOG. 



THE EXTENDED CORE FUNCTION TEST IS LOADED AND READY TO RUN. 
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DATA ENTRY SWITCH 8 DETERMINES WHEATHER THE BSM 
Or'e'xTERNALLy!'- '"' "''' '' ''''''''' INTERNALLY 
BELOW ARE THE FUNCTIONS OF DATA ENTRY SWITCHES 8 - 
°ES FUNCTION 

8 



15. 



10 
U 
13 
14 
15 



(OFF) THE BSM SELECTED BY DBS. 4-7 IS TO BF 

EXERCISED INTERNALLY. 
(ON) THE BSM SELECTED BY DES. 4-7 IS TO BE 

EXERCISED EXTERNALLY. 

(OFF) LOG ON 1443. 

ION) LOG ON 1816 OR 1053. 

iON) LOOP ON PATTERN TEST. 

THERE IS NO LOOP ON PROGRAM OPTION. 

BYPASS IMMEDIATE ERROR LOG. 

WAIT ON ERROR. 

WAIT BEFORE STARTING PATTERN TEST. 



(ON) 
<0N! 
(ON) 



WHEN THE DATA ENTRY SWITCHES HAVE 6EEN SET. PRFSS TWF c-adt 
BUTTON AND THE EXTENDED CORE FUNCTION TEST 'wIlPbE EXECUTED 
WHEN ERRORS ARE DETECTED, AN IMMEDIATE ERROR LOG IS PRT^TFr" 
UNLESS DES. 13 IS ON. (SEE SECTION 4:2 FOR DESCRPTION OF 
ERROR LOGS.) WHEN THE CORE FUNCTION TEST IS COMPLETE THF 

l^'.rr^nl .'°^ "''"" ^' '"'^'^■^^^- " "^'^OT BE BYPASSEd! SEE 
SECTION 4.3 FOR A DESCRIPTION OF THE SU.MMARY LOgI) 

*****«««„*»*„*^.**^=,„,^„^^^,^^^^^^^^^^^^^^^^^^^^^^^^_^_^_^^^^^^^^^^^ 
* IMPORTANT OPERATING NOTE * 

tL*oLZ^"^ ^*^^ OPERATOR MAY RETURN TO THE BEGINNING OF * 
THE PROGRAM BY PRESSING THE IMMEDIATE STOP ANn ^tIbt ! 
BUTTONS. DATA ON ERRORS, FOR THE SUMMAR^'lOG? UVo7 LOST.* 



?BtVTcmT/Ali%T.r^.^l"'''''' ^'^ "*'^"^'^E ^"""^G PATTERN* 
!tST 1 CAN LEAVE STORAGE PROTECT BITS SET IN MEMORY AND IT * 
WILL BE IMPOSSIBLE TO RUN OTHER PATTERN TESTS. « 

* 



3.3 WAITS 

0fShe"r06rL!""'^'° '" '"' "*'^ '"''^'^ " ^"^ BEGINNING 

3.4 TERMINATIONS 

c5?Ifi^ CONDITIONS CAN CAUSE THE ABNORMAL TERMINATION OF THE 
EXTENDED CORE FUNCTION TEST. THESE TERMINATIONS ARE SPECUL 
Of'tHe"prSgrI«'°"- ''' '"' """' ''"'°" '' THE BEGINNING 
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'►.I STATUS MESSAGES 

D^ci^irc^^D^^' rr^is^f rw§^^/.f,s^?^S^r^^?F° V ' '''' '^^^^ 
iTsLirc'oll'' -ssiL^^^E^L^isl lTo''oraU'l,ir.l'' 



ROUTINE IDENTIFICATIONS ARE LISTED BELOW 



CODE 
00 

01 
02 
15 



ROUTINE 
INITIALIZATION AND HOUSEKEEPING 
CORE BEAT TEST 

RANDOM DATA, MIXED OPERATIONS TEST 
SUMMARY LOG 



MESSAGE CODES ARE GROUPED INTO GENERAL AREAS - 

00 - 09 GENERAL MESSAGES 

10 - 19 DATA gNTRY SWITCH SETTING ERRORS 

20 - 29 TEST PATTERN ERRORS 

30 - 39 ERRORS DETECTED BY INTERNAL INTERRUPT 



DATE 
EC NO. 
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30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-* 
3 



DATE 
EC NO. 



14NOV69 
431319 



3OJAI»70 
431319ft 



17APR70 

431321 



PROG ID 

PAGE 



089F-* 
3A 



IBH HAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
EXTENDED CORE FUNCTION TEST 089F 



PART NO. 2279490 
PAGE '^ 



BELOW IS A LIST OF GENERAL MESSAGES AND DATA ENTRY SWITCH 
ERROR LOGS WITH ACTION REQUIRED - 



MESSAGE 

0000 08CF CORE TEST 

0001 SET DES 

0010 OES 8 



0011 OES 4-7 



0012 ONE BSM 



0014 DES 0-3 



ACTION 

HEADING, NO ACTION REQUIRED. 

SET DATA ENTRY SWITCHES FOR 
PROGRAM OPTIONS. PRESS START TO 
EXECUTE CORE FUNCTION TEST. 

SWITCH 8 IS ON INDICATING AN 
EXTERNAL TEST, BUT NO BSM HAS 
BEEN IDENTIFIED BY DES. 4-7. 
EITHER RESET SWITCH 8, OR SET 
DES. 4-7 TO A VALID COMBINATION 
AND PRESS START TO RE-INITIALIZE. 

A BSM HAS BEEN SPECIFIED BY 
DES. 4-7 WHICH IS OUT OF RANGE 
FOR THIS MACHINE. RESET DES. 
4-7 TO A VALID COMBINATION AND 
PRESS START TO RE-INITIALIZE. 

THIS 1800 HAS ONLY ONE BSM. IT 
IS NOT POSSIBLE TO RUN AN 
EXTERNAL TEST ON AN 8K MACHINE. 
RESET DES. 8 AND PRESS START TO 
RE-INITIALIZE. 

AN INVALID PATTERN TEST HAS BEEN 
SPECIFIED BY DES. 0-3. RESET 
THE SWITCHES TO A VALID 
COMBINATION AND PRESS START 
TO RE-INITIALIZE. 



0101 TEST PATTERN-OES. 0-15. 

STOR. PROT. BIT-SENSE SW. 0. 



THE CORE BEAT TEST 
HAS BEEN ENTERED. 
THE OPERATOR MUST 
SUPPLY THE PATTERN THAT EACH 
CORE POSITION IS TO BE EXER- 
CISED WITH. THE BIT PATTERN 
SHOULD BE SET IN DATA ENTRY 
SWITCHES 0-15. IF THE STORAGE 
PROTECT BIT IS TO BE INCLUDED 
IN THE TEST PATTERN, INDICATE 
IT BY SETTING SENSE SWITCH 0. 
PRESS START AND THE SWITCHES 
WILL BE READ AND THE PROGRAM 
WILL CONTINUE. 
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0102 ENTER START ADDR.-DES 0-15 



IF THE STORAGE MODULE 
TO TEST IS EXPLICITLY 
DEFINED OR IS TO BE EXTERNALLY 
TESTED, THE PROGRAM WILL ASK FOR 
THE STARTING ADDRESS LIMIT. 
ENTER THE ADDRESS IN DATA ENTRY 
SWITCHES 0-15. PRESS START AND 
THE SWITCHES WILL BE READ AND 
THE PROGRAM WILL CONTINUE. 
«*NOTE - STORAGE LOCATIONS 0-9 ARE 
NOT ACCEPTED AS STARTING ADDRESSES 
SINCE THEY ARE RESTART AND INTERRUPT 
TRANSFER VECTORS. THE LOWEST VALID 
STARTING ADDRESS IS /OOOA. 



0103 ENTER END ADDR.-DES 0-15. 



IF THE STORAGE MODULE 
TO TEST IS EXPLICITLY 
DEFINED OR IS TO BE EXTERNALLY 
TESTED, THE PROGRAM WILL ASK FOR 
THE END ADDRESS LIMIT. ENTER 
THE ADDRESS IN DATA ENTRY 
SWITCHES 0-15. PRESS START AND 
THE SWITCHES WILL BE READ AND 
THE Pr'oGRAM WILL CONTINUE. 

RESTORE OES. 0-15 TO THE PREVIOUS 

SETTING INDICATING BSM, TEST AND 

PROGRAM OPTIONS. PRESS START TO 

EXECUTE THE CORE BEAT TEST. 



**#* #**#«**** *********************************** ************* 



0104 RESTORE OES 0-15. 



* IMPORTANT OPERATING NOTE * 

* * 
************************************************************* 
« * 

* THE DATA ENTRY SWITCHES MUST BE RESET TO THE « 

* PREVIOUS PROGRAM OPTION SETTING FOR THE CORE BEAT » 

* TEST TO WORK CORRECTLY. « 

* * 
************************************************************* 



0115 DES ERROR. 

0X00 WAIT 

0X08 PASS COMPLETE 

1509 END CORE TEST 
* NOTE 



THE ADDRESS ENTERED IN DES 0-15 
FOR THE CORE BEAT TEST IS 
INVALID. RESET THE SWITCHES TO 
A VALID ADDRESS AND PRESS START 
TO CONTINUE. 

X IS THE ROUTINE IDENTIFICATION. 
THIS IS THE PREPROCESSING WAIT, 
DATA ENTRY SWITCH 15 IS ON. 

X IS THE ROUTINE IDENTIFICATION. 
THE LOOP ON ROUTINE SWITCH, OES. 
10, IS ON. A PASS OF THE PAT- 
TERN TEST HAS BEEN EXECUTED. 

HEADING, NO ACTION REQUIRED. 



THESE MESSAGES CANNOT BE BYPASSED BY SETTING DATA 
ENTRY SWITCH 14. 
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THE IMMEDIATE ERROR LOG IS A ONE LINE MESSAGE THAT HAS AN 
ERROR CODE TO IDENTIFY THE TYPE OF ERROR, AND THE BINARY 
CODING OF THE ERROR ADDRESS, TEST PATTERN AND FAILURE 
PATTERN. 



CODE 



ADDRESS TEST PATTERN SP FAIL. PATTERN SP 

XXYY AAA 6B6 CCC ODD EEEE TTTT TTTT TTTT TTTT TT FFFF FFFF FFFF FFFF FF 
WHERE - 

XX - TEST ROUTINE ID., 00 - 02. 
YY - MESSAGE ID., 00 - 99. 

AAA - BSM NUMBER 

BBS - HI X BIT PATTERN 

CCC - LO X BIT PATTERN 

ODD - HI Y BIT PATTERN 

EEEE - LO Y BIT PATTERN 

TTTT - TEST PATTERN 
FFFF - FAILURE PATTERN 
SP - STORAGE PROTECT BIT, PARITY BIT 

MESSAGE IDENTIFICATION COOES ARE LISTED BELOW - 
21 - BIT PATTERN ERROR DETECTED BY PATTERN TEST. 
3L - OP CODE CHECK. 

32 - PARITY CHECK IN PATTERN. 

33 - PARITY CHECK IN CORE FUNCTION TEST PROGRAM. 

34 - TWO OR MORE PARITY CHECKS. 

35 - TWO OR MORE PARITY CHECKS, IN CORE FUNCTION TEST 

PROGRAM. 

36 - INVALID STORAGE PROTECT CHECK. 

37 - FALSE CAR CHECK. 

38 - FALSE INTERRUPT. 

39 - AUX CORE ERROR INTERRUPT. 
* NOTE - 

ERROR 31 - DOES NOT PRINT A TEST PATTERN OR FAILURE 

PATTERN IN THE ERROR LOG. 
ERROR 33 - THE TEST PATTERN IS UNKNOWN, FOUR ASTERISKS 

(****> ARE PRINTED INSTEAD. 
ERROR 35 - THE TEST PATTERN IS UNKNOWN, FOUR ASTERISKS 

(****) ARE PRINTED INSTEAD. 

ERROR 36 - 
ERROR 37 - 
ERROR 38 - ARE ENGLISH LANGUAGE ERROR LOGS. 
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4.3 SUMMARY LOG 

WHEN THE EXTENDED CORE FUNCTION TEST HAS COMPLETED ALL 
DESIGNATED TEST EXERCISES, IT WRITES A SUMMARY LOG. ALSO BY 
SETTING DES. 0-3 ON AT INITIALIZATION AND PRESSING START, 
THE SUMMARY LOG WILL BE PRINTED. 

A SUMMARY LOG IS WRITTEN FOR EACH BASIC STORAGE ' MODULE THAT 
WAS EXERCISED. IF NO ERRORS WERE DETECTED, ONLY THE FAILURE 
BY PATTERN TEST SUMMARY IS LOGGED SO THE OPERATOR WILL KNOW 
HOW MANY LOOPS WERE MADE ON AN EXERCISE. 

SUMMARY FOR BSM X (X IS THE BSM NUMBER, 1-8.) 

BIT FAILURES 

BIT DROP PICK 

1 — ~ 56 

2 9 

3 153 

4 68 — 

7 508 432 

8 12 

9 

10 1 

11 

12 

13 3 

14 

15 

5 

p 108 

(S INDICATES THE STORAGE PROTECT BIT, P INDICATES THE 
PARITY BIT. THE VALUES INDICATED ARE ONLY FOR 
ILLUSTRATION. ) 
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FAIL. BY AODR. LINE 





HI 


LO 


HI 


LO 




X 


X 


Y 


Y 


000 


_ 


_ 


„ 


_ 


001 


1 


- 


_ 


_ 


010 


- 


2 


_ 


_ 


oil 


- 


1 


_ 


_ 


100 


- 


4 


- 


- 


101 


- 


-, 


2 


_ 


110 


- 


■ - 




_ 


111 


5 


-; 


- 


- 


1000 


* 


* 


« 


_ 


1001 


* 


* 


* 


9 


1010 


* 


* 


* 


_ 


1011 


« 


* 


« 


. 


1100 


* 


* 


* 


_ 


1101 


* 


* 


* 


_ 


1110 


* 


* 


« 


_ 


1111 


* 


* 


* 


_ 
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FAILURE BY PATTERN TEST 
TEST FAILURES LOOPS 



178 



SCALE FACTOR = 5 

(EACH ENTRY IN THE TABLE IS SCALED IN THE RANGE 1-9, TO 
MAKE THE TABLE CONCISE AND EASY TO INTERPRET. A (-) 
INDICATES THAT NO FAILURES OCCURRED FOR THAT LINE. THE 
ASTERISK DENOTES THAT THERE ARE NO X OR Y ADDRESS LINES 
WITH THAT CORRESPONDING VALUE. 

THE SCALE FACTOR IS THE DIVISOR USED TO REDUCE THE NUMBER 
OF ERRORS FOR EACH LINE TO A SINGLE VALUE IN THE RANGE OF 
1-9. BY MULTIPLYING EACH ENTRY IN THE TABLE BY THE SCALE 
FACTOR, A CLOSE APPROXIMATION OF THE ACTUAL NUMBER OF ERRORS 
CAN BE DETERMINED FOR EACH ADDRESS LINE. 

THE VALUES INDICATED ARE ONLY FOR ILLUSTRATION.) 



FAILURE BY 4K SEGMENT 

LO 4K = HI 4K = 387 



(THE ENTRY INDICATES ERRORS DETECTED BY THE INTERRUPT 
SUBROUTINE THAT DID NOT OCCUR DURING A PATTERN TEST. 
THERE WILL NEVER BE A LOOP COUNT DISPLAYED FOR THIS ENTRY. 

FOR INTERNAL TESTING THE LOOP COUNTER WILL BE SOME MULTIPLE 
OF TWO, BUT FOR EXTERNAL TESTS THE LOOP COUNTER WILL BE A 
MULTIPLE OF ONE. THE LOOP COUNTER INDICATES THE RELATIVE 
AMOUNT OF TESTING DONE WHEN THE LOOP ON ROUTINE OPTION IS 
SELECTED. 

THE VALUES INDICATED ARE ONLY FOR ILLUSTRATION.) 

* NOTE - THE FAILURE BY PATTERN TEST SUMMARY IS PRINTED FOR 
EACH BSM TESTED. IF THERE WERE NO ERRORS DETECTED 
FOR A BSM, THE OTHER SUMMARIES ARE NOT WRITTEN. 

COMMENTS 

5.1 DESCRIPTION OF CORE FUNCTION TEST 

5.1.1 INITIALIZATION AND HOUSEKEEPING 

ROUTINES AND SUBROUTINES WITH THE LABELS AAOOO - AA200 TAKE 
T^cL^L^t*- ASPECTS OF INITIALIZATION AND HOUSEKEEPING. 
THESE ROUTINES DETERMINE MACHINE SIZE, RECOGNIZE OPERATOR 
OPTIONS AND CONTROL INITIAL ENTRY AND RE-ENTRY TO THE CORE 
I bo T • 

5.1.2 CORE BEAT TEST 

ROUTINE 8B010 IS THE CORE BEAT TEST. THE WORST CASE PATTERN 
IS STORED IN THE STORAGE MODULE TO BE TESTED. THE PATTERN 
INDICATED BY THE OPERATOR IS STORED IN THE FIRST LOCATION TO 
IvJ.^.^I^'^ ^'^^ * READ/WRITE CYCLE, A LOAD INSTRUCTION, IS 
EXECUTED 500,000 TIMES ON THE WORD. THE WORD IS CHECKED AND 
RESTORED AND THE NEXT WORD IS TESTED UNTIL THE END ADDRESS 
LIMIT IS ENCOUNTERED. 



5.1.3 RANDOM DATA, MIXED OPERATIONS TEST 



IT 



ROUTINE CCOIO IS THE RANDOM DATA, MIXED OPERATIONS TEST. 
FILLS THE STORAGE MODULE UNDER TEST WITH RANDOM NUMBERS. 
EACH NUMBER IS PUT IN FOUR NONADJACENT POSITIONS FOR ERROR 
RECOVERY. SEVEN SUBROUTINES THAT INCLUDE ALL ARITHMETIC AND 
LOGICAL INSTRUCTIONS ARE ENTERED RANDOMLY TO EXERCISE THE 
MODULE UNDER TEST. 
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EXTEKOEO CORE FUNCTION TEST 089F 

5.1.4 SUMMARY LOG ROUTINE 

ROUTINE HZlOO CONTROLS THE PRINTING OF THE SUMMARY LOG. 
IF THERE WERE ERRORS DETECTED IN A BASIC STORAGE MODULE, 
A COMPLETE SUMMARY IS LOGGED ON THE MODULE. IF NO ERRORS 
WERE DETECTED, ONLY THE LOOP SUMMARY IS PRINTED FOR THE 
BASIC STORAGE MODULE. 

5.1.5 INTERNAL INTERRUPT SUBROUTINES 

SUBROUTINES WHOSE LABELS BEGIN WITH I HANDLE ALL ASPECTS 
OF INTERNAL INTERRUPTS. FOR SOME CHECKS, A LOG IS PRINTED 
AND AN ABNORMAL WAIT HALTS PROCESSING. FOR MOST PARITY 
ERRORS, DATA IS STORED FOR THE SUMMARY LOG, AN IMMEDIATE 
ERROR LOG IS PRINTED AND CONTROL RETURNS TO THE PATTERN TEST 
IN PROGRESS. 
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6. APPENDIX 

6.1 RUNNING TIMES FOR PATTERN TESTS 

TIME TO RUN THE CORE BEAT TEST IS VARIABLE AND DEPENDS ON 
THE NUMBER OF POSITIONS TO BE TESTED. IT TAKES ABOUT THREE 
SECONDS PER POSITION FOR A 2 MICROSECOND MEMORY AND FIVE 
SECONDS PER POSITION FDR A 4 MICROSECOND MEMORY. 

THE RANDOM DATA, MIXED OPERATIONS TEST TAKES ABOUT NINE 
MINUTES TO RUN ON AN 8K MODULE OF 2 MICROSECOND MEMORY, 
WHEATHER IT IS AN INTERNAL OR EXTERNAL TEST. 
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5.1.6 NON-INTERRUPT ERROR HANDLING 

SUBROUTINES WHOSE LABELS BEGIN WITH J HANDLE ERRORS, 
THAT DO NOT CAUSE INTERRUPTS, DETECTED BY THE PATTERN TESTS. 
THESE SUBROUTINES STORE DATA ON THE ERROR FOR THE SUMMARY 
LOG AND PREPARE AN IMMEDIATE ERROR LOG. CONTROL RETURNS TO 
THE PATTERN TEST IN PROGRESS. 



5.1.7 WRITE SUBROUTINES 

SUBROUTINE MAOIO CONTROLS THE WRITING OF MESSAGES ON THE 
1443 OR 1816 OR 1053 PRINTERS. MESSAGES ARE STORED IN 1443 
CODE AND CONVERTED IF THEY ARE TO BE WRITTEN ON THE 1816 OR 
1053. 

5.1.8 RELOCATION SUBROUTINES 

SUBROUTINES WHOSE LABELS BEGIN WITH N HANDLE RELOCATION OF 
THE CORE FUNCTION TEST. RELOCATION CAN BE MADE BETWEEN THE 
4K BLOCKS OF A BASIC STORAGE MODULE OR BETWEEN BASIC 
STORAGE MODULES. 

5.1.9 TALLEY SUBROUTINES 

SUBROUTINES WHOSE LABELS BEGIN WITH P ARE CALLED BY THE 
ERROR DETECTION SUBROUTINES AND ACTUALLY ANALYZE AND TALLEY 
THE ERRORS INTO THE SUMMARY TABLES. 

5.1.10 SET ADDRESS LIMITS FOR PATTERN TESTS 

SUBROUTINES SAOIO, SAIOO AND SA200 DETERMINE THE ACTUAL 
ADDRESS LIMITS FOR THE PATTERN TEST. SAIOO DETERMINES 
LIMITS WHEN THE TEST IS TO RIPPLE UP CORE AND SA200 
DETERMINES LIMITS WHEN THE TEST IS TO RIPPLE DOWN CORE. 

5.1.11 IMMEDIATE AND SUMMARY PRINT SUBROUTINES 

ALL OTHER SUBROUTINES WHOSE LABELS BEGIN WITH S ARE CALLED 
TO EDIT AND PRINT THE ERROR AND SUMMARY LOGS. MOST OF THE 
SUBROUTINES ARE CALLED BY THE SUMMARY LOG ROUTINE, HZIOO. 
THESE SUBROUTINES EDIT AND CONVERT DATA IN THE SUMMARY 
TABLES TO LINES OF 1443 CHARACTERS AND THEN CALL THE WRITE 
SUBROUTINE, MAOIO. 
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0000 
3002 



B I 
3002 1 OOIF 



3 003 OOOl 



B I 
3 004 1 002 D 



3005 0001 



B I 
3006 1 003E 



3007 0003 



B I 
300A 1 0058 



B I 
300B 1 0090 



ZEROO EOlJ * 

ORG ZEROO+/300Z 

* * 

* 1800 EXTENDED CORE FUNCTION TEST # 

* * 

« « 

* PROGRAM AND ERROR WAITS * 

* * 

* * 

DC WAT02+1 THE PROGRAM HAS BEEN READ* 

* SUCCESSFULLY. SET DATA * 
» ENTRY SWITCHES FOR PRO- * 

* GRAM OPTIONS. » 

* * 

* 4 

BSS 1 

# * 

* * 

DC WAT04+1 NONE OF THE STOr^AGE * 

* MODULES HAVE BEEN * 

* INDICATED FOR AN EXTERNAL* 

* TEST. EITHER RESET * 

* SWITCH 8, OR SET SWITCHES* 

* 4-7 TO INDICATE A VALID * 

* COMBINATION AND PRESS * 

* START TO RE-INITIALIZE. * 

* # 

* * 

BSS 1 

* # 

*******************#******#**«**«# **>)t««l|!* *******#** 

* * 

DC WAT06+1 THIS 1800 HAS ONLY ONE « 

* BSM. IT IS NOT POSSIBLE * 

* TO RUN AN EXTERNAL TEST * 



* 

* 
* 
* 
* 

* * 
BSS 3 

* * 



ON A MACHINE WITH ONLY * 

ONE BSM. RESET DATA * 

ENTRY SWITCHES 4-7 TO A * 

VALID COMBINATION AND * 

PRESS START TO RE- * 

INITIALIZE. * 

# 



DC 



WATOA+1 



A BSM HAS BEEN SPECIFIED * 

BY SWITCHES 4-7 WHICH IS « 

OUT OF RANGE FOR THIS * 

MACHINE. RESET DATA * 

ENTRY SWITCHES 4-7 AND * 

PRESS START TO RE- * 

INITIALIZE. * 

* 

* # 

DC WATOB+1 AN INVALID PATTERN TEST « 

* HAS BEEN SPECIFIED. * 

* RESET SWITCHES 0-3 TO A * 

* VALID COMBINATION AND * 
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3000 0013 



B ! 
3020 1 00E5 



B I 
3021 1 00F9 



B I 
3022 1 0109 



B I 


* 


OOC 1 00A9 






* 




* 



* PRESS START TO RE- * 

* INITIALIZE. * 

* « 

DC WATOC+1 WAIT BEFORE STARTING PAT-* 

TERN TEST. « 



* * 

BSS /13 * 



* * 

* THE FOLLOWING FOUR WAITS PERTAIN TO THE CORE « 

* BEAT TEST ONLY. * 

* * 

* * 

* 



DC 



WAT20+1 



THE CORE BEAT PATTERN 

TEST HAS BEEN ENTERED. * 

THE OPERATOR MUST SUPPLY * 

THE PATTERN THAT EACH * 

CORE POSITION IS TO BE « 

EXERCISED WITH. THE BIT * 

PATTERN SHOULD BE SET * 

IN DATA ENTRY SWITCHES * 

0-15. IF THE STORAGE * 

PROTECT BIT IS TO BE * 

INCLUDED IN THE TEST * 

PATTERN, INDICATE IT BY * 

SETTING SENSE SWITCH 0. * 

PRESS START AND THE * 
SWITCHES WILL BE READ AND* 

THE PROGRAM WILL CON- * 

* TINUE. * 

* * 

* * 

DC WAT21+1 IF THE STORAGE MODULE TO * 

TEST IS EXPLICITLY « 

DEFINED OR IS TO BE » 

EXTERNALLY TESTED, THE * 

PROGRAM WILL ASK FOR THE * 

STARTING ADDRESS LIMIT. * 

ENTER THE ADDRESS IN * 
DATA ENTRY SWITCHES 0-15.* 
PRESS START AND THE 
SWITCHES WILL BE READ 
AND THE PROGRAM WILL 
CONTINUE. 
**NOTE - STORAGE 
LOCATIONS 0-9 ARE NOT 
ACCEPTED AS STARTING 
ADDRESSES SINCE THEY ARE 
RESTART AND INTERUPT 
TRANSFER VECTORS. THE 
LOWEST VALID STARTING 
ADDRESS IS /OOOA. 



* 
* 
* 
* 
* 
« 
* 
* 
* 

* 
* 
* 
* 
* 
« 

* 

* # 
nC WAT22+1 IF THE STORAGE MODULE TO * 

* TEST IS EXPLICITLY * 

* DEFINED OR IS TO BE * 

* EXTERNALLY TESTED, THE * 

* PROGRAM WILL ASK FOR THE * 

* END ADDRESS LIMIT. ENTER* 



89F00700 

89F00710 

89F00720 

89F00730 

89F00740 

89F00750 

89F00760 

89FQ0770 

89F00780 

89F00790 

89F00800 
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89F00820 

89F00830 

89F00840 

89F00850 

89F00860 

89F00870 

89F00880 
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89F00900 

89Fn0910 

89F00920 

89F00930 
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89F00960 

89F00970 
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89F00990 
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B9F01020 

H9F01030 

89F01040 

89F01050 

89F01060 

89F01070 

89F01080 

89F01090 

89F01100 

89F01110 

89F01120 

89F0I130 

89F01140 

89F01150 

89F01160 

89F01170 

89F01180 

89F01190 

89F01200 

89F01210 

89F01220 

89F01230 

89F01240 

89F01250 

89F01260 

89F01270 

89F01280 

89F01290 

89F01300 

89F01310 

89F01320 

89F01330 

89F01340 

89F01350 

89F01360 

89F01370 
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* 

* 
* 

* 



B I 
3023 1 0119 



3024 OOOC 



B I 
3030 1 0762 



B I 
3031 1 0765 



B I 
3032 1 07AF 



3033 0010 



B I 
3050 1 0456 



3051 0021 



6 I 
3072 1 0520 



THE ADDRESS IN DATA ENTRY* 
SWITCHES 0-15. PRESS * 
START AND THE SWITCHES * 
HILL BE READ AND THE * 
PROGRAM MILL CONTINUE. * 

* 

^ * 
DC WAT23+1 RESTORE DES. 0-15 TO THE * 

* PREVIOUS SETTING * 
« INDICATING 6SM, TEST AND * 
« PROGRAM OPTIONS. PRESS * 
« START TO EXECUTE THE CORE* 

* BEAT TEST. * 

* **NOTE - THE DATA ENTRY * 

* SWITCHES MUST BE RESET TO* 

* THE PREVIOUS PROGRAM * 

* OPTION SETTING FOR THE * 

* CORE BEAT TEST TO WORK * 

* CORRECTLY. * 

* * 
**♦«♦*«♦*##**««#***«««****««*********************** 

* * 
BSS /C * 

« * 

##**««*«#*#«***«***«*#«****#*«*******«************* 

* * 
DC WAT30+1 1443 ERROR. RESET 1443 * 

* OR SET SWITCH 9 TO USE * 

* THE 1816. PRESS START TO* 

* CONTINUE. * 

* * 
««#«««#*#***#»«*******************«**************** 



DC WAT31+1 1443 NOT READY. MAKE * 
1443 READY OR SET SWITCH * 
9 TO USE THE 1816. PRESS* 
START TO CONTINUE. * 



»*«*»#**#*♦****«*****«*##**************«*********** 

* * 
DC WAT32+1 1816 OR 1053 NOT READY. ♦ 

* READY PRINTER AND PRESS * 

* START. * 

* * 
*##**«♦#«*«««««*#«*#*************««**«*#**********« 



BSS 



/ID 



307 3 0001 



*********♦«##»#****##*«*#*««**«******«************* 

* * 
DC WAT50+1 END OF CORE FUNCTION TEST* 

* * 
>liiHit*i|i***«** ***************************** *********** 

* * 
BSS /21 * 

* * 
###«*«#*****«****#***##**«#****«**************«**** 

* * 
DC WAT72+1 HALT ON ERROR. DES. 14 * 

» IS ON. THIS ERROR WAS * 

* DETECTED BY THE INTERNAL * 

* INTERRUPT. * 

* * 
####« **«*♦****«»*#**««**«*******«******«***** ****** 

* * 
BSS 1 * 

* * 



PART NO. 2279488 
PAGE .2 



89F01380 

89F01390 

89F01400 

89F01410 

89F01420 

89F01430 

89F01440 

89F01450 

89F01460 

89F01470 

89F01480 

89F01490 

89F01500 

89F01510 

89F015Z0 

89F01530 

89F01540 

89F01550 

89F01560 

89F01570 

89F01580 

89F01590 

89F01600 

89F01610 

89F01620 

89F01630 

89F01640 

89F01650 

89F01660 

89F01670 

89F01680 

89F01690 

89F01700 

89F01710 

89F01720 

89F01730 

89F01740 

89F01750 

89F01760 

89F01770 

89F01780 

89F01790 

89F01800 

89F01810 

89F01820 

89F01830 

89F01840 

89FQ1850 

89F01860 

89F01870 

e9F01880 

89F01890 

89F01900 

89F01910 

89F01920 

89F01930 

89F01940 

89F01950 

89F01960 

89F01970 

89F01980 

89F01990 

89F02000 

89F02010 

89F02020 

8 9F02030 

89F02040 

89F02050 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2279488 
PAGE 2A 



EXTENDED CORE FUNCTION TEST 



B I 
3074 1 0648 



B I 
307a 1 065B 



B I 
3076 1 0677 



B I 
3077 1 0669 



B I 
3078 1 06A1 



3079 0078 



B I 
30F1 1 04C0 



8 I 

30F2 1 0537 



*************************************************** 89 FO 2060 

^ * 89F02070 

DC WAT74+1 CAR CHECK ERROR DETECTED * 89F02080 

♦ ON 1443. PRESS START TO * 89F02090 

* RETRY WRITING. NO LOG. * 89F02100 
^ * 89F02110 
#»*«*«***»*»***********♦*************************** 89F021 20 

89F02130 
DC WAT75+1 FALSE CAR CHECK. PRESS * 89F02140 

89F02150 
89F02160 
89F02170 
89F02180 
89F02190 
«*♦****«#*«*«********#*♦*************************** 8 9 FO 2 200 
♦ 

DC WAT76+1 NO INTERRUPT CONDITION 
SENSED FOR INTERNAL 
INTERRUPT. PRESS START 
TO CONTINUE. 



FALSE CAR CHECK. PRESS 
START TO CONTINUE. RUN 
CAR CHECK PROGRAM AFTER 
CORE FUNCTION TEST 
COMPLETES. 



* B9F02210 

* 89F02220 

* 89F02230 

* 89F02240 

* 89F02250 

* 89F02260 



* 
* 

*♦«#******«*****************»********************** 89F02270 

* * 89F02280 
DC WAT77+1 AUX CORE ERROR. AN INTER-* 89F02290 

* NAt INTERRUPT WAS GEN- * 89F02300 

* ERATEO WHILE AUX CORE WAS* 89F02310 
« SELECTED * 89F02320 

* * 89F02330 
*«♦*♦****«#**************************************** 89F02340 

* * 89F02350 
OC WAT78+1 HALT ON ERROR. DES. 14 * 89F02360 

* IS ON. THIS ERROR WAS * 89F02370 

* DETECTED BY THE PATTERN * 89F02380 
« TEST EXERCISE ROUTINE. * 89F02390 
« * 89F02400 
««*#*♦**#«**#««#******#**♦************************* 89F02410 

* * 89F02420 
BSS /78 89F02430 

* * 89F02440 
«#«*««#«*****#******«****»*♦****«#*«*************«* 89F02450 

* * 89F02460 
DC WATFl+l AN OP CODE CHECK WAS * 89F02470 

DETECTED AT THE ADDRESS * 89F02480 
PRINTED IN THE ERROR LOG.* 89F02490 
IF THE OP CODE CHECK WAS * 89F02500 
CAUSED BY A PARITY ERROR,* 89F02510 
THAT ERROR IS ALSO LOGGED* B9F0252O 
IF DES. 13 IS OFF. THIS * 89F02530 
IS AN UNRECOVERABLE ER- 
ROR. IF THE ERROR DID 
NOT OCCUR IN THE SUMMARY 
LOG, WRITE OR, INTERRUPT 
ROUTINES, PRESSING START 
MILL START THE SUMMARY 
LOG. 



* 
* 
* 
« 
« 
* 
# 
* 
* 
* 
* 
« 
* 
* 



89F02540 
89F02550 
89F02560 
89F02570 

89F02580 
89F02590 
89F02600 
89F02610 
#♦*««*«#««**#«*«*»««#************»***************** 89F02620 

* * 89F02630 
DC WATF2+1 ONE OR MORE INTERNAL * 89F02640 

* INTERRUPTS HAS OCCURRED * 89F02650 

* IN THE INTERNAL INTERRUPT* 89F02660 

* SUBROUTINE. THIS IS AN * 89F02670 
» UNRECOVERABLE ERROR, DO * 89F02680 
« NOT PRESS START. IT MAY * 89F02690 

* BE POSSIBLE TO GET THE * 89F02700 

* SUMMARY LOG BY PRESSING * 89F027I0 

* RESET, SETTING DES. 0-3 * 89F02720 
« ON AND PRESSING START. * 89F02730 
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B I 
30F3 1 0539 



B I 
30F4 1 0641 



0000 





0001 





0002 





0003 





0004 





0005 





0006 





0007 





0008 





0009 





OOOA 





0010 





0000 




0000 






0000 61FF 

0001 6000 FFFF 
1810 



0003 
0004 



0004 7500 2000 

0006 1000 

0007 DlOO 

0008 7400 FFFF 



AFTER THE HEADING HAS 
PRINTED, PRESS START 
AGAIN. 



* * 

DC WATF3+1 A PARITY ERROR WAS * 

* DETECTED WITHIN THE CORE * 

* FUNCTION TEST PROGRAM. * 

* THIS IS AN UNRECOVERABLE * 

* ERROR. DO NOT PRESS * 

* START. IF THE ERROR DID * 

* NOT OCCUR IN THE SUMMARY * 

» LOG OR WRITE ROUTINES, IT* 

* MAY BE POSSIBLE TO GET * 

* THE SUMMARY LOG. PRESS * 

* RESET AND SET OES. 0-3 * 

* ON. PRESS START AND * 

* AFTER THE HEADING PRINTS,* 

* PRESS START AGAIN. « 

* * 

* * 

DC WATF4+1 A PARITY ERROR HAS OC- * 

* CURRED IN THE RANDOM DATA* 

* BUT IT IS IMPOSSIBLE TO * 

* DETERMINE THE ORIGINAL * 

* DATA. THIS IS AN UNRE- * 

* COVERABLE ERROR. IT IS * 

* POSSIBLE TO RESET THE * 

* MACHINE AND SELECT THE * 

* SUMMARY LOG. « 

* * 
««4«4<****«*«* ******* *««4<******«***>icitc««««»>|c«4ii«<iiis!c#««« 

* A 

* POTPOURRI « 

* * 



* 








ZERO 


ECU 





ZERO 


ONE 


EQU 


1 


ONE 


TWO 


EOU 


2 


TWO 


THREE 


EOU 


3 


THREE 


FOUR 


EOU 


4 


FOUR 


FIVE 


EOU 


5 


FIVE 


SIX 


EOU 


6 


SIX 


SEVEN 


EQU 


7 


SEVEN 


EIGHT 


EOU 


8 


EIGHT 


NINE 


EQU 


9 


NINE 


TEN 


EOU 


10 


TEN 


EXCHA 


EQU 


16 


SHIFT COUNT. 


« 









ORG ZEROO 
AAOOO EQU * 
* 

* THE FOLLOWING ROUTINE DETERMINES THE HIGHEST CORE 

* ADDRESS AND PLACES IT IN AAC04. 

* EXECUTED ONCE. 



IT WILL ONLY BE 



LDX 
STX 
SRA 
AAOOl EOU 
MOX 
NOP 
STO 
MOX 



1 -1 

LI /FFFF 
16 
« 

LI /2000 

1 ZERO 
LO /FFFF.O 



LOAD /FFFF INTO XRl. 
STORE /FFFF IN HI ADDRESS. 
STORE ZERO IN HI ADDRESS. 

INCREMENT BY 8K. 
IGNORE SKIPS. 

TEST HIGHEST CORE FOR ZERO 



89F02740 
89F02750 
89F02760 
89F02770 
89F02780 
89F02790 
89F02800 
89F02810 
89F02820 
89F02830 
89F02840 
89F02850 
89F02860 

89F02870 

89F02880 

89F02890 

89F02900 

89F02910 

89F02920 

89F02930 

89F02940 

89F02950 

89F02960 

89F02970 

89F02980 

89F02990 

89F03000 

89F03010 

89F03020 

89F03030 

89F03040 

89F03050 

89F03060 

89F03070 

89F03080 

8 9F03090 

e9F03100 

89F03110 

89F03120 

89F03130 

89F03140 

89F03150 

89F03160 

89F03170 

89F03180 

89F03190 

89F03200 

89F03210 

89F03220 

89F03230 

89F03240 

89F032 50 

89F03260 

89F03270 

89F03280 

89F03290 

89F03300 

89F03310 

89F03320 

89F03330 

89F03340 

89F03350 

89F03360 

89F03370 

89F03380 

89F03390 

89F03400 

89F03410 



OOOA 





70F9 






B 




AAOOl 




CONTINUE TEST NOT ZERO. 


89F03420 


OOOB 





694E 






STX 


1 


AAC04 




SAVE HIGHEST ADDRESS. 


89F03430 


OOOC 





4056 


* 




BSI 




AA050 




INITIALIZE BASE REGISTER. 


89F03440 
89F03450 








* 


DETERMINE NUMBER OF BASIC STORAGE MODULES. 


89F03460 








* 














89F03470 


GOOD 





C04C 






LO 




AAC04 




SAVE HIGHEST ADDRESS FOR 


89F03480 


OOOE 





07 00 04AC 






STO 


L3 


II250+1-BASE INTERRUPT SEARCH. GET 


89F03490 


0010 





1800 






SRA 




13 




BSM NUMBER. 


89F0350O 


0011 





8047 






A 




AAC02 




ADJUST. 


89F03510 


0012 





0047 






STO 




AAC04 




SAVE IN AAC04. 


89F03520 


0013 





4700 08FB 






BSI 


L3 


PTOIO-BASE 


ZERO SUMMARY STORAGE. 


89F03530 


0015 







AA020 


EQU 




<i 






89F03540 


0015 





4700 06DA 






BSI 


L3 


MAOIO- 


-BASE 


SPACE ONE LINE. 


89F03550 


0017 





FOOO 






DC 




/FOOO 




LINE FUNCTION. 


89F03560 


0018 





4700 06DA 






BSI 


L3 


MA 010- 


-BASE 


PID MESSAGE. 


89F03570 


OOIA 





OCIB 






DC 




MSGOl-BASE 


MESSAGE. 


89F03580 


OOIB 





4700 06DA 






BSI 


L3 


MAOIO- 


■BASE 


SET PROGRAM SWITCHES. 


89F03590 


0010 





0C26 






DC 




MSG02- 


•BASE 


MESSAGE. 


89F03600 


00 IE 





3002 


WAT02 


WAIT 




/02 




WAIT FOR SWITCH SETTINGS 


89F03610 








* 














89F03620 








« 


CHECK FOR EXPLICIT OR 


EXTERNAL BSM TEST. 


89F03630 








# 














89F03640 


OOIF 







AA022 


EOU 




# 






89F03650 


00 IF 





0872 






XIO 




AAC50 




CHECK DES 4-7. 


89F03660 


0020 





1004 






SLA 




FOUR 




GET RID OF OTHER SWITCHES. 


89F03670 


0021 





180C 






SRA 




12 






89F03680 


0022 





48 20 






SKP 




Z 




SKIP IF NONE SET. 


89F03690 


0023 





700A 






B 




AA030 




BRANCH FOR EXPLICIT TEST. 


89FO3700 


0024 





D039 






STO 




AACIO 




ALL MODULES TO BE TESTED. 


89F03710 


0025 





086C 






XIO 




AAC50 




TEST FOR DES 8. 


89F03720 


0026 





1008 






SLA 




EIGHT 




SHOULD BE OFF. 


89F03730 


0027 





4810 






SKP 




- 




SKIP IF ON. 


89F03740 


0028 





7058 






B 




AAIOO 




BRANCH IF OFF. 


89F03750 


0029 





4700 06DA 






BSI 


L3 


MAOIO- 


•BASE 


ILLEGAL OES SETTING. 


89F03760 


002B 





0C2E 






DC 




MSG03- 


BASE 


MESSAGE. 


89F03770 


002C 





3004 


WAT04 


WAIT 




/04 




WAIT. 


89F03780 


002D 





70F1 






B 




AA022 




RETRY TEST. 


89F03790 


002E 







AA030 


EQU 




* 






89F038O0 


002E 





D02F 






STO 




AACIO 




SAVE SW. SET. AS BSM KEY. 


89F03810 


002F 





902A 






S 




AAC04 




COMPARE TO MAX BSM. 


89F03820 


0030 





4830 






SKP 




-Z 




SKIP IF VALID BSM. 


89F03830 


0031 





7022 






B 




AA040 




BRANCH IF ILLEGAL BSM. 


89F03840 


0032 





085F 






XIO 




AAC50 




TEST FOR DES SWITCH 8. 


89F03850 


00 33 





1008 






SLA 




EIGHT 






89F03860 


0034 





4810 






SKP 




- 




SKIP IF ON. 


89F03870 


0035 





701B 






B 




AA038 




BRANCH IF OFF. 


89F03880 


0036 





C023 






LD 




AAC04 




MAKE SURE THAT THERE ARE 


89F03890 


0037 





9021 






S 




AAC02 




AT LEAST TWO BSMS. 


89F03900 


0038 





4830 






SKP 




-Z 




SKIP IF NOT. 


89F03910 


0039 





7005 






B 




AA034 




BRANCH IF ALL RIGHT. 


89F03920 


003A 





4700 06DA 






BSI 


L3 


MAO 10- 


BASE 


PRINT ERROR MESSAGE. 


89F03930 


003C 





0C35 






DC 




MSG04- 


BASE 


MESSAGE. 


89F03940 


003D 





3006 


WAT06 


WAIT 




/06 




WAIT. 


89F03950 


00 3E 





70E0 






B 




AA022 




RETURN TO TEST. 


89F03960 


003F 







AA034 


EOU 




* 




MAKE SURE CFT NOT IN BSM 


89F03970 


003F 





C301 






LD 


3 


ONE 




FOR EXTERNAL TEST. 


89F03980 


004 





180C 






SRA 




12 






89F03990 


0041 





8017 






a 




AAC02 






89F04000 


0042 





1801 






SRA 




ONE 






89F04010 


0043 





FOIA 






EOR 




AACIO 




COMPARE TO EXPLICIT BSM. 


89F04020 


0044 





4820 






SKP 




Z 




SKIP IF EQUAL. 


89F04030 


0045 





7038 






B 




AAIOO 




BRANCH TO EXECUTE. 


89F04040 


0046 





C301 






LD 


3 


ONE 




SEE IF POSSIBLE TO 


89F04050 


0047 





180D 






SRA 




13 




RELOCATE TO NEXT LOWER 


89F04060 


0048 





9010 






S 




AAC02 




BSM. 


89F04070 


0049 





4810 






SKP 




- 




SKIP NOT POSSIBLE. 


89F04080 


004 A 





7003 






B 




AA036 




BRANCH TO RELOCATE. 


89F04090 



DATE 
EC NO. 



14N0V69 
431319 



30JAN7Q 
4313I9A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
3 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
3A 
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004B 





C301 






LD 


3 


ONE 


004C 





180D 






SRA 




13 


004D 





800B 






A 




AAC02 


004E 









AA036 


EQU 




* 


004E 





800A 






A 




AAC02 


004F 





4F00 


0787 




B 


L3 


NAOIO-BASE 


0051 









AA038 


eou 




* 


0051 





COOC 






LD 




AACIO 


0052 





4F00 


07 87 




B 


L3 


NAOIO-BASE 


0054 









AA040 


EOU 




* 


0054 





4700 


06 DA 




BSI 


L3 


MAOIO-BASE 


0056 





0C3D 






DC 




MSG06-BASE 


0057 
0058 






300A 
70C6 




WATOA 


WAIT 
B 




/OA 
AA022 



RELOCATE TO NEXT 
HIGHER BSM. 

RELOCATE CORE TEST TO 
ANOTHER BSM FOR EXTERNAL 
TEST. 



INDICATE BSM TO RELOCATE 

AND RELOCATE. 
ILLEGAL BSM INDICATED. 
PRINT ERROR MESSAGE. 
MESSAGE. 
ERROR WAIT. 
RETURN TO TEST. 
«#*!!!«*#***«**«#«**«**««*****«***«*#**************** 89 F 04240 
« « 89F04250 

* CONSTANTS AND WORK AREAS * 89F04260 
« * 89F04270 
**#*#***«*#««**««»***#*****«****««***************** 89F04280 

* * 89F04290 

B9F04300 
89F04310 
89F04320 
89F04330 
89F04340 

89F04350 
89F04360 
89F04370 
89F04380 
89F04390 
89F04400 

«*#*«««*****#**»*****«***«**«********************** 89F04410 
#****«**«***#«*****««******«*********************** 8 9F 04420 

* * 

* INITIALIZE BASE REGISTER * 

###«*#*«***#*#*«***»*«****«**«********************* 89F 04460 

* 89F04470 

THIS SUBROUTINE INITIALIZES THE BASE REGISTER IN* 89F04480 

XR3, THE INTERNAL INTERRUPT CELL IN CORE STORAGE* 89F04490 

8 AND THE RESTART BRANCHES IN LOW CORE.* 89F04500 

* 
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89F04100 
89F04110 
89F04120 
89F04130 
89F04140 
89F04150 
89F04160 
8 9F04170 
89F04180 
89F04190 
89F04200 
89F04210 
89F04220 
89F04230 



0059 
005A 


0001 
0001 


AAC02 
AAC04 


DC 
BSS 


1 
1 


005C 
005D 
005 E 


0001 

0760 

0001 


AAC06 
AACiO 


BSS 

DC 

BSS 


E 1 

/0760 
1 


005F 


7003 


AAC20 


B 


X THREE 


0060 
0061 
0062 


4C00 
FFBO 
0476 


AAC22 
AAC24 
AAC26 
* 


OC 
DC 
DC 


/4C00 

AA020-BASE 

IIOIO-BASE 



INCREMENT. 

NO, OF 8SMS, 1-8. 

lOCC TO SENSE THE SENSE 

SWITCHES. 

BSM KEY STORAGE. 

BRANCH FROM WORD TO 4. 

OP CODE, FORMAT FOR 

BRANCH LONG. 

DISPLACEMENT OF AA020. 

DISPLACEMENT FOR IIOIO. 



006 3 0000 

0064 6801 

0065 

0067 

0068 COl-6 

0069 DlOO 
006A C0F5 





006D 80F3 
006E D105 
006F C301 



006B 
006C 



6700 0000 
6100 



D104 
C301 



89F04430 
89F04440 
89F04450 



POSITION 



CALL - 



BSI 



AA050 



89F04510 

« 89F04520 

* 89F04530 

THE CALL MUST BE A SHORT * 89F04540 



INSTRUCTION. 
XRl MUST BE UNSPECIFIED. 
XR2 IS NOT USED. 

XR3 IS INITIALIZED AS THE PSEUDO BASE 
REGISTER. 



89F04550 
89F04560 
89F04570 
89F04580 

89F04590 
89F04600 
89F04610 
89F04620 
89F04630 



#***«**«#**«*«*#**«**«**»***«**«**«**************** 8 9F 04640 



AA050 DC 
STX 



BASE 



LDX 

LDX 

LD 

STO 

LD 

STO 

LD 

A 

STO 

LO 



*-« 
BASE+1 
L3 «-* 
ZERO 
AAC20 
ZERO 
AAC22 
FOUR 
ONE 
AAC24 
FIVE 
ONE 



1 



PUTS ADDRESS OF BASE IN 

INDEX REGISTER 3. 

XRl POINTER TO WORD ZERO 

SET RESTART BRANCHES 

IN LOW CORE. 

PUT BRANCH LONG TO 

AA020 IN LOW CORE. 



INITIALIZE INTERNAL 



* 89F04650 
89F04660 
89F04670 
89F04680 
89F04690 
89F04700 
89F04710 
89F04720 
89F04730 
89F04740 
89F04750 
89F04760 
89F04770 
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0070 





80F1 


0071 





D108 


0072 





C024 


007 3 





8301 


0074 





D024 


0075 





C022 


0076 





8301 


0077 





0022 


0078 





4F80 



FFFE 



A 


AAC26 


STO 


1 EIGHT 


LD 


AAC60 


A 


3 ONE 


STO 


AAC64 


LD 


AAC62 


A 


3 ONE 


STO 


AAC66 


B 


13 AA050-BASE 



INTERRUPT CELL. 



COMPUTE 
OF BASE 
AREA IN 
COMPUTE 
OF BASE 
AREA IN 
RETURN. 
**«*#*«*******#«*«««******************************* 

* * 

* RE-ENTRY SUBROUTINE * 

* * 
*************************************************** 



ABSOLUTE ADDRESS 
OF TEST PATTERN 
LINE BUFFER. 
ABSOLUTE ADDRESS 
OF FAILURE PATTERN 
LINE BUFFER. 



* THIS ROUTINE RESTORES CONTROL TO THE PATTERN 

* TEST THAT INITIATED THE RELOCATION. 

* 



CALL 



BSI 



DC 



AA080 THE CALLING ROUTINE MUST 
CALCULATE THE ENTRY 
ADDRESS. * 

XXXXX-BASE THE CALLING ROUTINE ALSO* 



SUPPLIES THE RELATIVE 
RE-ENTRY ADDRESS. 

XRl AND XR2 ARE NOT USED. 

XR3 IS RE-INITIALIZED AS THE PSEUDO BASE 
REGISTER. 
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89F04780 

89F04790 

89F04800 

89F04810 

89F04820 

89F04830 

89F04840 

89F04850 

89F04860 

89F04870 

89F04880 

89F04890 

89F04900 

89F04910 

89F04920 

89F04930 

89F04940 

89F04950 

89F04960 

89F04970 

89F04980 

89F04990 

89F05000 

89F05010 

89F05020 

89F05030 

89F05040 

89F05050 

89F05060 

89F05070 

89F05080 

e9F05090 



###«*«#****«****«**»****•**********«*************** 8 9F05100 

* * 89F05110 

ENTRY. 89F05120 

INITIALIZE. THIS INSTRUC- 89F05130 
HON MUST ALWAYS BE SHORT. 89F05140 

GET RELATIVE DISPLACEMENT 89F05150 
OF RETURN ENTRY AND STORE 89F05160 
IN BRANCH OPERAND. 
»#«««#*««**«#****«*«*****«* 

* 

* HOUSEKEEPING * 

* * 

#^**«#«*#**>lc*****« *#***********«**«****** ********** 



007A 





0000 




AA080 OC 


«-* 


007B 





40E7 




BSI 


AA050 


007C 





C780 


0015 


LD 


13 AA080-BASE 


007E 





DOOl 




STO 


AA085+1 


007F 





4FO0 


0000 


AA085 B 


L3 *-* 










** + *#«***#«!!<***♦««««***» 

» 



0081 









AAIOO 


EOU 




* 


0081 





0810 






XIO 




AAC50 


0082 





180C 






SRA 




12 


0083 





DOlO 






STO 




AAC52 


0084 





9010 






S 




AAC56 


0085 





4F28 


006F 




8N 


L3 


BBOIO-BASE 


0087 





4F18 


021D 




BZ 


L3 


CCOIO-BASE 


0089 





FOOC 






EOR 




AAC58 


008 A 





4F18 


03BF 




BZ 


L3 


HZIOO-BASE 


008C 





4700 


060A 




BSI 


L3 


MAOIO-BASE 


008E 





0C80 






DC 




MSGIO-BASE 


008F 





300B 




WATOB 


WAIT 




/OB 


0090 





70C7 






B 




WATOA+1 










* 


»#*#*♦»**«*«** 



SENSE DATA ENTRY SWITCHES 

AND GET SWITCHES 0-3. 

SAVE EXPLICIT ROUTINE NO. 

IF OES. 0-3 ARE OR 1 
ENTER TEST AT BSOlOt IF 
THEY ARE TWO, ENTER AT 

CCOIO, IF THEY ARE 15, 
ENTER SUMMARY, OTHERWISE 
SEND ERROR MESSAGE. 

ERROR WAIT. 
READ SWITCHES AGAIN. 
>*#*♦***#«**#««♦*«**#»<**### 

* 

* CONSTANTS AND WORK AREAS * 

# * 
«*«*«»****«***«*«*♦**********«#***********«******** 



0092 0001 
009 3 0740 

0094 0001 

0095 0002 



AAC50 BSS 

DC 
AAC52 BSS 
AAC56 DC 



lOCC TO SENSE DES. 



/0740 

1 

2 



ROUTINE 
TWO. 



NUMBER. 



89F05170 

89F05180 

89F05190 

89F05200 

89F05210 

89F05220 

89F05230 

89F05240 

89F05250 

89F05260 

89F05270 

89F05280 

89F05290 

89F05300 

e9F0531O 

89F05320 

89F05330 

89F05340 

89F05350 

89F05360 

89F05370 

89F05380 

89F05390 

89F05400 

89F05410 

89F05420 

89F05430 

89F05440 

89F05450 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
4 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
4A 



f > 






4 > 

4 i 



4 \ 



f >■ 






.f > 

'•4. i 



4 y 



4 > 



i> 



4 > 









i, 1 



A i' 



■f\ 


,f> 


f > 


f> 


\ ll> 


A. > 


i > 


4 > 



f"> 






If \ 



4 >■• 



(I t 






4 > 



i""> 






i -y 



i 



( < ( ( ( ( < < ( ( ( ( ( ( ( ( ( ( ( ( < ( ( C ( C C € C C C C ( ( 
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0096 GOOD 

0097 OBCF 

0098 OBDB 

0099 0001 
009A 0001 



009B 



OOAB 





0005 


OOAC 





0000 


OOAO 





OAOA 


OOAE 





0000 


OOAF 





1631 


00 BO 





3913 



AAC58 DC 13 10. PATTERN SUMMARY. 

« RELATIVE ADDRESS OF TEST 

AAC60 DC SUC88-BASE PATTERN AREA. 

* RELATIVE ADDRESS OF 
AAC62 DC SUC90-BASE FAILURE PATTERN AREA. 
AAC6A BSS 1 ABSOLUTE ADDRESS OF SUC88. 
AAC66 BSS 1 ABSOLUTE ADDRESS OF SUC90. 

* * 

* 

* LOWER ADDRESS LIMIT OF PATTERN TESTS. 
PTEST EOU * 

« * 

* PREPROCESSING WAIT SUBROUTINE * 

* * 

* # 

* 
* 

* 

* 
* 
* 
« 



009B 





0000 




ABOIO 


DC 


009C 





0B2D 






XIO 


009D 





48 OA 






SKP 


009E 





7001 






B 


009F 





7009 






B 


OOAO 









AB015 


EOU 


OOAO 





6A0B 






STX 


OOAl 





COOA 






LO 


00A2 





4700 


0437 




BSl 


00A4 





0007 






STD 


00A5 





4700 


06DA 




BSI 


00A7 





0046 






DC 


00A8 





300C 




WATOC 


WAIT 


00A9 









AB020 


EOU 


00 A 9 





4F80 


0036 




B 



* THIS SUBROUTINE TESTS DATA ENTRY SWITCH 15 AND 

* PROVIDES FOR A PREPROCESSING WAIT IF IT IS ON. 

* 

* CALL - 
* 

* BSI L3 ABOIO-BASE 
* 

* XRl AND XR2 ARE NOT USED. 

* XR3 IS THE PSEUDO BASE REGISTER. * 

* « 



*-* ENTRY. 

3 AAC50-BASE SENSE DATA ENTRY SWS 

E SKIP IF OFF. 

AB015 SKIP IF ON. 

AB020 BRANCH IF OFF. 

* 

2 ABC92 CONVERT ROUTINE 10. TO 

ABC92 TWO 1443 CHARACTERS. 
L3 ICOIO-BASE STORE IN MESSAGE. 

ABC92 
L3 MAOIO-BASE WRITE MESSAGE. 

ABC90-BASE MESSAGE. 

/DC WAIT. 



13 ABOIO-BASE RETURN. 

* ♦ 

* * 

* CONSTANTS AND MESSAGE * 

* « 

* # 
ABC90 DC 5 MESSAGE. 

ABC92 DC /OOOO MESSAGE ID., FILLED IN. 

DC /OAOA 00 

DC /OOOO 

DC /1 631 WA 

DC /3913 IT 

* * 

* * 

« SET STATUS FLAG WORD * 
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89F05460 
89F05470 
89F05480 
89F054 90 
89F05500 
89F05510 
89F05520 
89F05530 
89F05540 
89F05550 
89F05560 
89F05570 
89F05580 
89F05590 
89F05600 
B9F05610 
89F05620 
89F05630 
89F05640 
89F05650 
89F05660 
89F056 70 
89F05680 
89F05690 
89F05700 
89F05710 
89F05720 
89F05730 
89F05740 
89F05750 
89F05760 
89F05770 
e9F05780 
89F05790 
89F05800 
89F05810 
89F05820 
89F05830 
89F05840 
89F05850 
89F05860 
89F05870 
89F05880 
89F05890 
89F05900 
89F05910 
89F05920 
89F05930 
89F05940 
89F05950 
89F05960 
89F05970 
89F05980 
89F05990 
89F06000 
89F06010 
89FD6020 
89F06030 
89F06040 
89F06050 
89F06060 

89F06070 
89F06080 
89F06090 
89F06100 
89F06110 
e9F06120 
89F06130 
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OOBl 





OOOO 


00B2 





0B2D 


00B3 





E019 


00B4 





1804 


00B5 





0018 


00B6 





1803 


0087 





4804 


00B8 





7006 


00B9 





C3F9 


OOBA 





4808 


OOBB 





7003 


OOBC 





coil 


OOBD 





E811 


OOBE 





DOOF 


OOBF 







OOBF 





C301 


OOCO 





1804 


OOCl 





1889 


00C2 





800D 


00C3 





F3F5 


00C4 





4820 


00C5 





7003 


00C6 





C007 


0OC7 





E808 


OOCB 





7001 


00C9 







00C9 





C004 


OOCA 







OOCA 





1881 


OOCB 





4F80 004C 



THIS SUBROUTINE BUILDS A WORD OF FIVE FLAGS 
TO INDICATE THE STATUS OF THE PROGRAM AFTER 
A PATTERN TEST. 

UPON EXIT THREE OF THE FLAGS WILL BE IN THE 
ACCUMULATOR, BITS 13-15, AND TWO OF THE FLAGS 
WILL BE IN THE EXTENSION, BITS £ 1. 

CALL - 



BSI 



XRl 



XR3 



L3 ACOIO-BASE 
AND XR2 ARE NOT USED. 
IS THE PSEUDO BASE REGISTER. 



THE SIGNIFICANCE OF THE VALUE IN THE ACCUMULATOR* 



* 

* 
* 
* 

* 
* 
* 

* 
* 
* 
« 
* 
* 
* 

« 
» 

* 

* 
* 

* 
* 
* 
* 

» 
* 

*-« ENTRY, 

AAC50-BASE TEST FOR SWS 8 E 10 



£ 7 



FULL, NORMAL TEST. 
LOOP ON ROUTINE. 
EXPLICIT BSM TEST. 
LOOP ON ROUTINE IN 
EXTERNAL BSM TEST. 
LOOP ON ROUTINE IN 
ARE NOT USED. 



AN EXPLICIT 



* 

« 
BSM. * 



EXTERNAL BSM TEST* 



THE SIGNIFICANCE OF THE VALUES IN THE IS - 



- 

1 - 

2 - 

3 - 



PROGRAM RESIDES IN LOW HALF 
PROGRAM RESIDES IN HIGH HALF 
PROGRAM IS 
BSM. 
PROGRAM IS 



OF 
OF 



IN LOW HALF OF THE LAST 
IN THE HIGH HALF OF THE 



BSM. « 
BSM.* 
« 
* 



LAST BSM. 



ACOlO 



AC020 



AC040 



AC050 



DC 

XIO 

AND 

SRA 

STO 

SRA 

SKP 

B 

LO 

SKP 

B 

LO 

OR 

STO 

EOU 

LD 

SRA 

SRT 

A 

EOR 

SKP 

B 

LD 

OR 

B 

EOU 

LD 

EOU 

SRT 

B 



ACC05 

FOUR 

ACCIO 

THREE 

E 

AC020 

3 AACIO-BASE 

+ 

AC020 

ACCIO 

ACC15 

ACCIO 

* 
3 ONE 

FOUR 

NINE 

ACC20 
3 AAC04-BASE 

Z 

AC040 

ACCIO 

ACC20 

AC050 

* 

ACCIO 

ONE 
13 ACOIO-BASE 



LEAVE BITS 8 £ 10. 

SHIFT TO POSITION 12 £ 14, 

SET WORD AND SAVE FLAGS. 

IF EXTERNAL INDICATOR 

ON BRANCH AROUND TEST 

FOR EXPLICIT BSM. 

TEST FOR EXPLICIT BSM. 

SKIP IF SET. 

BRANCH NO EXPLICIT TEST. 

SET INDICATOR ON 

IN FLAG WORD. 

BIT 13. 

PUT HILOW BSM INDICATOR 
INTO BIT OF AND SHIFT 
BSM ADDRESS TO SITS 13-15. 
COMPUTE BSM OF RESIDENCE. 

IS TEST RESIDENT IN 
LAST BSM. SKIP IF SO. 
BRANCH IF NOT. 
SET FLAG. 
BIT 15. 
SKIP. 

LOAD FLAG WORD. 

POSITION FLAG WORD. 
RETURN. 



89F06140 

89F06150 

89F06160 

89F06170 

89F06180 

89F06190 

89F06200 

89F06210 

89F06220 

89F06230 

89F06240 

89F06250 

89F06260 

89F06270 

89F06280 

89F06290 

89F06300 

89F06310 

89F06320 

89F06330 

89F06340 

89F06350 

89F06360 

89F06370 

89F06380 

89F06390 

89F06400 

89F06410 

89F06420 

89F06430 

89F06440 

H9F06450 

89F06460 

89F06470 

89F06480 

89F06490 

89F06500 

89F06510 

89F06520 

89F06530 

89F06540 

89F06550 

89F06560 

89F06570 

89F06580 

89F06590 

89F06600 

89F06610 

89F06620 

89F06630 

89F06640 

89F06650 

89F06660 

89F06670 

89F06680 

89F06690 

89F06700 

89F06710 

89F06720 

89F06730 

89F06740 

89F06750 

89F06760 

89F06770 

89F06780 

89F06790 

89F06800 

89F06810 
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EC NO. 
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431321 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



EXTENDED CORE FUNCTION TEST 



OOCD 





OOAO 


ACC05 


DC 


/OOAO 


OOCE 




0001 


ACCIO 


BSS 


1 


OOCF 





0004 


ACC15 


DC 


/0004 


0000 





0001 


ACC20 


DC 


/OOOl 


OODl 





1000 


ACC22 


DC 


/lOOO 


O0D2 




0001 


ACC24 


BSS 


1 


00D3 




0001 


ACC26 

« 


BSS 


1 



0004 
0004 6201 
00D5 4336 



0006 4700 092C 

0008 E8F8 

0009 D0F8 
OOOA 69F8 



OOOB 4700 06DA 
0000 FOOD 
OODE 4700 06DA 
OOEO 0C88 
OOEl 4700 060A 
00E3 0C97 

O0E4 3020 



00E5 
00E6 
00E7 O 
00E8 
00E9 
OOEB 
OOEB 
OOEC 
OOED 
OOEF 
OOFO 
OOFl 
OOF 2 
00F2 
00F4 
OOFS 



0BF7 
4810 
7003 
1810 • 
D700 04F1 

0B2D 

0067 

0700 04F0 

C3F9 

4818 

7020 

4700 06D2 
FOOO 
4700 0602 



* * 

* CONSTANTS AND WORK AREAS * 

* * 

* * 

MASK TO LEAVE BITS 8 £ 10. 
FLAG WORD STORAGE. 
BIT 13. 

BIT 15 AND CONSTANT ONE. 
BIT 3, 4K ADDRESS BIT. 
END ADDRESS LIMIT. 
START ADDRESS, LOAD LIMIT. 

**«««**♦»**♦#*♦******♦**«*****♦**«***#*«*********** 

* * 
« CORE BEAT PATTERN TEST * 

* * 

* 

» 

« 
* 

* 
* 



THE CORE BEAT PATTERN TEST FILLS A BSM WITH THE * 
WORST CASE PATTERN TEST AND THEN BEATS EACH 
SPECIFIED LOCATION WITH A PATTERN SPECIFIED BY 
THE OPERATOR, FOR ABOUT TWO SECONDS. 



5/2/69 



*##««♦**«»«*#»***«*«**«**««****»** ***************** 



BBOIO ECU * 

LDX 2 ONE 
BSI 

* SET ADDRESS LIMIT. 

* 



ENTER PATTERN TEST. 

XR2 INDICATES ROUTINE ID. 



3 ABOIO-BASE GO TO WAIT TEST 



BSI 
OR 
STO 
STX 



L3 SAIOO-BASE 
ACC22 
ACC24 
1 ACC26 



SET ADDRESS LIMITS. 
MAKE SURE END ADDRESS 
LIMIT IS ON 8K BOUNDARY. 
SAVE START ADDRESS LIMIT. 



* GET CORE BEAT PATTERN FROM OPERATOR 
« 

BSI L3 MAOIO-BASE 

DC /FOOO 

BSI L3 MAOIO-BASE 

DC ' MSGll-BASE 

BSI L3 MAOIO-BASE 

DC MSG12-BASE 



SPACE ONE LINE. 
SPACE FUNCTION. 
WRITE ENTRY MESSAGE. 
MESSAGE. 

WRITE SECOND LINE. 
SECOND LINE. 



WAT20 WAIT 

* 

XIO 

SKP 

B 

SRA 

STO 

BB020 EQU 
XIO 
STO 
STO 
LD 
SKP 
B 

BB030 EOU 
BSI 
DC 
BSI 



/20 



WAIT FOR OES ENTRY. 



3 AAC06-BASE READ STOR PROT SW 
SKIP IF ON. 
BRANCH IF OFF. 
SET STORAGE PROTECT SWITCH 
IN INTERRUPT SUBROUTINE. 



BB020 

16 

IXC14-BASE 

« 

AAC50-BASE 

BBC02 

IXC12-BASE 

AACIO-BASE 

+- 

BB060 

L3 MAOOl-BASE 

/FOOO 
L3 MAOOl-BASE 



L3 



L3 
3 



READ PATTERN 
SAVE PATTERN FOR TEST. 

STORE PATTERN IN INTRPT. 

IF EXPLICIT OR EXTERNAL 
GET ADDRESS LIMITS. 
BRANCH FULL TEST. 

SPACE ONE LINE. 
SPACE FUNCTION. 
WRITE ENTRY MESSAGE. 
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89F06820 

89F06830 

89F06840 

89F06850 

89F06860 

89F06870 

89F06880 

89F06890 

89F06900 

89F06910 

89F06920 

89F06930 

89F06940 

89F06950 

89F06960 

89F06970 

89P06980 

89F06990 

89F07000 

89F07010 

39F07020 

89F07030 

89F07040 

89F07050 

89F07060 

89F07070 

89F07080 

89F07090 

89F07100 

89F07110 

89F07120 

89F07130 

89F07140 

89F07150 

89F07160 

89F07170 

89F07180 

89F07190 

89F07200 

89F07210 

89F07220 

89F072 30 

89F07240 

89F07250 

89F07260 

89P07270 

89F07280 

89F07290 

89F07300 

89F07310 

89F07320 

89F07330 

89F07340 

89F07350 

89F07360 

89F07370 

89F07380 

89F07390 

89F07400 

89F07410 

89F07420 

89F07430 

89F07440 

89F07450 

89F07460 

89F07470 

89F07480 

89F07490 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



EXTENDED CORE FUNCTION TEST 










0OF7 0CA9 




WAT21 


DC 




MS613-BASE 


OOFS 3021 




WAIT 




/21 


00F9 0B2D 






XIO 


3 


AAC50-BASE 


OOFA D05B 






STO 




BBC08 


• OOFB 9007 






S 




ACC26 


OOFC 4828 






SKP 




+Z 


OOFD 706F 






B 




BB180 


OOFE C0D3 






LD 




ACC24 


OOFF 9056 






S 




BBC08 


0100 4828 






SKP 




+Z 


0101 706B 






B 




BB180 


0102 




BB040 


EQU 




* 


0102 4700 1 


3602 




BSI 


L3 


MAOOl-BASE 


0104 FOOO 






DC 




/FOOO 


0105 4700 1 


06D2 




BSI 


L3 


MAOOl-BASE 


0107 OCBB 




* 
WAT22 


DC 




MSG14-BASE 


0108 3022 




WAIT 




/22 


0109 0B2D 




XIO 


3 


AAC50-BASE 


OlOA D04C 






STO 




BBCIO 


OlOB 904A 






S 




BBC08 


OlOC 4828 






SKP 




+Z 


OlOD 7067 






B 




BB190 


OlOE C0C3 






LD 




ACC24 


OlOF 9047 






S 




BBCIO 


0110 4828 






SKP 




+Z 


0111 7063 






B 




BB190 


0112 




BB060 


EQU 




* 


0112 4700 


0602 




BSI 


L3 


MAOOl-BASE 


0114 FOOO 






DC 




/FOOO 


0115 4700 


0602 




BSI 


L3 


MAOOl-BASE 


0117 OCCC 




# 


DC 




MSG15-BASE 


0118 3023 




WAT23 

* 
BB070 


WAIT 




/23 


0119 




EQU 




# 


0119 0B2D 






XIO 


3 


AAC50-BASE 


OllA E041 






AND 




BBC24 


OllB 1807 






SRA 




SEVEN 


one 4804 






SKP 




E 


0110 702B 






B 




BB140 


OllE 1801 






SRA 




ONE 


OllF 4820 






SKP 




Z 


0120 7007 






B 




BB090 


0121 




BB080 


EOU 




* 


0121 4700 


OBFE 




BSI 


L3 


TCOIO-BASE 


0123 4700 


09 2C 




BSI 


L3 


SAIOO-BASE 


0125 0031 






STO 




BBCIO 


0126 D02E 






STO 




BBC06 


0127 7028 




# 


B 




BB147 






« EXPLICIT 


CORE TEST. 


0128 




BB09C 


1 EOU 




* 


0128 C02D 






LD 




BBC08 


0129 D008 






STO 




BBllO+1 


012A F301 






EOR 


3 


1 ONE 


0128 O 1003 






SLA 




THREE 


012C 4810 






SKP 




- 


012D 7006 






B 




BB120 


012E 




BBIOO EQU 




* 


012E 4700 


OBFE 




BSI 


L2 


\ TCOIO-BASE 


0130 0024 






STO 




BBC06 


0131 6500 


0000 


BBllO LDX 


LI 


*-* 


0133 701C 






B 




BB147 



WAIT FOR OES ENTRY. 

READ START ADDRS 
SAVE. 

IS IT 6T OR EQUAL TO START 
LIMIT, SKIP IF SO. 
BRANCH ON ERROR. 
IS IT LT OR EQUAL TO END 
LIMIT. 
SKIP IF SO. 
BRANCH ON ERROR. 

SPACE ONE LINE. 
SPACE FUNCTION. 
WRITE ENTRY MESSAGE. 
MESSAGE. 

WAIT FOR OES ENTRY. 

READ END ADDRS 

SAVE. 

IS IT GT OR EQUAL TO START 

ADDR., SKIP IF SO. 

BRANCH ON ERROR. 

IS IT LT OR EQUAL TO END 

LIMIT. 

SKIP IF SO. 

BRANCH ON ERROR. 

SPACE ONE LINE. 
SPACE FUNCTION. 
WRITE RESET MESSAGE. 
MESSAGE. 

WAIT. 



CK FOR EXPLICIT TEST 
GET EXTERNAL SWITCH AND 
CORE BLOCK. 

BRANCH IF EXTERNAL. 

SKIP NOT EXPLICIT. 
BRANCH IF EXPLICIT TEST. 

LOAD WORST CASE PATTERN. 

SET ADDRESS LIMITS. 
SAVE END TEST ADDRESS. 
SAVE END LOAD. ADDRESS. 
BRANCH TO BEAT TEST. 



PUT STARTING ADDRESS 
IN XRl. 

MAKE SURE STARTING 
ADDRESS IN OTHER 4K. 
SKIP IF IT IS. 
BRANCH TO OSCILLATE. 

LOAD WORST CASE PATTERN. 
SAVE END ADDRESS. 
PUT START AODR. IN XRl. 
BRANCH TO BEAT TEST. 
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89F0750O 
89F07510 
89F07520 
89F07530 

89F07540 

89F07550 

89F07560 

89F07570 

89F07580 

89F07590 

89F07600 

89F07610 

89F07620 

89F07630 

89F07640 

89F07650 

89F07660 

89F07670 

89F07680 

89F07690 

89F07700 

89F07710 

89F07720 

89F07730 

89F07740 

89F07750 

89F07760 

89F07770 

89F07780 

89F07790 

89F07800 

89F07810 

89F07820 

89F07830 

B9F07840 

89F07850 

89F07860 

89F07870 

89F07880 

89F07890 

89F07900 

89F07910 

89F07920 

89F07930 

89F07940 

89F07950 

89F07960 

89F07970 

89F079e0 

89F07990 

89F08000 

89F08010 

89F08020 

89F08030 

89F08040 

89F08050 

89F08060 

89F08070 

89F08080 

89F08090 

89F08100 

89F08110 

89F08120 

89F08130 

89F08140 

89F08150 

89F08160 

89F08170 
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0134 









BB120 


EQU 


♦ 




0134 





4700 


07F3 






BSI 


L3 NE200-BASE 


OSCILLATE AND RE-ENTER 


0136 





00C9 




<c 




DC 


BBIOO-BASE 


AT 8B100. 












LOOP AND 


EXPLICIT TEST 


• 


0137 









BB130 


EOU 


« 




0137 





COIE 








LD 


BBC08 


START AND END 


0138 





FOIE 








EOR 


BBCIO 


ADDRESS IN SAME 4K. 


0139 





180C 








SRA 


12 




013A 





4818 








SKP 


+- 


SKIP IF NOT. 


013B 





70F5 








B 


BBllO 


BRANCH TO BEAT AGAIN. 


013C 





4700 


07F3 






BSI 


L3 NE200-BASE 


OSCILLATE. 


0136 





OODA 








DC 


*-BASE 


RE-ENTER AT NEXT iNSTR. 


013F 





C301 








LD 


3 ONE 


IS PROGRAM IN LOW 


0140 





1003 








SLA 


THREE 


4K. 


0141 





48 28 








SKP 


+Z 


SKIP IF SO. 


0142 





70EB 




^ 




B 


BBIOO 


BRANCH IF NOT. 










* 
BE 


EXPLICIT 


TEST ON HIGH 


"►K. 


0143 









il34 


EQU 


« 




0143 





4700 


OBFE 






BSI 


L3 TCOIO-BASE 


LOAD WORST CASE PATTERN. 


0145 





4700 


092C 






BSI 


L3 SAIOO-BASE 


SET STARTING ADDRESS. 


0147 





0000 








STO 


BBC06 


SAVE END LOAD ADDRESS. 


0148 





7007 




# 




B 


BB147 


BRANCH TO BEAT TEST. 










* 
* 
BB 


EXTERNAL 


TEST. 




0149 









140 


EOU 


* 




0149 





4700 


OBFE 






BSI 


L3 TCOIO-BASE 


LOAD WORST CASE PATTERN. 


0146 





0009 








STO 


BBC06 


SAVE END ADDRESS. 


014C 





C009 








LD 


BBC08 


PUT STARTING 


0140 





DOOl 








STO 


BB146+1 


ADDRESS IN 


014E 





6500 


0000 


BB146 


LDX 


LI *-* 


XRI. 


0150 









BB147 


EQU 


* 




0150 





COOC 








LD 


BBC26 


INCREMENT PASS 


0151 





4700 


08C0 






BSI 


L3 PSOIO-BASE 


COUNTER.. 


0153 





7030 








B 


BB210 


BRANCH TO BEAT TEST. 



0165 



* * 

* CONSTANTS AND WORK AREAS * 

* * 
********««*#***«*«********# *«««*****«*** *********** 

* # 

PATTERN FOR TEST. 
END ADDRESS. LOAD 
START ADDRESS, TEST. 
END ADDRESS, TEST. 
WORK AREA. 
SAVE AREA. 

LOOP COUNT FOR 2500 PASSES 
ONE. 
CORE BLOCK, EXTERNAL SW. 

LOOP TALLEY TABLE ADDRESS 
FLAG TABLE BASE ADDRESS. 
FULL, NORMAL TEST. 
LOOP ON ROUTINE. 
EXPLICIT BSM TEST. 
LOOP AND EXPLICIT. 
EXTERNAL BSM TEST. 

LOOP AND EXTERNAL. 

* * 

* 

* BEAT TEST DONE. 
* 

BB150 EOU * 



0154 




0001 


BBC02 


BSS 




0155 




0001 


8BC06 


BSS 




0156 




0001 


BBC08 


BSS 




0157 




0001 


BBCIO 


BSS 




0158 




OOOl 


BBC14 


BSS 




0159 




0001 


BBC18 


BSS 




015A 





09C5 


BBC20 


DC 


2501 


015B 





0001 


BBC22 


DC 




015C 





0F80 


BBC24 


DC 


/0F80 


015D 





OF 75 


BBC26 


DC 


PXK60-BASE 


015E 





OOFA 


B8C28 


DC 


BBC30-6ASE 


015F 





0207 


BBC30 


DC 


8B300-BASE 


0160 





0208 




DC 


BB400-BASE 


0161 





020E 




DC 


BB500-BASE 


0162 





00D2 




DC 


BB130-BASE 


0163 





0217 




DC 


BB600-BASE 


0164 





00E9 




DC 


BB146-BASE 



89F08180 
89F08190 
89F08200 
89F08210 
89F08220 
89F08230 
89F08240 
89F08250 
89F08260 
89F08270 
89F08280 
89F0 8290 
89F08300 
89F08310 
89F08320 
89F08330 
89F08340 
89F08350 
89F08360 
89F08370 
89F08380 
89F08390 
89F08400 
89F08410 
89F08420 
89F08430 
89F08440 
89F08450 
89F08460 
89F08470 
89F08480 
89F08490 
89F08500 
89F085i0 
89F08520 
89F08530 
89F08540 
89F08550 
89F08560 
89F08570 
89F08580 
89F08590 
89F08600 
89F08610 
89F08620 
89F08630 
89F08640 
89F08650 
89F08660 
89F08670 
89F08680 
89F08690 
89F08700 
89F08710 
89F08720 
89F08730 
89F08740 
a9F08750 
89F08760 
89F08770 
89F08780 

a9F08790 
89F08800 
89F08810 
89F08820 
89F08830 
89F08840 
89F08850 



0165 434C 



0166 80F7 

0167 0001 

0168 C700 0000 
016A DOOl 
016B 4F00 0000 



BSI 3 

« UPON RETURN 

A 
STO 

BB160 LD 

STO 
BB170 B 



L3 



0160 

016D 

016F 

0170 

0172 

0173 

0175 

0175 

0177 

0178 

017A 

017B 

017D 

017D 

017E 

017F 

0180 

0181 

0183 

0183 

0185 

0186 

0187 

0188 

0189 

018A 

018B 

018C 

0180 

018E 

018F 

0190 

0191 

0191 

0192 

0193 

0194 

0195 

0197 

0198 

0199 

019B 

019B 

019C 

019D 

019D 

019E 

019F 

OlAO 

OlAl 

01A2 

01A3 

01A4 

01A5 

01A6 

01A7 



4700 
FOOD 
4700 
0C09 

4F00 











4700 
FOOD 
4700 
0CD9 
4F00 


ClOO 
F0D5 
4818 
7002 
4700 


2D40 
C0D3 
0100 
6900 
COCF 
FOCO 
4818 
70D9 
COCB 
F0C7 
4818 
70D5 
7101 



06D2 
06D2 
0080 
06D2 
06D2 
0090 



0614 
0000 



ClOO 
D0C6 
COCO 
DlOO 
C700 
4820 
7002 
2041 



04F1 



0000 



COBE 
OOBB 



COBA 
90BC 
D0B8 
4818 
700B 
ClOO 
ClOO 
ClOO 
ClOO 
ClOO 
ClOO 



L3 

» DES ENTRY E 

BB180 EQU 

BSI L3 

DC 

BSI L3 

DC 

B L3 
BB190 EOU 

BSI L3 

DC 

BSI L3 

DC 

B L3 
BB200 EOU 

LD 1 

EOR 

SKP 

B 

BSI L3 
8B205 EQU 

STS LI 

LD 

STO 1 

STX 1 

LD 

EOR 

SKP 

B 

LD 

EOR 

SKP 

B 

MOX 1 
BB210 EQU 

LD 1 

STO 

LD 

STO 1 

LD L3 

SKP 

6 

STS LI 

BB220 EOU 
LD 
STO 

BB230 EQU 
LD 
S 

STO 
SKP 
B 

LD 1 
LD 1 
LD 1 
LD 1 
LD 1 
LD 1 



ACOIO-BASE SET STATUS FLAG WORD 

THERE IS A VALUE OF - 5 IN THE ACC. 

BBC28 COMPUTE TABLE ADDRESS AND 

BB160+1 STORE IN LOAD OPERAND. 

*-* GET TABLE ENTRY AND 

BB170+1 BUILD BRANCH TO 

*-* ROUTINE ENTRY. 



RROR SUBROUTINES. 



-BASE 
-BASE 
-BASE 



-BASE 
-BASE 
-BASE 



MAOOl-BASE 

/FOOD 

MAOOl- 

MSG16- 

BB030- 

» 

MAOOl-BASe 
/FOOD 

MAOOl- 
MSG16- 
BB040- 

ZERO 

BBC02 

+- 

BB205 

JA010-6ASE 

ZER0,/40 

BBC18 

ZERO 

BBC14 

BBC14 

BBCIO 

+- 

BB150 

8BC14 

BBC06 

+- 

B8150 

ONE 

* 

ZERO 

BBC18 

BBC02 

ZERO 

IXC14-BASE 

Z 

BB220 

ZER0,/41 

BBC20 
BBC14 

BBC14 

BBC22 

BBC 14 

+- 

8B200 

ZERO 

ZERO 

ZERO 

ZERO 

ZERO 

ZERO 



SPACE ONE LINE. 

SPACE FUNCTION. 
WRITE ERROR MESSAGE. 
MESSAGE. 
GET DES. AGAIN. 

SPACE ONE LINE. 
SPACE FUNCTION. 
WRITE ERROR MESSAGE. 
MESSAGE. 
GET DES. AGAIN. 

BE SURE WORD IN CORE IS 
STILL THE SAME AS THE 
TEST WORD. 

BRANCH TO CONTINUE IF SO. 
LOG ERROR. 

RESET STORAGE PROTECT BIT. 
RESTORE WORST 
CASE PATTERN. 

CHECK FOR END ADDRESS 
OF TEST. 

SKIP NOT DONE. 

BRANCH IF DONE. 

END OF CORE 

BLOCK. 

SKIP NOT DONE. 

BRANCH IF DONE. 

INCREMENT ADDRESS REGISTER 

SAVE WORST CASE PATTERN 
FOR BEAT TEST. 
PUT TEST WORD IN CORE 
LOCATION TO BEAT. 

IF STORAGE PROTECT SWITCH 
IS ON, SET STORAGE PROTECT 
BIT ON IN TEST WORD. 



INITIALIZE LOOP COUNTER 
IN WORK AREA. 

DECREMENT BEAT LOOP 
COUNTER. 

SKIP NOT DONE. 
BRANCH IF BEAT DONE. 
EXECUTE ABOUT 500,000 LOAD 
INSTRUCTIONS. 



89F08860 
89F08870 
89F08880 
89F08890 
89F08900 
89F08910 
89F08920 

89F08930 

89F08940 

89F08950 

89F08960 

89F08970 

89F08980 

89F08990 

89F09000 

89F09010 

89F09020 

89F09030 

89F09040 

89F09050 

89F09060 

89F09070 

89F09080 

89F09090 

89F09100 

89F09110 

89F09I20 

89F09130 

89F09140 
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89F09170 
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89F09190 
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89F09210 

89F09220 

89F09230 

89F09240 

89F09250 

89F09260 

89F09270 

89F09280 

89F09290 

8 9F09300 

89F09310 

89F09320 

89F09330 

89F09340 

89F09350 

89F09360 

89F09370 

89F09380 

89F09390 

89F0940n 

89F09410 

89F09420 

89F09430 

89F09440 

89F09450 

89F09460 

89F09470 

89F09480 

89F09490 

89F09500 

89F09510 

89F09520 

89F09530 
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1 ZERO 
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0268 ClOO 


LO 


1 ZERO 


89F11460 


0269 ClOO 


LD 


1 ZERO 


89F11470 


026A 4F00 0138 


B 


L3 BB230-8ASE LOOP ON BEAT 


STREAM, 89F11480 




<c 




89F11490 




* FULL NORMAL TEST. 


89F11500 




« 




89F11510 


026C 

026C 4700 07DC 


BB300 EOU 
BSI 


* 89F11520 
L3 NEOIO-BASE RELOCATE CORE TEST. 89F11530 


026E OOBC 


DC 


BB080-BASE RE-ENTRY ADDRESS 89Fll54n 


026F 0217 


DC 


BB600-BASE PARAMETERS. 


89F11550 




* 




89F11560 




* LOOP ON 


PATTERN TEST. 


89F11570 



0270 

0270 4700 07F7 

0272 OOBC 



0273 
0273 
0275 
0276 
0277 



C700 00F2 
1003 



4810 

7004 

0278 4700 07FB 
027A OOOE 
0278 0217 



027C 
027C COOO 
027D D700 04F1 
027F C32F 
0280 4F20 038F 



0282 
0282 
0283 
0284 
0284 
0285 
0287 
0288 
0289 
028B 
028D 
028E 
0290 
0291 
0293 
0294 



C03B 
4700 08C0 





6202 

4336 







4057 

0000 

4700 090F 

DFOO 0365 

18 DO 

9700 0365 

8023 

D700 0367 

C02B 



D029 



0295 
0295 
0296 
0297 



4039 
1800 
801D 

0298 DOOl 

0299 C700 0000 
029B DOOl 
029C 4F00 0000 



029E 
029E COIF 
029F 9014 
02A0 0010 
02A1 4820 
02A2 70F2 



BB400 EOU * 

BSI L3 NE300-BASE MOVE ANYWHERE. 

DC 8B080-BASE RE-ENTER AT BB080. 
* 

* EXPLICIT BSM TEST. 
* 

L3 BBCIO-BASE IS END ADDRASS IN HI 4K. 

THREE 

SKIP IF SO. 

BB600 BRANCH PROGRAM IN HIGH 4K. 
L3 NE400-BASE 

BB134-BASE RE-ENTRY ADDRESS 

BB600-BASE PARAMETERS. 



BB500 EOU 

LD 

SLA 

SKP 

B 

BSi 

DC 

DC 
* 

* PATTERN TEST DONE. 

BB600 EOU * 

LD * RESET STORAGE PROTECT 

STO L3 IXC14-BASE SWITCH IN INTRPT. RTN. 

LD 3 AAC52-BASE TEST FOR EXPLICIT RTN 

BNZ L3 HZIOO-BASE 

* * 

» RANDOM DATA, MIXED OPERATIONS PATTERN TEST * 

* « 

* 

* 

CCOIO EOU * ENTER PATTERN TEST. 

LOX 2 TWO XR2 INDICATES ROUTINE ID. 

BSI 3 ABQIO-BASE GO TO WAIT TEST 

CC020 EOU * 

LD CCCIO INCREMENT PASS 

BSI L3 PSOIO-BASE COUNTER. 

BSI CDOIO LOAD RANDOM DATA INTO CORE 

DC /OOOO GENERATION PARAMETER. 

BSI L3 SAOIO-BASE DETERMINE ADDRESS LIMITS. 

STD L3 CEC04-BASE SAVE, AND COMPUTE TOTAL 

XCH NUMBER OF WORDS IN BLOCK 

S L3 CEC04-BASe FOR INDEXING. 

A CCCOl 

STO L3 CEC08-BASE 



LD 
STO 



CCC08 
CCC06 



* 

CDOOl 
13 

CCC02 
CC050+1 

L3 *-* 

CC060+1 

L3 *-* 



* DISTRIBUTOR. 

CC040 EOU 

BSI 

SRA 

A 

STO 
CC050 LD 

STO 
CC060 B 
» 

* RETURN HERE. 
# 

CC070 EQU * 

LD CCC06 

S CCCOl 

STO CCC06 

SKP Z 

B CC040 

* EXERCISE DONE. 



LOAD LOOP COUNTER. 



GENERATE A RANDOM NUMBER. 
USE BITS 0-2. 



ENTER EXERCISE ROUTINE. 



DECREMENT LOOP 
COUNTER. 

SKIP WHEN ZERO. 
LOOP. 
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089F-1 
9A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



EXTENDED CORE FUNCTION TEST 

02A3 403B 
02A4 0001 
02A5 434C 



02A6 801A 
02A7 DOOl 
02A8 C700 0000 
02AA 0001 
02AB 4F00 0000 



02AD 

02AD 4700 07DC 
02AF 021F 
02B0 03BF 



02B1 

02B1 4700 07F3 

02B3 021F 



BSI 

DC 
BSI 



CDOIO 
/OOOl 
3 ACOIO-BASE 



CHECK RANDOM NUMBERS. 
CHECKING PARAMETER. 
SET STATUS FLAG WORD 



* UPON RETURN THERE IS 

* 



CC120 



A 

STO 
LD 
STO 

B 



L3 



L3 



CCC12 
CC120+1 

*-* 

CC130+1 
»-* 



A VALUE OF - 5 IN THE ACC. 

COMPUTE TABLE ADDRESS 

AND STORE IN LOAD OPERAND. 



PART NO. 
PAGE 



89F12260 
89F12270 
89F12280 
89F12290 
89F12300 
89F123I0 
89F12320 
89F12330 



2279488 
10 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



GET TABLE ENTRY AND BRANCH 89F12340 



CC130 
* 

# FULLf NORMAL TEST. 
♦ 

CC140 EQU * 

BSI L3 NEOIO-BASE 

DC CC020-BASE 

DC CC520-BASE 

* LOOP AND EXPLICIT. 
* 

CC150 EQU * 

BSI L3 NE200-BASE 

DC CC020-BASE 



TO ROUTINE 
ENTRY. 



RELOCATE CORE TEST. 

RE-ENTRY ADDRESS 
PARAMETERS. 



89F12350 
89F12360 
89F12370 
89F12380 
89F12390 
89F12400 
89F12410 
89F12420 
89F12430 
89F12440 
89F12450 
89F12460 
89F12470 
89F12480 
89FI24gO 



OSCILLATE, 
RE-ENTER AT CC020. 

«*#***#***»****«#**«******************************* 89F12500 
^ * 89F12510 

* CONSTANTS AND WORK AREAS * IgFllilo 

*************************************************** 89F12540 

* 89F12550 



02B4 





0001 


* 
CCCOl 


DC 


1 


02B5 





0251 


CCC02 


DC 


CCC04-BASE 


02B6 





030E 


CCC04 


DC 


CEOIO-BASE 


02B7 





0327 




DC 


CEllO-BASE 


02B8 





0336 




DC 


CE210-BASE 


02B9 





034B 




DC 


CE310-BASE 


02BA 





036B 




DC 


CE410-BASE 


02BB 





0385 




DC 


CE510-BASE 


02BC 





03A8 




DC 


CE610-BASE 


02 BO 





0239 




DC 


CC070-BASE 


02BE 




0001 


CCC06 


BSS 


1 


02BF 





03E8 


CCC08 


DC 


1000 


02C0 





OF 75 


CCCIO 


DC 


PXK60-BASE 


02C1 





0250 


CCC12 


DC 


CCC14-BASE 


02C2 





0248 


CCC14 


DC 


CC140-BASE 


02C3 





0263 




DC 


CC300-BASE 


02C4 





0266 




DC 


CC400-BASE 


02C5 





024C 




DC 


CC150-BASE 


02C6 





03BF 




DC 


Ce520-BASE 


02C7 





021F 


:^ 


DC 


CC020-BASE 








J|S#**J)!>11#«!!C*«»*#*****#*«** = 








* 

» LOOP ON 


PATTERN TEST. 


02C8 







CC300 


EQU 


« 


02C8 





4700 07F7 




BSI 


L3 NE300-BASE 


02CA 





021F 


* 

* EXP 


DC 


CC020-BASE 








LICIT 


BSM TEST. 


02CB 







CC400 


EOU 


* 


02CB 





4700 07FB 




BSI 


L3 NE400-BASE 


02CD 





021F 




DC 


CC020-BASE 


02CE 





038F 




DC 


CC520-BASE 



1. 

2. 
3. 
4. 
5. 
6. 



7. 



ONE. 

EXERCISE TABLE BASE 

RANDOM EXERCISE 0. 

RANDOM EXERCISE 

RANDOM EXERCISE 

RANDOM EXERCISE 

RANDOM EXERCISE 

RANDOM EXERCISE 

RANDOM EXERCISE 

NO ROOM FOR EXERCISE 
PASS COUNTER. 
NO. OF PASSES. 

LOOP TALLEY TABLE ADDRESS 

FLAG TABLE BASE ADDRESS. 

FULLt NORMAL TEST. 

LOOP ON ROUTINE. 

EXPLICIT BSM TEST. 

LOOP AND EXPLICIT. 

EXTERNAL BSM TEST. 

LOOP AND EXTERNAL. 



MOVE ANYWHERE AND 
RE-ENTER AT CC020. 



89F12560 
89F12570 
89F12580 
89F12590 
89F12600 
89F12610 
89F12620 
89F12630 
89F12640 
89F12650 
89F12660 
89F12670 
89F12680 
89F12690 
89F12700 
89F12710 
89F12720 
89F12730 
89F12740 

89F12750 
89F12760 
89F12770 
89F12780 
89F12790 
89F12800 
89F12810 
89F12820 
89F12830 
89F12840 
89F12850 
89F12860 
89F12870 
89F12880 
89F12890 
89F12900 



RE-ENTRY ADDRESS 
PARAMETERS. 
*************************************************** 8 9F 129 10 

* RANDOM NUMBER GENERATOR 



EXTENDED CORE FUNCTION TEST 



» 

* 

ENTRY. 

DEVELOP tow ORDER 

PRODUCT OF NEW RANDOM 

NUMBER. 

DEVELOP PRODUCT OF 

HIGH ANO LOW TERMS 

16 BITS TO NEW PRODUCT. 



02CF 


0000 


CDOOl DC 


«-* 


02D0 


C06E 


LO 


CDC 06 


02D1 


A071 


M 


CDC 10 


02D2 


D871 


STD 


CDCll 


0203 

0204 


C06A 

A06E 


LD 

M 


CDC 04 
CDCIO 


0205 


1800 


XCH 




0206 


806D 


A 


CDCll 


02D7 


D06C 


STO 


CDCll 


02D8 


C066 


LD 


CDC 06 


02D9 


A068 


M 


CDC08 


02DA 


1090 


SLT 


16 


020B 


8868 


AD 


CDCll 


020C 


D861 


STD 


CDC 04 


02DD 


4F80 026A 


B 


13 COOOl 



* 89F12920 

* 89F12930 



02DF 

02E0 

02E1 

02E2 

02E3 

02E4 

02E5 

02E7 

02E8 

02E8 

02E9 

02EA 

02EB 

02EC 

02ED 

02EE 

02EF 

02F0 

02F1 

02F2 

02F3 

02F3 

02F5 

02F6 

02F7 

02F8 

02F9 

02FA 



0000 
C05B 

4820 

7010 

6858 

C058 

0400 0006 

085E 



C056 
BOCA 
D054 

085E 
1002 
4810 
70F9 
0858 

C04E 

E8C2 

D04C 













C780 027A 
4820 



7007 
C05A 
DOID 
C05A 
DOID 



D ij ^.u^-^i BASE RETURN. ^^^^*** 

« 

# RANDOM DATA GENERATOR, ': 

* * 



THIS SUBROUTINE GENERATES RANDOM NUMBERS AND 
STORES THEM IN THE STORAGE BLOCK TO BE 
EXERCISED. 



CALL - 
BSI 
XRl 
XR3 



CDOIO 
AND XR2 ARE NOT USED. 
IS THE PSEUDO BASE REGISTER. 



6/3/69 



««*»****##**#****«********************************* 



* 

CDOIO DC 
LD 
SKP 
B 

STX 
LD 
STO 
XIO 

CD030 EOU 
LD 
A 

STO 
XIO 
SLA 
SKP 
B 

XIO 
LD 
OR 
STO 
CD040 EOU 
LD 
SKP 
B 

LD 
STO 
LD 
STO 



13 



«-» 

CDCOl 

Z 

CD040 

CDCOl 

CDC03 

SIX 

CDC12 

* 

CDC 06 
CCCOl 
CDC06 
C0C16 
TWO 

CD030 
C0C14 
CDC06 
CCCOl 
C0C06 
# 

CDOIO- 

Z 

C0042 

CDC30 

C0064 

cnc34 

CD066 



ENTRY. 

IF NEVER ENTERED SUB- 
ROUTINE, GENERATE STARTING 
VALUE FOR RANDOM NUMBER 
GENERATOR. 

STORE IN TIMER C. 
START TIMER C. 

INCREMENT RANDOM 

NUMBER COUNTER AND 

UPDATE. 

TEST FOR TIMER 

INTERRUPT. 

SKIP If W. 

LOOP. 

STOP TIMER C. 

MAKE SURE STARTING VALUE 

IS UOD. 



■BASE GET CALLING PARAMETER 
AND DETERMINE TASK. 
BRANCH IF CHECKING. 
INITIALIZE STORE AND 
SKIP INSTRUCTIONS THAT 
ARE PECULIAR TO THE 
CALLED TASK. 



PART NO. 2279488 
PAGE 10 A 



89F12940 
89F12950 
89F12960 
89F12970 
89F12980 
89F12990 
89F13000 
89F13010 
89F13020 
89F13030 
89F13040 
89F13050 
89F13060 
89F13070 
89F13080 
89F13090 
89F13100 
89F13110 
89F13120 

89F13130 
89F13140 
89F13150 
89F13160 
89F13170 
89F13180 
89F13190 
89F13200 
89F13210 

89F13220 

89F13230 

89F13240 

89F13250 

89F13260 

89F13270 

89F13280 

89F13290 

89F13300 

89F13310 

89F13320 

89F13330 

89F13340 

89F13350 

89F13360 

89F13370 

89F13380 

89F13390 

89F13400 

89F13410 

89F13420 

89F13430 

89F13440 

89F13450 

89F13460 

89F13470 

89F13480 

89F13490 

89F13500 

89F13510 

89F13520 

89F13530 

89F13540 

89F13550 

89F13560 

89F13570 

89F13580 

89F13590 

89F13600 

89F13610 



DATE 
EC NO, 



14N0V69 
431319 



30,)AN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
10 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
lOA 
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4y 
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4\ 
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4 > 
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f >■ 
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4 >■• 






f > 
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( '( < ( ( ( ( ( < ( ( ( ( < ( ( ( ( < ( ( ( ( ( ( ( ( C ( C ( C ( ( 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
EXTENDED CORE FUNCTION TEST 



PART NO. 2279488 
PAGE llA 



02FB 





C842 




LOO 


CDC 04 


02FC 





D843 




STD 


CDC 07 


02FD 





7006 




B 


CD043 


02FE 







CD042 


EOU 


« 


02FE 





C054 




LD 


CDC32 


02FF 





D016 




STO 


CD064 


0300 





C054 




LO 


CDC36 


0301 





D016 




STO 


C0066 


0302 





08 3D 




LDD 


CDC07 


0303 





D83A 




STO 


CDC 04 


0304 







C0043 


EQU 


* 


0304 





4700 090F 




BSI 


L3 SAOIO-BASE 


0306 





9049 




S 


CDC26 


0307 





4820 




SKP 


Z 


0308 





8047 




A 


CDC26 


0309 





D842 




STO 


C0C18 


030A 







CD045 


EQU 


* 


030A 





DOOC 




STO 


CD064+1 


030B 





C042 




LD 


CDC22 


030C 





D042 




STO 


CDC24 


030D 







CD050 


EQU 


* 


03 OD 





6104 




LDX 


1 FOUR 


030e 





40C0 




BSI 


CDOOl 


030F 





C007 




LD 


CD064+1 


0310 





4828 




SKP 


+ Z 


0311 





7003 




B 


C0060 


0312 





B030 




CMP 


CDC26 


0313 





4838 




SKP 


+-Z 


0314 





7005 




B 


CD070 


0315 







C0060 


EOU 


* 


0315 





C028 




LD 


CDC 04 



0316 D400 0000 



0318 





4838 


0319 





704C 


031A 







031A 





71FF 


031B 





700A 


031C 





C032 


03 ID 





9096 


031E 





48 08 


031F 





7036 


0320 





D02E 


0321 





C02A 


0322 





8091 


0323 





D028 


0324 





00F2 


0325 





70E7 


0326 







0326 





COFO 


0327 





1B8C 


0328 





DOIB 


0329 





1082 


03 2A 





1001 


032B 





1083 


032C 





1001 


032D 





1083 


032E 





1001 


032F 





1084 


0330 





8020 



SAVE STARTING RANDOM 
NUMBER FOR CHECKING. 



INITIALIZE EOR AND SKIP 
IF ZERO INSTRUCTIONS THAT 
ARE PECULIAR TO THE 
CALLED TASK. 
RESTORE STARTING RANDOM 
NUMBER FOR REGENERATION. 

GET ADDRESS LIMITS AND 
SAVE START AND END LIMITS. 
IF START ADDRESS IS TEN, 
MAKE IT ZERO. 



INITIALIZE ADDRESS OPERAND 
INITIALIZE LOOP 

COUNTER. 

QUAD COUNTER. 

GENERATE A RANDOM NUMBER. 

IF ADDRESS 0-9, IGNORE 

IT. 

BRANCH IN HIGH 32K. 

SKIP NEXT INSTRUCTION. 
BRANCH 0-9. 

PUT RANDOM NUMBER IN 

* 

* THE FOLLOWING INSTRUCTION IS A STORE LONG 

* DURING GENERATION AND AN EOR LONG DURING 

* CHECKING. 
* 

CD064 STO L *-* 
* 

« THE FOLLOWING INSTRUCTION IS A SKIP DURING 

* GENERATION AND A SKIP IF ZERO DURING CHECKING. 
* 

COO 66 



CD070 



CD080 



SKP 


+-Z 




B 


CD120 


BRANCH ON ERROR. 


EOU 


* 




MDX 


1 -1 


DECREMENT QUAD COUNTER. 


B 


C0080 


MAKE NEW ADDRESS, LOOP. 


LD 


CDC24 


DECREMENT WORD 


S 


CCCOl 


COUNTER. 


SKP 


+ 


SKIP NOT DONE. 


B 


CD090 


BRANCH WHEN DONE. 


STO 


CDC24 


UPDATE COUNTER. 


LD 


C0C18 


INCREMENT ADDRESS 


A 


CCCOl 


AND UPDATE. 


STO 


C0C18 




STO 


CD064+1 




B 


CD050 


LOOP. 


EOU 


* 




LD 


CD064+1 


MODIFY ADDRESS. 


SRT 


12 


DEVELOP FOUR ADDRESSES 


STO 


CDCll 


LINES AND STORE RANDOM 


SLT 


TWO 


NUMBER. 


SLA 


ONE 




SLT 


THREE 




SLA 


ONE 




SLT 


THREE 




SLA 


ONE 




SLT 


FOUR 




A 


CDC28 





89F13620 

89F13630 

89F13640 

89F13650 

89F13660 

89F13670 

89F13680 

89F13690 

89F13700 

89F13710 

89F13720 

89F13730 

89F13740 

89F13750 

89F13760 

89F13770 

89F13780 

89F13790 

89F13800 

89F13810 

89F13820 

89F13830 

89F13840 

89F13850 

89F13860 

89F13870 

89F13880 

89F13890 

89F13900 

89F13910 

89F13920 

89F13930 

89F13940 

89F13950 

89F13960 

89F13970 

89F13980 

89F13990 

89F14000 

89F14010 

89F14020 

89F14030 

89F14040 

89F14050 

89F14060 

89F14070 

89F14080 

89F14090 

89F14100 

89F14110 

89F14120 

89F14130 

89F14140 

89F14150 

89F14160 

89F14170 

89F14180 

89F14190 

89F14200 

89F14210. 

89F14220 

e9F14230 

89F14240 

89F14250 

89F14260 
89F14270 
89F14280 
89F14290 



0331 





1884 




SRT 




FOUR 




89F14300 


0332 





1801 




SRA 




ONE 




89F14310 


0333 





1883 




SRT 




THREE 




89F14320 


0334 





1801 




SRA 




ONE 




89F14330 


0335 





1883 




SRT 




THREE 




89F14340 


0336 





1801 




SRA 




ONE 




89F14350 


0337 





1882 




SRT 




TWO 




89F14360 


0338 





COOB 




LD 




CDCll 




89F14370 


0339 





108C 




SLT 




12 




89F14380 


033A 





DODC 




STO 




CD064+1 


UPDATE ADDRESS. 


89F14390 


0338 





70D9 




B 




C0060 


LOOP. 


89F14400 








««««««««««««««#«iK«««*4«»«*«««««*««>tt««;ti««:t>#«««««»««3!c* 


89F14410 








* 








« 


89F14420 








* CONSTANTS AND WORK AREAS « 


89F14430 








* 








* 


89F14440 








»««****«««*************#********««****»#**«******#* 


89F14450 








« 








* 


89F14460 


033C 





0000 


CDCOl 


DC 







SUBROUTINE ENTRY SWITCH. 


89F14470 


0330 





FF05 


CDC03 


DC 




/FF05 


COUNT FOR TIMER, -251. 


89F14480 


033E 




0001 


CDC04 


ess 


E 


1 


32 BIT RANDOM NUMBER. 


89F14490 


033F 




0001 


C0C06 


BSS 




1 


USE 16 HIGH ORDER BITS. 


89F14500 


0340 




0002 


CDC07 


BSS 


E 


2 


STORAGE FOR RNG. START NO. 


89F14510 


0342 





02E9 


CDC08 


DC 




/02E9 


5 TO THE 13TH POWER. 


89F14520 


0343 





OEDO 


CDCIO 


DC 




/OEDD 


MULTIPLICATIVE GENERATOR. 


89F14530 


0344 




0002 


CDCll 


BSS 


E 


2 


TEMPORARY STORAGE. 


89F14540 


0346 





2000 


CDC12 


DC 




/2000 


lOCC TO START 


89F14550 


0347 





0420 




OC 




/0420 


TIMER C. 


89F14560 


0348 





0000 


CDC14 


DC 




/OOOO 


lOCC TO STOP 


89F14570 


0349 





0420 




DC 




/0420 


TIMER C. 


89F14580 


034A 




0001 


CDC 16 


BSS 




1 


lOCC TO SENSE 


89F14590 


034B 





0721 




DC 




/0721 


TIMER INTERRUPT. 


89F14600 


034C 




0001 


CDC18 


BSS 


E 


1 


START ADDRESS. 


89F14610 


034D 




0001 


CDC20 


BSS 




1 


END ADDRESS. 


89F14620 


034E 





0400 


CDC22 


DC 




1024 


FOUR IK BLOCKS TO 4K. 


89F14630 


034F 




0001 


CDC24 


BSS 




1 


COUNTER. 


89F14640 


0350 





OOOA 


CDC26 


OC 




10 


TEN. 


89F 14650 


0351 





2444 


CDC28 


DC 




/2444 


BITS FOR QUAD ADDRESSES. 


89F14660 


0352 





0400 


CDC30 


DC 




/D400 


STO L INSTRUCTION. 


89F14670 


0353 





F400 


CDC32 


OC 




/F400 


EOR L INSTRUCTION. 


89F14680 


0354 





48 38 


CDC34 


SKP 




+-Z 


SKIP INSTRUCTION. 


89F14690 


0355 





4820 


CDC36 
* 


SKP 




Z 


SKIP IF ZERO INSTRUCTION. 

* 


89F14700 
89F14710 








****** i*************:******!* «*#«**«*****«««:)< «#*«««## 


89F14720 








* 










89F14730 








« 4K OF CORE 


FILLED. 




89F14740 








* 










89F14750 


0356 







CD090 


EQU 




* 




89F14760 


0356 





C0F5 




LD 




CDC18 


IF THIS IS AN EXTERNAL 


89F14770 


0357 





F0F5 




EOR 




C0C20 


TEST, FILL OTHER 4K. 


89F14780 


0358 





180C 




SRA 




12 




89F14790 


0359 





4818 




SKP 




+- 




89F14800 


035A 





7005 




B 




CDIOO 


BRANCH IF DONE. 


89F14810 


0358 





COFl 




LD 




CDC20 


UPDATE START ADDRESS AND 


89F14820 


035C 





180C 




SRA 




12 


INDICATOR. 


89F14830 


035D 





lOOC 




SLA 




12 




89F14840 


035E 





DOED 




STO 




CDC18 




89FI4850 


035F 





70AA 


* 


B 




C0045 


FILL HI 4K. 


89F14860 
89F14870 








* DONE. 








89F14880 








* 










89F14890 


0360 







CDIOO 


EQU 




* 




89F14900 


0360 





C700 027A 




LD 


L3 


CDOlO-BASe 


INCREMENT EXIT ADDRESS 


89F14910 


0362 





806A 




A 




CEC09 


PAST CALL PARAMETER. 


89F14920 


0363 





DOOl 




STO 




CDllO+1 




89F14930 


0364 





4CO0 0000 


COllO 

* 


B 


L 


*_* 


EXIT WHEN DONE. 


89F14940 
e9F14950 








* ERROR DETECTED. 




89F14960 








* 










89F14970 



DATE 
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CD120 



0366 









0366 





690A 




0367 





C0E2 




0368 





000 1 




0369 





65 00 


0000 


036B 





C0D2 




036C 





D700 


OAFO 


036E 





4700 


0614 


0370 





6500 


0000 


0372 





70A7 





EOU 




* 




STX 


1 


CD140+1 


SAVE XRl. 


LD 




CDC16 


PUT ADDRESS OF FA 


STO 




C0130+1 


IN XRl. 


LDX 


LI 


*-* 




LD 




CDC04 


PUT KNOWN PATTERN 


STO 


L3 


IXC12-BASE 


IXC12 FOR LOG. 


BSI 


L3 


JAOIO-BASE 


LOG ERROR. 


LDX 


LI 


«-« 


RESTORE XRl. 


B 




CD070 


RETURN TO CHECK. 



CD130 „., „ ^^ 



CD140 



* * 

* RANDOM EXERCISE * 
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89F14980 
89F14990 
89F15000 
89F15010 
89F15020 
89F15030 
89F15040 
89F15050 
89F15060 
89F15070 
89F15080 
89F15090 
89F15100 
89F15110 
89F15120 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



EXTENDED CORE FUNCTION TEST 



**#«:(!«**##«**********«*«****«***********«*«******** 89F15130 

« 89F16140 



0373 
0373 
0374 
0375 
03 76 
0377 
0378 
0379 
037A 
037B 
037C 
037D 
037E 
0380 
0381 
0382 
0384 

0386 
0387 
0388 
0389 
038A 





C056 

9058 

DOOD 

C053 

8053 

1801 

9053 
OOOA 
C050 
1801 
DOOl 
65 00 0000 
lOAl 
D846 
C500 0000 
A500 0000 
8841 
D840 
71FF 
70F8 
4F00 02 39 



* 

CEOIO EOU 
LD 
S 

STO 
LD 
A 

SRA 
S 

STO 
LD 
SRA 
STO 

CE020 LDX 
SLT 
STD 
LD 
M 

AO 

STD 

MDX 

B 

B 



CE030 
CE040 



LI 



LI 
LI 



L3 



CEC04 

CEC09 

CE030+1 

CEC04 

CEC06 

ONE 

CEC09 

CE040+1 

CEC08 

ONE 

CE020+1 

*-* 

33 
CEC02 

*-* 
*-* 

CEC02 

CEC02 

-1 

CE030 

CC070-BASE 



COMPUTE STARTING 

ADDRESS AT HALF 
BLOCK BOUNDARIES. 



LOAD INDEX ONE WITH 
HALF THE NUMBER OF 
WORDS IN THE BLOCK. 

ZERO ACCUMULATOR 

WORDS. 

COMPUTE THE SUM OF THE 

MULTIPLES OF THE RANDOM 

NUMBERS OR THE BLOCK. 

DECREMENT COUNTER 
LOOP. 
RETURN TO DISTRIBUTOR. 



* RANDOM EXERCISE 1 

* 



89F15150 
89F15160 
89F15170 
89F15180 
89F15190 
89F15200 
89F15210 
89F15220 
89F15230 
89F15240 
89F15250 
89F15260 
89F15270 
89F15280 
89F15290 
89F15300 
89F15310 

89F15320 
89F15330 
89F15340 
89F16350 
89F15360 
89F15370 
89F15380 
89F15390 
89F15400 
89F15410 



COMPUTE STARTING 
ADDRESS OF BLOCK. 



* * 

«#«**«#*****#************«********«**************** 89F15420 

* « 89F15430 

e9F15440 
89F15450 
89F15460 
89F15470 

INITIALIZE XRl WITH 89F15480 
BLOCK SIZE WORD 89F15490 

COUNT. 89F15500 

LOAD EACH WORD AND COMPARE 89F15510 
WITH MASK. 
SAVE. 

DECREMENT ADDRESS COUNTER. 
LOOP NOT DONE. 
RETURN TO DISTRIBUTOR. 

* 

* * 

* 
« 



038C 






CEUO 


EOU 




« 


038C 


C030 






LD 




CEC04 


038D 


903F 






S 




CEC09 


038E 


D005 






STO 




CE130+1 


038F 


C03C 






LD 




CEC08 


0390 


DOOl 






STO 




CE120+1 


0391 


6500 


0000 


CE120 


LDX 


LI 


«-* 


0393 


C500 


0000 


CE130 


LD 


LI 


*-* 


0395 


FOBB 






EOR 




C0C28 


0396 


D031 






STO 




CEC02 


0397 


71FF 






MDX 


1 


-1 


0398 


70FA 






B 




CE130 


0399 


4F00 


0239 




B 


L3 


CC070-BASE 



89F15520 
89F15530 
89F15540 
89F15550 
89F15560 
89F15570 
89F15580 
89F15590 
89F15600 
89F15610 

«*#«»***«#**«*«*««»****»********»****************** 89F 15620 
if * 89F15630 

89F15640 
PUT STARTING ADDRESS 89F15650 



* RANDOM EXERCISE 2 

* 



0390 

0390 

03 9F 

03A0 

03A0 

03A1 

03A2 

03A3 

03A4 

03A5 

03A6 

03A7 

03A8 

03A9 

03AA 

03AB 

03AC 

03AD 

03AE 



DOOl 
6500 0000 






4838 





















7101 

ClOO 

FlOl 

8029 

ElOO 

1803 

E8AA 

91FF 
OOIF 
691E 
COID 
FOIF 
4820 
70F2 
4F00 0239 



03 BO 

03B0 

03B1 

03B2 

03 B4 

03B5 

03B7 

03B8 

03B9 

03B9 

03BA 

03BB 

03BB 

03BD 

03BE 

03BF 

03C0 

03C2 

03C3 

03C4 

03C6 

03C7 





COIB 

DOOl 

6500 0000 

1003 

4F'1A 0354 

CO'OE 

48 38 



COOD 

0002 



4700 026A 

1800 

E80B 

DOOl 

C400 0000 

71FF 

7 OF 7 

4F00 0239 

1803 

1804 



STO 
CE220 LDX 
SKP 
CE230 EOU 
MDX 
LD 
EOR 
A 

AND 
SRA 
OR 
S 

STO 
STX 
LO 
EOR 
SKP 
B 
B 



CE220+1 
«-* 

+-Z 

* 

ONE 

ZERO 

ONE 

CEC09 

ZERO 

THREE 

CDC28 

-1 

CEC02 

CEC02 

CEC02 

CEC06 

Z 

CE230 
L3 CC070-BASE 



LI 



I 



IN XRl. 



RUN SOKE INSTRUCTIONS 

ON LOCATION AND LOCATIONS 

ON EITHER SIDE. 



COMPARE TO END 
ADDRESS. 

SKIP IF WINE. 
LOOP. 
RETURN TO DISTRIBUTOR. 



PART NO. 
PAGE 



89F15660 
89F15670 
89F15680 
89F15690 
89F15700 
89F15710 
89F15720 
89F15730 
89F15740 
89F15750 
89F15760 
89F15770 
89F15780 
89F15790 
89F15800 
89F15810 
89F15820 
89F15830 
89F15840 
■ B9F15850 



2279488 
12A 



***#**#«#**««**«*«*******«**«************«********* 8 9F 15860 

89F15870 
89F15880 
89F15890 



* 



* RANDOM EXERCISE 3 * 

* * 
*#«**«*#*#*♦***#««** ***«**«**#*«************«****** 8 9F 15900 
J, * 89F15910 



CE310 EQU 
LD 
STO 

CE320 LDX 
SLA 
BSC 
LD 
SKP 

CE330 EOU 
LO 
STO 

CE340 EOU 
BSI 

CE350 SRA 
OR 
STO 

CE360 LD 
MDX 
B 
B 

SRA 
SRA 



* 

CEC08 

CE320+1 
LI *-* 

THREE 
L3 CE330-BASE,C+- 



XRl IS USED AS A 
COUNTER. 



CE3C1 

+-Z 

* 

CE3C2 

CE350 

# 
L3 CDOOl-BASE 



CEC04 

CE360+1 
L *-# 
1 -1 

CE340 
L3 CC070-BASE 

THREE 

FOUR 



89F15920 
89F15930 
89F15940 
89F15950 
89F15960 
89F15970 
89F15980 
89F15990 
89F16000 
89F16010 
89F16020 
89F16030 
89F16040 
89F16050 

BUILD A RANDOM ADDRESS AND 89F16060 
FETCH IT. 89F16070 

89F16080 
89F16090 
89F16100 
89F16110 
89F16120 
89F16130 
89F16140 



BRANCH IF 4K TEST. 
INITIALIZE SHIFT 
INSTRUCTION FOR 8K TEST. 

INITIALIZE SHIFT 
INSTRUCTION FOR 4K TEST. 

GENERATE A RANDOM NUMBER. 



DECREMENT COUNTER. 

RETURN TO DISTRIBUTOR. 
8K SHIFT. 
4K SHIFT. 



* 89F16160 

* 89F16170 



03C8 0002 


CEC02 BSS 


E 2 


03CA 0001 


CEC04 BSS 


E 1 


03CB 0001 


CEC06 BSS 




03CC 0001 


CEC08 BSS 




03CD 0001 


CEC09 DC 




03CE 0001 


CECIO BSS 




03CF 0010 


CEC12 DC 





039B 


CE210 EOU 


* 


039B C02E 


LO 


CEC04 



CE3C1 
CE3C2 

* 

*#***#«*#*««**«****«***««***»«*»***«*************** 89F16150 

# 

* CONSTANTS AND WORK AREAS 
^, * 89F16180 
««#*#***#*#**♦#*«♦*********»*********************** 89F16190 
^ * 89F16200 

89F16210 
89F16220 
89F16230 
89F16240 
89F16250 
89F16260 
89F16270 
89F16280 

«**««*#****##*#****«****«***«********«************* 89F16290 
^ « 89F16300 

* RANDOM EXERCISE 4 * B9F16310 
^ « 89F16320 

#***»*#«****«*«*«**««**»«**********«*************** 89F 16330 



TWO WORD WORK AREA. 

START ADDRESS. 

END ADDRESS. 

NO. WORDS BEING EXERCISED. 

ONE. 

INDIRECT ADDRESS. 

SIXTEEN. 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
12 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
12A 



ft 



c 












4'y 



4 "> 



4 ■*■ 



4 >■• 






4' 

'A 



4 >^ 



4 






4 \ 



4 



4 '>- 



4 



< < < < t < < < < ( ( < ( ( < ( < ( ( ( ( t ( ( ( ( ( ( ( ( ( ( ( ( 



icoiMiluc uini>r 


Mua 1 lb t 


'KUIjKAM 


1 hOR 


THE 


1800 ! 


iYSTE 


:M 
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CORE FUNCTION TEST 




















* 












* 89F16340 


03 DO 




CE410 


EOU 




* 






89F16350 


03D0 COFA 






LD 




CEC06 




PUT HI ADDRESS IN INDIRECT 89Fi6366 


03D1 OOFC 






STO 




CECIO 




ADDRESS WORD. 


89F16370 


0302 C0F9 






LD 




CEC08 




USE XRl AS 


89F16380 


0303 DOOl 






STO 




CE420+1 


A COUNTER. 


89F16390 


0304 6500 


0000 


CE420 


LDX 


LI 


*-* 






e9F16400 


0306 




CE430 


EOU 




« 






89F16410 


0306 C780 


0369 




LD 


13 


CECIO- 


■BASE 




89F16420 


03D8 4808 






SKP 




+ 






89F16430 


0309 7004 






B 




CE440 






89F16440 


03DA 1805 






SRA 




FIVE 




SOME INSTRUCTIONS. 


89F16450 


03DB A700 


02DE 




M 


L3 


CDCIO- 


■BASE 




89F16460 


0300 7004 






B 




CE450 






89F16470 


03DE 




CE440 


EOU 




* 






89F16480 


03DE 1090 






SLT 




16 






89F16490 


030F AFOO 


0200 




D 


L3 


CDC08- 


•BASE 




89F16500 


03E1 88E6 






AD 




CEC02 






89F16510 


03E2 




CE450 


EOU 




« 






89F16520 


03E2 D8e5 






STO 




CEC02 






89F16530 


03E3 COEA 






LD 




CECIO 




RIPPLE DOWN CORE. 


89F16540 


03E4 90E8 






S 




CEC09 






89F16550 


03E5 D0E8 






STO 




CECIO 






89F16560 


03E6 71FF 






MOX 


1 


-1 




DECREMENT WORD COUNTER. 


89F16570 


0367 70EE 






B 




CE430 




LOOP. 


89F16580 


03E8 4F00 


0239 


* 


B 


L3 


CC070- 


BASE 


RETURN TO DISTRIBUTOR. 


89F16590 
* 89F16600 






««***#***##«***#«(*:(,# «#*««j;,:(,:jt;;;,|,j^^j,^^,;^^^^^^^^^^^^^^^ 8 9 F 1 66 1 






* 












* 89F16620 






* RANDOM EXeRCISE 5 






* 89F16630 






* 












« 89F16640 






«#*«*«***«««#«##«##<,**«,>#:», ^4*^^^^;^^^^^^,^^,^^^^^^, 8 9F 166 50 






« 












* 89F16660 


03EA 




CE510 


EOU 




* 






89F16670 


03EA COEO 






LD 




CEC06 




USE XRl TO ADDRESS. 


89F16680 


03EB DOOl 






STO 




CE520+ 


1 


CORE. 


89F16690 


03EC 6500 


0000 


CE520 


LDX 


LI 


«-* 






89F16700 


03EE 71F8 






MOX 


1 


-8 




OBSERVE BOUNDARIES. 


89F16710 


03EF CODC 






LD 




CEC08 




PUT WORD COUNT 


89F16720 


03F0 9006 






S 




CEC12 




IN CEC02. 


89F16730 


03F1 0006 






STO 




CEC02 






89F16740 


03F2 




CE530 


EOU 




* 






89F16750 


03F2 ClOO 






LO 




ZERO 




EXERCISE THE GENERAL 


89F16760 


03F3 C1F9 






LD 




-7 




AREA. 


89F16770 


03F4 C108 






LD 




8 






89F16780 


03F5 CIFE 






LD 




-2 






89F16790 


03F6 ClOO 






LD 




ZERO 






89F16800 


03F7 C103 






LD 




3 






89F16810 


03F8 C104 






LD 




4 






89F16820 


03F9 C1F8 






LD 




-8 






89F16830 


03FA C105 






LD 




5 






89F16840 


03FB C107 






LD 




7 






89F16850 


03FC CIFD 
03F0 C102 






LD 
LD 




-3 
2 






89F16860 
89F16870 


03FE CIFA 






LD 




-6 






89F16880 


03FF ClOO 






LO 




ZERO 






89F16890 


0400 CIFC 

0401 ClOl 






LD 
LO 




-4 
1 






89F16900 
89F16910 


0402 C106 






LD 




6 






89F16920 


0403 CIFB 






LD 




-5 






89F16930 


0404 C0C3 






LD 




CEC02 




DECREMENT WORD 


89F16940 


0405 90C7 






S 




CEC09 




COUNTER. 


89F16950 


0406 4818 






SKP 




+- 




SKIP NOT DONE. 


89F16960 


0407 7003 






B 




CE540 




BRANCH IF DONE. 


89F16970 


0408 OOBF 






STO 




CEC02 




UPDATE COUNTER. 


89F16980 


0409 71FF 






MOX 


1 


-1 




UPDATE WORD POINTER. 


89F16990 


040A 70E7 






B 




Ce530 




LOOP. 


89F17000 


040B 




CE540 


EOU 




« 






89F17010 
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040B 4F00 0239 



B 



L3 CC070-BASE RETURN TO DISTRIBUTOR. 



USE XRl TO ADDRESS 
CORE. 

PUT WORD COUNT IN 
CEC02, USE AS COUNTER, 



0424 



0424 



89F17020 

* * 89F17030 

#«**#«***«*«)|=**«**<.«*«*,jE#»#«^,***#<t«:j,:j<t:^^;js^^,^^^^^^, 89F1 7040 

* * 89F17050 

* RANDOM EXERCISE 6 # 89F17060 

* » 89F17070 

***«#)|.«*«««*##««*##<,»*#<,:(c:j,^^^^<,«;j,^o,^^^^^^^^^^^^^^^^ 89F 17080 

89F17090 
89F17100 
89F17110 
89F17120 
89F17130 
89F17140 
89F17150 
89F17160 
89F17170 
89F17180 
89F17190 
89F17200 
89F17210 
89F17220 
89F17230 
89F17240 
89F17250 
89F17260 
89F17270 
89F17280 
89F17290 
89F17300 
89F17310 
89F17320 
89F17330 
89F17340 
**#**«#**:(.*«*#*5>*:j,»:j^<,^^^#^^^^^^^^^^^^^^^^,^^jj,^^^^^ 89F 17350 

* « 89F17360 

89F17370 

* PATTERN TEST COMPLETE. 89F17380 

89F17390 
89F17400 
89F17410 

* UPPER ADDRESS LIMIT OF PATTERN TESTS. 89F17420 

89F17430 

89F17440 

* 89F17450 
«#**** **ji=##****##»«»#,j,^*^^^<,;j,;^^,^^^^^^^^^^,^^^^^jj,^^^^ 8 9F 17460 

* 89F17470 

* SUMMARY LOG ROUTINE. 89F17480 

*»***«****«****♦***« ***««#***)j>*««###*-|,#:»^*^^:j,^^,;^^^ 8 9F 17500 



040D 







CE610 


EOU 




f 


0400 





COBC 




LD 




CEC04 


04 OE 





0001 




STO 




CE620+1 


040F 





6500 0000 


CE620 


LDX 


LI 


*-« 


0411 





COBA 




LD' 




CEC08 


0412 





00B5 




STO 




CEC02 


0413 







CE630 


EOU 




* 


0413 





C900 




LOD 







0414 





C910 




LDD 




16 


0415 





C920 




LDD 




32 


0416 





C940 




LDD 




64 


0417 





C9F0 




LDD 




-16 


0418 





C9E0 




LDD 




-32 


0419 





C9C0 




LDD 




-64 


041A 





C980 




LDD 




-128 


041B 





COAC 




LD 




CEC02 


041C 





90B0 




S 




CEC09 


0410 





4818 




SKP 




+- 


041E 





7003 




B 




CE640 


041F 





D0A8 




STO 




CEC02 


0420 





7101 




MDX 


1 


1 


0421 





70F1 




B 




CE630 


0422 







Ce640 


EOU 




* 


0422 





4F00 0239 


* 


B 


L3 


CC070-BASE 



DECREMENT WORD 
AND TEST, SKIP 
DO. BRANCH IF 
UPDATE COUNTER 
INCREMENT ADDRESS POINTER 



COUNTER 

IF MORE TO 

DONE. 



RETURN TO DISTRIBUTOR. 



CC520 EOU 
* 



* 



* 
ETEST 



EOU 











* 








« 


89F17510 


0424 
0424 







620F 




HZlOO 


EOU 
LOX 


2 


* 
/F 


XR2 INDICATES ROUTINE ID. 


89F17520 
89F17530 


0425 





C037 






LD 




HZK08 


INITIALIZE LINE BUFFER 


89F17540 


0426 





D700 


OBCO 




STO 


L3 


SUC80-BASE 


WORD COUNT FOR SUMMARY. 


89F17550 


0428 





C032 






LD 




HZK02 


INITIALIZE RSM ID. COUNTER 


89F17560 


0429 





D030 






STO 




HZKOl 


STORAGE. 


89F17570 


042A 
042A 






1008 




HZllO 


EOU 
SLA 




* 
EIGHT 


LINE. 


89F17580 
89F17590 


042B 





0045 






STO 




HZK92 




89F17600 


042C 





4045 






BSI 




HZ200 


TEST FOR NON-ZERO LOOP 


89F17610 


0420 





0F74 






DC 




PXK60-BASE- 


-1 COUNTER. 


89F17620 


042E 





7014 






B 




HZ145 


BRANCH IF UNTESTED BSM. 


89F17630 


042F 





4700 


060A 




BSI 


L3 


MAOIO-BASE 


WRITE A SPACE. 


89F17640 


0431 





FOOD 






DC 




/FOOD 


SPACE FUNCTION. 


89F17650 


0432 





4700 


060A 




BSI 


L3 


MAOIO-BASE 


WRITE HEADING. 


89F17660 


0434 





0403 






DC 




HZK90-BASE 


HEADING MESSAGE. 


89F17670 


04 35 





403C 






BSI 




HZ200 


TEST FOR NON ZERO ERROR 


89F17680 


0436 





0F5C 






DC 




PXK50-BASE- 


-1 COUNTER. 


89F17690 



DATE 
EC NO. 
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PROG ID 
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0437 
0438 
043A 
04 3C 

043E 
04 3E 
0440 
0442 
0443 
0443 
0445 
0446 
0447 
0448 
0449 
044A 
044 B 
044C 
044C 
044E 
044 F 
045^ 
0452 
0454 
0455 
0456 
0458 



7006 
4700 
4700 
4700 













4700 

4700 

FOOO 



C700 

F014 

4818 

7004 

coil 

8011 

OOOF 

70DE 























093D 
0A18 
OAFA 

0B41 
06 DA 



FFF5 



4700 
FOOO 
4700 
03F9 
4700 
FOOO 
3050 
4700 
4F00 



06DA 
06 DA 
06 DA 



08FB 
FFBO 



045A 0001 
045B 0001 



000 3 







045C 





000 3 


045D 





OOOB 


045E 





0009 


045F 





0105 


0460 





0A09 


0461 





0035 


0462 





2534 


0463 





0033 


0464 





2629 


0465 





3500 


0466 





1335 


0467 





1213 


0468 





0009 


0469 





1214 


046 A 





2424 


0466 





3129 


046C 





1800 


0460 





3626 


046E 





2900 


046F 





3212 


0470 





2400 


0471 





0000 


0472 





0000 


0473 





C0E6 



HZ140 



HZ145 



HZ150 



WAT50 



B 
BSi 

BSI 

BSI 

EQU 

BSI 

BSI 

DC 

EOU 

LD 

eoR 

SKP 

B 

LO 

A 

STO 

B 

EQU 

BSI 

DC 

BSI 

DC 

BSI 

DC 

WAIT 

BSI 

B 



L3 
L3 

L3 

L3 

L3 



HZ140 

SBOIO-BASE 

SEOIO-BASE 

SI 010- BASE 

« 

SLOIO-BASE 

MAOIO-BASE 

/FOOO 

« 
L3 AAC04-BASE 

HZKOl 

+- 

HZ150 

HZKOl 

HZK02 

HZKOl 

HZllO 

♦ 
L3 MAOIO-BASE 

/FOOO 
L3 MAOIO-BASE 

HZK80-BASE 
L3 MAOIO-BASE 

/FOOO 

/50 
L3 PTOIO-BASE 
L3 AA020-BASE 



BRANCH IF NO ERRORS. 
WRITE BIT FAIL. SUMMARY. 
WRITE ADDR. LINE SUMMARY. 
WRITE S/I SUMMARY. 



WRITE PATT. FAIL. 
WRITE A SPACE. 
SPACE FUNCTION. 

TEST FOR LAST BSM 
SUMMARIZED. 
SKIP IF NOT. 
BRANCH IF DONE. 
UPDATE BSM 
ID. 



LOOP FOR ANOTHER SUMMARY. 

WRITE A SPACE. 
SPACE FUNCTION. 

WRITE END MESSAGE. 

MESSAGE. 

WRITE A SPACE. 
SPACE FUNCTION. 
END WAIT. 

ZERO SUMMARY STORAGE. 

LOOP ON PROGRAM. 



89F17700 
89F17710 
89F17720 
89F17730 

89F17740 
SUMMARY 89F17750 
89F17760 
89F17770 
89F17780 
89F17790 
89F17800 
89F17810 
89F17820 
89F17830 
89F17840 
89F17850 
89F17860 
89F17870 
89F17880 
89F17890 
89F17900 
89F17910 
B9F17920 
89F17930 
89F17940 
89F17950 
89F17960 



****«*«**********«****««**#*«****«***************** 89F 17970 



* * 

* CONSTANTS AND WORK AREAS * 

* * 
#*#**«**#*##««**♦*********#* *********************** 

* * 
HZKOl BSS 1 BSM ID. 

HZK02 DC 1 ONE. 

* 

* IF THE NUMBER OF PATTERN TEST ENTRIES CHANGES IN 

* THE TABLE PXK50, THE FOLLOWING CONSTANTS MUST 

* BE CHANGED. 
* 

HZK03 

HZK04 

* 

HZK08 

HZK80 



HZK90 



HZK92 

* 



ECU 3 NUMBER OF SUMMARIES. 

DC 3 NUMBER OF SUMMARIES. 

RELATIVE BASE ADDRESS OF 

DC 11 LINE BUFFER WORD COUNT. 

DC 9 END MESSAGE. 

DC /0105 15 

DC - /0A09 09 

DC /0035 E 

DC /2534 NO 

DC /0033 C 

DC /2629 OR 

DC /3500 E 

DC /1335 TE 

DC /1213 ST 

DC 9 HEADING. 

DC /1214 SU 

DC /2424 MM 

DC /3129 AR 

DC /1800 Y 

DC /3626 FO 

DC /2900 R 

DC /3212 BS 

DC /2400 M 

DC /OOOO X 



89F17980 

89F17990 

89F18000 

89F18010 

89F18020 

89F18030 

89F18040 

89F18050 

89F18060 

89F18070 

89F18080 

89F18090 

89F18100 

89F18110 

89F18120 

89F18130 

89F18140 

89F18150 

89F18160 

89F18170 

89F18180 

89F18190 

89F18200 

89F18210 

89F18220 

89F18230 

89F18240 

89F18250 

89F18260 

89F18270 

89F18280 

89F18290 

89F18300 

89F18310 

89F18320 

89F18330 

89F18340 



E?(TENDED CORE FUNCTION TEST 



0474 

0475 
0476 
0477 
0479 
047A 
047B 
047C 
0470 
047 E 
04 7F 
0481 

0482 

0483 
0484 
0485 
0486 
0486 
0487 
0488 
0489 
0489 



90E6 

A0E6 

1800 

8780 040D 

8301 

D005 

C0F6 

BODE 

D0F4 

6103 

C500 0000 

4820 

7003 

71FF 

70FA 

7003 

COEB 
80D3 
D0E9 

4F80 0400 



s 

M 

XCH 

A 

A 

STO 
LD 
A 

STO 
LDX 
HZ210 LD 
SKP 

B 

MDX 
B 
B 

HZ220 EOU 
LD 
A 
STO 

HZ230 EOU 



HZK02 
HZK04 

13 HZ200-BASE 

3 ONE 

HZ210+1 

HZ200 

HZK02 

HZ200 

HZK03 

♦-* 

Z 

HZ220 

-1 

HZ210 

HZ230 

* 

HZ200 

HZK02 

HZ200 



1 
LI 



89F18380 
89F18390 
89F18400 
89F18410 

89F18420 
89F18430 
89F18440 
89F18450 
89F18460 

USE XRl AS A LOOP COUNTER. 89F18470 

89F184 80 

TEST EACH COUNTER IN ARRAY 89F18490 

FOR ZERO. 

DECREMENT LOOP COUNTER 

UNTIL TOTAL ARRAY IS DONE 

RETURN. 



INDICATED ARRAY IS ZERO. 
RETURN AT CALL+2, 
OTHERWISE RETURN AT 
CALL+3. 



INCREMENT RETURN ADDRESS 
PAST ARRAY PARAMETER. 



INCREMENT RETURN ADDRESS 
IF A MEMBER OF THE 
ARRAY IS NON-ZERO. 



B 



89F18500 
89F18510 
89F18520 
89F18530 
89F18540 
89F18550 
89F18560 
89F18570 
89F18580 
89F18590 



« 
13 HZ200-BASE RETURN. 

*#*«*«**«*♦««#**»**«**«****«*******»*************** 8 9F 18600 

« * 89F18610 

* 89F18620 

* 89F18630 
«*«««***#*«*#«************************************* 8 9F 18640 
* 



* COUNTER OVERFLOW ERROR SUBROUTINE 



048B 
048B 6A08 
048C COOT 











0480 
048E 
048F 
0491 



400E 
D005 
4700 06DA 



042E 



0492 7091 



HZ500 EOU 
STX 
LD 
BSI 
STO 
BSI 
DC 
B 



* 
2 HZX92 
HZX92 
ICOlO 
HZX92 
L3 MAOIO-BASE 
HZX90-BASE 
HZlOO 



* 89F18650 
89F18660 

CONVERT PATTERN 10. FOR 89F18670 
ERROR MESSAGE. 89F18680 

CONVERT CHARACTERS AND PUT 89F18690 
IN MESSAGE AND 89F18700 

WRITE IT. 89F18710 

MESSAGE. 89F18720 

BRANCH TO SUMMARIZE. 89F18730 

* 89F18740 
««**#*♦**««**«*##««***»***«##***»****************** 89F 18750 

* * 89F18760 

* MESSAGE * 89F18770 

* « 89F18780 
««##*#««*******#*******«*************************** 89F18790 

* * 89F18800 

89F18810 
89F18820 
89F18830 
89F18840 
89F18850 
89F18860 
89F18870 
89F18880 
89F18890 

* * 89F18900 
«***#«**«*#«****#*«**«**«***#*##***#*************** 89F18910 
**#«*******#*******#*#**♦*****#*****««*«*********** 8 9F 18920 

* « 89F18930 
« PATTERN ID. CONVERSION SUBROUTINE 
* 



0493 0008 


HZX90 


DC 


8 


MESS/ 


^GE. 


0494 0000 


HZX92 


DC 


/OOOO 


XX 


PATTERN ID 


0495 0A09 




DC 


/0A09 


09 


ERROR ID. 


0496 0033 




DC 


/0033 


C 




0497 1329 




DC 


/1329 


TR 




0498 3B00 




DC 


/3B00 


• 




0499 2636 




DC 


/2636 


OF 




049A 2326 




DC 


/2326 


LO 




049B 163B 




DC 


/163B 


W. 





^ft***!!!************** **********«*#****************** 89F 18350 

HZ200 DC «-* ENTRY. 89F18360 

LD HZKOl IF EACH COUNTER IN THE 89F18370 



* 89F18940 
' * 89F18950 

*«*#*»****«********#****«***#*»**#********«******** 89F18960 
* 

* 
* 
* 
* 



THIS SUBROUTINE CONVERTS THE BINARY PATTERN 
IN THE ACCUMULATOR TO TWO 1443 CHARACTERS. 
THERE IS NO MAGNITUDE CHECK. 



CALL 



BSI 



ICOlO 



89F18970 
89F18980 
89F18990 
89F19000 
89F19010 
89F19020 
89F19030 
89F19040 
89F19050 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
14 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
14A 



4 > 



.4 \ 



4 > 












A i 



•r" 



4' \ 



4 \. 



4 >•• 



^'- 



< ^ < < ( < < < ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( < ( ( ( C C ( ( ( ( < 
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* 
4 


THE VALUE TO CONVERT IS IN THE ACCUMULATOR. 








* 

* 


XRl AND XR2 ARE NOT USED. 








* 
4t 


XR3 IS THE PSEUDO 


BASE REGISTER. 








* 


TWO 1443 CHARACTERS ARE IN THE ACCUMULATOR 








.♦ 


AT EXIT. 










ICOlO 




3/18/69 








if**it*iHf-tftfiHfiHIHtiHHHri»iiHeif1ftfifiHHHH(iliHHHtHfi>i*itiftHlfifif1f 


04 9C 





0000 


DC *-* 


ENTRY. 


049P 





1890 




SRT 16 


PREPARE FOR DIVISION. 


049E 





A809 




ICC02 


DIVIDE BY TEN. 


049F 





4808 




SKP + 


SKIP NOT ZERO. 


04 AO 





C007 




LD ICC02 


LOAD 1443 CHARACTER 0. 


04A1 





18 DO 




RTE 16 


EXCHANGE. 


04A2 





4808 




SKP + 


SKIP NOT ZERO. 


04 A 3 





C004 




LD ICC02 


LOAD 1443 CHARACTER ZERO. 


04 A4 





1008 




SLA EIGHT 


PUT THE TWO CHARACTERS 


04A5 





18C8 




RTE EIGHT 


TOGETHER IN THE ACC. 


04A6 





4F80 0437 




B 13 ICOIO-BASE 


RETURN. 



04Ae OOOA 



* * 

* CONSTANTS * 

* * 

» * 

ICC02 DC /OOOA TEN AND 1443 CHARACTER 0. 

* « 

****#*#***#«!;!*****!>## ****««#«:(: *!»;:(!«*#*«;(!:(< <t*»«*>Sij(;*««* 

* 1^ 

* OP CODE CHECK ♦ 

* * 

* * 

ENTRY. 

ZERO LINE BUFFER. 
COMPUTE ERROR ADDRESS 
AND LOAD INTO 
MESSAGE. 

PUT ADDR. IN LINE BUFFER. 

IS INTERRUPT IN PATTERN 
CONVERT CHARACTERS AND 
PUT IN ERROR MESSAGE. 
LOAD ERROR ID. 

LOG ERROR. 

CHECK FOR PARITY ERROR 
TOO. 

SKIP IF NONE. 
LOG PARITY ERROR. 
OP CODE CHECK WAIT. 
EXIT TO SUMMARY LOG. 

* « 

* CONSTANTS « 

* « 



04A9 





0000 




IGOIO 


DC - 




*-* 


04AA 





4700 


OBAF 




BSI 


L3 


SUOIO-BASE 


04AC 





C02E 






LD 




nolo 


04A0 





90AD 






S 




HZK02 


04 AE 





000 1 






STO 




IG020+1 


04 A F 





6500 


0000 


IG020 


LDX 


LI 


«-* 


04B1 





4700 


0674 




BSI 


L3 


KBOIO-BASE 


04B3 





4700 


06 B8 




BSI 


L3 


KLOIO-BASE 


04B5 





40E6 






BSI 




ICOlO 


04B6 





DOOB 






STO 




IGC02 


04B7 





C80A 






LDD 




IGC02 


04B8 





4700 


0BE6 




BSI 


L3 


SVOIO-BASE 


04 B A 





C700 


04D0 




LO 


L3 


IIC34-BASE 


04BC 





1001 






SLA 




ONE 


04BD 





4828 






SKP 




+Z 


04BE 





4038 






BSI 




II200 


04 BF 





30F1 




WATFl 


WAIT 




/Fl 


04C0 





700B 






B 




IH030 



04C2 0001 
04C3 0301 



ERROR CODE FOR OP 
CODE CHECK. 



IGC02 BSS E 1 

DC /0301 

* * 



89F19060 
89F19070 
89F19080 
89F19090 

89F19100 
89F19110 
89F19120 

89F19130 
89F19140 
89F19150 
89FI9160 
89F19170 
89F19180 
89F19190 
89F19200 
89F19210 
89F19220 
89F19230 
89F19240 
89F19250 
89F19260 
89F19270 
89F19280 
89F19290 
89F19300 
89F19310 
89F19320 
89F19330 
89F19340 
89F19350 
89F19360 
89F19370 
89F19380 
89F19390 
89F19400 
89F19410 
89F 19420 
89F19430 
89F19440 
89F19450 
89F19460 
89F19470 
89F19480 
89F19490 
89F19500 
89F19510 
89Fig520 
89F19530 
89F19540 

89F19650 
89F19560 
89F19570 
89F19580 
89F19590 
89F19600 
89F19610 
89F19620 
89F19630 
89F19640 
89F19650 
89F19666 
89F19670 
89F19680 
89F19690 
89F19700 
89F19710 
89F19720 
89F19730 
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* * 

* STORAGE PROTECT CHECK * 

* * 



04C4 0000 



*-# 



ENTRY. 



IHOIO DC 

* UNKNOWN STORAGE PROTECT INTERRUPT. 



04C5 
04C5 
04C7 
04C8 
04C9 
04CB 
04CC 
04CC 



4700 06B8 
4004 
D008 

4700 06DA 
046B 

COOD 



04CD 8 301 
04CE 000 C 
04CF 701C 



IH020 EQU 
BSI 
BSI 
STO 
BSI 
DC 

IH030 EOU 
LD 
A 

STO 
B 



L3 KLOIO-BASE 

ICOlO 

IHC08 
L3 MAOIO-BASE 

IHC06-BASE 

# 

IHCIO 
3 ONE 
IIOIO 
1 1 040 



IS INTERRUPT IN PAT. TEST 
INTERRUPT MESSAGE. 

WRITE MESSAGE. 



RESET RETURN ADDRESS TO 

SUMMARY LOG AND 

EXIT. 



«♦«******♦»* #«*#j!i*«l»««###ii!*« «**#*** ««****** *«***«*<: 

* * 

* CONSTANTS AND WORK AREAS * 

* ajt 



0400 0009 


IHC06 


DC 


9 


MESSAGE 


0401 0000 


IHC08 


DC 


/OOOO 


XX 


04D2 0306 




DC 


/0306 


36 


04D3 0000 




DC 


/OOOO 




04D4 1213 




DC 


/1213 


ST 


0405 2629 




DC 


/2629 


OR 


04D6 3800 




DC 


/3B00 


• 


04D7 2729 




DC 


/2729 


PR 


04D8 2613 




DC 


/2613 


OT 


04D9 3B00 




DC 


/3B00 


• 


04DA 03BF 


iHClO 
* 


DC 


HZIOO-BASE 


SUMMAR 






* INTERNAL INTERRUPT SUBROUTINE * 

* * 

* * 

* THIS SUBROUTINE HANDLES ALL OF THE INTERNAL * 

* INTERRUPTS. * 

* « 
^^'l^■|^^^i^**^^*if^^^^^f■t^i^1^*1^^^^^^fi^*■/^^^ifi^^fi|^^fififififif■i^■lf.ififif■lfifif!fififififififif 



INTERNAL INTERRUPT ROUTINE 

SAVE A e Q. 

SAVE XRl. 

SAVE XR2. 

SAVE STATUS. 

XR2 = COUNT 

COMPUTE ABSOLUTE ADDRESS 

OF BASE OF INTERRUPT 

SUBROUTINE TABLE. 

SENSE ILSW. 

SAVE ILSW. 

CHECK INTERRUPT CAUSE. 

COMPUTE ABSOLUTE ADDRESS 



04DB 





OOOO 


IIOIO 


DC 




*-* 


04 DC 





D849 




STD 




IIC02 


04DD 





6912 




STX 


1 


1 1050+1 


04DE 





6A13 




STX 


2 


1 1060+1 


04DF 





2813 




STS 




1 1 070 


04E0 





6205 




LDX 


2 


FIVE 


04E1 





C048 




LD 




IIC06 


04E2 





8301 




A 


3 


ONE 


04E3 





0004 




STO 




II020+1 


04E4 





0843 




XIO 




IIC04 


04E5 





D04F 




STO 




IIC34 


04E6 





1240 




SLCA 


2 


ZERO 


04E7 





C600 OOOO 


1 1 020 


LO 


L2 


»-« 


04E9 





0001 




STO 




1 1030+1 


04EA 





4700 OOOO 


11030 


BSI 


L3 


*-* 


04EC 







1 1 040 


EQU 




* 


04EC 





083B 




XIO 




IIC04 


04ED 





48 20 




SKP 




Z 



RESTORE REGISTERS. 
CHECK FOR MORE INTERNAL 
INTERRUPTS. 



89F19740 

89F19750 

89F19760 

89F19770 

89F19780 

89F19790 

89F19800 

89F19810 

89F19820 

89F19830 

89F19840 

89F19850 

89F19860 

89F19870 

89F19880 

89F19890 

89F19900 

89F19910 

89F19920 

89F19930 

89F19940 

89F19950 

89F19960 

89F19970 

89F19980 

89F19990 

89F20000 

89F20010 

89F20020 

89F20030 

89F20040 

89F20050 

89F20060 

89F20070 

89F20080 

89F20090 

89F20100 

89F20110 

89F20120 

89F20130 

89F20140 

89F20150 

89F20160 

89F20170 

89F20180 

89F20190 

89F20200 

89F20210 

89F20220 

89F20230 

89F2024Q 

89F20250 

89F20260 

89F20270 

89F20280 

89F20290 

89F20300 

89F20310 

89F20320 

89F20330 

89F20340 

89F20350 

89F20360 

89F20370 

89F20380 

89F20390 

89F20400 

89F20410 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
15 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
15A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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04EE 





70'*7 






B 




WATF2 




MULTIPLE ERRORS. 


04EF 





6500 


0000 


11050 


LOX 


LI 


*-* 




RESTORE XRl 


04F1 





6600 


0000 


11060 


LDX 


L2 


*-* 




RESTORE XR2. 


04F3 





2000 




II070 


LDS 









RESTORE STATUS. 


04F4 





C831 






LOD 




IIC02 




RESTORE A £ 0. 


04F5 





4FC0 


0476 




BOSC 


13 


IIOIO- 


BASE 


RETURN. 



04F7 0000 



« B REGISTER PARITY ERROR. 

# 



ENTRY. 



1 1 200 DC 

# 

* PREPARE FOR POSSIBLE SEARCH. 



051B OFOO 


002D 


XIO 


L3 


AAC50 


051D 1801 




SRA 




ONE 


051E 4804 




SKP 




E 


051F 3072 




WAT 72 WAIT 




/72 


0520 C013 




LD 




IIC32 


0521 8301 




A 


3 


ONE 



INITIALIZE SEARCH ADDRESS 
SWITCH, INITIALIZE 

PARITY COUNTER. 

INITIALIZE NEW INTERNAL 
INTERRUPT CELL. 

IS INTERRUPT IN PATTERN 
IF PATTERN ID. I S OR 2 
SEARCH CORE FOR PARITY 
INTERRUPT, IGNORE XRl TEST 



TEST FOR MULTIPLE INTERNAL 

INTERRUPTS. 

BRANCH TO ERROR WAIT IF SO 

RESET INTERRUPT LEVEL. 



READ/WRITE LOCATION. 



lAR AT INTERRUPT TIME. 
USE XRl TO ADDRESS CORE. 

READ/WRITE EACH WORD. 
lAR AT INTERRUPT. 
DECREMENT ADDRESS REGISTER 
AND IGNORE SKIPS AT 32K. 
ADDRESS REGISTER AT ZERO. 

NO-LOOP. 



WAS THERE AN INTERNAL 
PARITY ERROR. 

INTERNAL ERROR. 



* 

* CHECK FOR WAIT ON ERROR. 

CHECK SWITCH 14. 

SKIP IF OFF. 

WAIT ON ERROR, SW. 14 SET 



04F8 1810 






SRA 




16 


04F9 0700 0587 






STO 


L3 


IXC34-BASE 


04FB 902C 






S 




IIC04 


04FC D700 0586 






STO 


L3 


IXC32-BASE 


04FE C034 






LD 




IIC26 


04FF 8301 






A 


3 


ONE 


0500 D400 0008 






STO 


L 


EIGHT 


0502 4700 06B8 






BSI 


L3 


KLOIO-BASE 


0504 4804 






SKP 




E 


0505 7002 






B 




II220 


0506 C02A 






LD 




IIC14 


0507 4838 






SKP 




+-Z 


0508 


II220 


EQU 




* 


0508 C029 






LD 




IIC16 


0509 D004 






STO 




II230+1 


050A 08 ID 






XIO 




IIC04 


050B 4820 






SKP 




Z 


050C 7029 






B 




WATF2 


050D 4F40 0000 


11230 


BOSC 


L3 


*-* 


050F 


II235 


EOU 




* 






TEST LOCATION ADDRESSEt 


050F ClOO 


^ 




LD 


1 


ZERO 




* 


IF 


THERE 


WAS NO INTERRl 




# 


MUST BE 


SEARCHED OUT. 


0510 


1 1 240 


EOU 




* 


0510 6500 0000 


II250 


LOX 


LI 


*-* 


0512 


II255 


EOU 




* 


0512 ClOO 






LD 


1 


ZERO 


0513 


II260 


EOU 




« 


0513 71FF 






MDX 


1 


-1 


0514 1000 






NOP 






0515 7100 






MDX 


1 


ZERO 


0516 70FB 


!>: 




B 




II255 




* 


SEARCHED 


ALL POSITIONS 


0517 C700 0587 


# 




LD 


L3 


IXC34-BASE 


0519 48 20 






SKP 




Z 


051A 701D 


# 




B 




WATF3 


051B 


II295 


EQU 




* 



RESTORE INTERRUPT CELL. 
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89F20420 
89F20430 
89F20440 
89F20450 
89F20460 
89F20470 
89F20480 
89F20490 
89F20500 
89F20510 
89F20520 
89F20530 
89F20540 
89F20550 
89F20560 
89F20570 

89F20580 
89F20590 
89F20600 
89F20610 
89F20620 
89F20630 
89F20640 
89F20650 
89F20660 

89F20670 
89F20680 
89F20fe90 
89F20700 
89F20710 
89F20720 
89F20730 
89F20740 
89F20750 
89F20760 
89F20770 
B9F20780 
89F20790 
89F20800 
89F20810 
89F20820 
89F20830 
e9F20840 
89F20850 
89F20860 
89F20870 
89F20880 
89F20890 
89F20900 

89F20910 
89F20920 
89F20930 
89F20940 
89F20950 
89F20960 
89F20970 
89F20980 
89F20990 
89F21000 
89F21010 
89F21020 
89F21030 
89F21040 
89F21050 
89F21060 
89F21070 
89F21080 
89F21090 
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EXTENDED CORE FUNCTION TEST 

0522 D400 0008 
0524 4F80 0492 



0526 




0002 


0528 





0001 


0529 





0300 


052A 





04C6 


052B 





0606 


052C 





05F8 


052D 





05 DD 


052E 





045F 


052F 





0492 


0530 





0444 


0531 





04AB 


05 32 





04AA 



0533 0405 

0534 0476 

0535 0001 



0536 

05 36 30F2 

0537 70FE 



0538 
05 38 

0539 



30F3 
70FE 



* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 



STO L EIGHT 89F21100 

B 13 II200-BASE RETURN. 89F21110 

***#**«#♦**«* ******* »******«***#******************* 8 9F21120 
# * 89F21130 

89F21140 
89F21150 
8gF21l60 
89F2U70 
89F21180 
89F21190 
89F21200 
89F21210 
89F21220 
89F21230 
89F21240 
89F21250 



IIC02 BSS 

IIC04 DC 
DC 

* 

IIC06 DC 

IIC08 DC 
DC 
DC 
DC 
DC 
DC 

IIC14 DC' 

I1CI6 DC 

* 

nC26 DC 

* 

IIC32 DC 

IIC34 BSS 

* 



2 
1 
/0300 

IIC08-BASE 
IY010-8ASE 
IXXXX-BASE 
IXBOO-BASE 
IHOIO-BASE 
n200-BASE 
IGOIO-BASE 
I!240-BASE 
11235- BASE 

IXOIO-BASE 

UOIO-BASE 
1 



AREA TO SAVE A 6 Q. 

ONE, ALSO, lOCC TO SENSE 

INTERNAL ILSW. 

RELATIVE BASE ADDRESS 
OF INTERRUPT TABLE. 
FALSE INTERRUPT. 
AUX CORE ERROR 
CAR CHECK INTERRUPT. 
STORAGE PROTECT INTERRUPT 89F21260 
B REGISTER PARITY CHECK. 89F21270 
OP CODE CHECK. 89F21280 

ENTERY ADDRESS FOR 89F21290 
INTERRUPT IDENTIFICATION. 89F21300 

RELATIVE BASE ADDRESS OF 89F21310 
SEARCH INTERRUPT SUBR. 89F21320 

RELATIVE BASE ADDRESS 89F21330 
OF INTERRUPT ROUTINE. 89F21340 

STORAGE FOR ILSW. 89F21350 

* 89F21360 



* MULTIPLE 
* 

WATF2 EOU 
WAIT 



INTERNAL INTERRUPTS. 



******#************#«*****«********»*************** 89F21370 

89F21380 
89F21390 
89F21400 
89F21410 
89F21420 
89F21430 
89F21440 
89F21450 
89F21460 
89F21470 
89F21480 
89F21490 



* 

/F2 

WATF2 



ERROR WAIT. 
UNRECOVERABLE ERROR. 



INTERNAL PARITY ERROR. 



* 
* 
* 
WATF3 EOU 

WAIT 

6 



* 

/F3 

WATF3 



ERROR WAIT. 

UNRECOVERABLE ERROR. 
*****«****#«***»#*******»♦*♦«********************** 8 9F21500 
* 
* ALTERNATE INTERNAL INTERRUPT SUBROUTINE 



* 89F21510 

* 89F21520 

* 89F21530 
******♦**********«#****«*****»************«******** 89F21540 

« 89F21550 

* 8gF21560 

* 89F21570 

* 89F21580 

* 89F21590 

* 89F21600 

* 89F21610 
« 89F21620 

PARITY ERRORS ARE HANDLED AND LOGGED INTERNALLY.* 89F21630 

* 89F21640 

THERE SHOULD NEVER BE ANY MEMORY PROTECT ERRORS.* 89F21650 

* 89F2 1660 



THIS SUBROUTINE IS USED BY THE INTERNAL INTER- 
RUPT SUBROUTINE TO FIND THE LOCATION OR 
LOCATIONS WITH PARITY ERRORS. 

OP CODE CHECK ERRORS ARE HANDLED BY INTERFACING 
WITH THE NORMAL SUBROUTINE IGOIO. 



CAR CHECKS AND FALSE INTERRUPTS ARE HANDLED BY 
INTERFACING WITH THE NORMAL SUBROUTINES, 1X800 
AND lYOlO. 

3/19/69 



053A 0000 
0538 D018 
053C 4700 OBAF 



* 89F21670 

* 89F21680 
« 89F21690 

* 89F21700 
» 89F21710 

* 89F21720 

«#********#*#**********«*******«******************* 89F21730 
# * 89F21740 

7x010 DC *-* ENTRY. 89F21750 

STO IXCIO SAVE POSSIBLE FAILURE PTRN 89F21760 
BSI L3 SUOIO-BASE ZERO LINE BUFFER. 89F21770 



DATE 
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.f\, 
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4 



V 






4 >■ 
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c 
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f ■ >- 









f ■> 
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(I 
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053E 6205 






LDX 


2 


FIVE 


053F COOB 






LP 




IXC02 


0540 8301 






A 


3 


ONE 


0541 D003 






STO 




1X020+1 


0542 0817 






XIO 




IXC22 


0543 1240 






SLCA 


2 


ZERO 


0544 C600 


0000 


1X020 


LO 


L2 


«-* 


0546 DOOl 






STO 




1X030+1 


0547 4700 


0000 


1X030 


as I 


L3 


*-» 


0549 4FC0 


04D5 




BOSC 


13 


IXOIO-BASE 



054B 





04E7 


054C 





0606 


054D 





05F8 


054E 





05 DD 


054F 





0460 


0550 





0515 


0551 





0444 


0552 





04AB 


055 3 





04AE 


0554 




0001 


0555 




0001 


0556 





FFFF 


0557 





OBOO 


0558 





OOOB 


055A 




0000 


055A 





0001 


055B 





0300 


055C 





0000 



XR2 = COUNT 

COMPUTE ABSOLUTE ADDRESS 
FOR INTERRUPT LOOKUP 
OPERAND. 

DETERMINE CAUSE OF 
INTERRUPT. 

LOAD SUBROUTINE BASE ADDR. 

INITIALIZE BRANCH OPERAND. 

ENTER INTERRUPT SUBROUTINE 

RESET INTERRUPT AND EXIT. 

* * 

* « 

* CONSTANTS AND WORK AREAS « 

* * 



RELATIVE BASE ADDRESS OF 
INTERRUPT TABLE. 
FALSE INTERRUPT. 
AUX CORE ERROR 
CAR CHECK INTERRUPT. 

STORAGE PROTECT INTERRUPT 

B REGISTER PARITY CHECK. 

OP CODE CHECK. 

INTERRUPT ADDRESS. 

INTERRUPT ADDRESS. 
TEMPORARY STORAGE. 
TEST PATTERN. 
STORAGE PROTECT SWITCH. 
CHANGE SP BIT TO ONE. 
CHANGE P BIT. 
FORCE EVEN BOUNDARY. 
ONE AND lOCC TO SENSE 
ILSW. 



IXIOO DC *-* ENTRY. 
* 

* THE LOCATION UNDER TEST FAILED. THE BAD PATTERN 

* IS AT IIC02. THE KNOW PATTERN IS AT IXC12. 

* THE GOOD PATTERN HAS ODD PARITY, THE BAD PATTERN 

* HAS EVEN PARITY. 



* 








* 








IXC02 


DC 


IXC04- 


-BASE 


IXC04 


DC 


lYOlO- 


■BASE 




DC 


IXXXX- 


-BASE 




DC 


1X800- 


-BASE 




DC 


IH020- 


-BASE 




DC 


1X200- 


-BASE 




DC 


IGOIO- 


-BASE 


IXC06 


DC 


II240- 


-BASE 


IXC08 


DC 


II260- 


■BASE 


IXCIO 


BSS 


1 




IXC12 


BSS 


1 




IXC14 


DC 


/FFFF 




IXC18 


DC 


/OBOO 




IXC20 


DC 


/OOOB 






BSS 1 


E 




IXC22 


DC 


1 






DC 


/0300 





055D 





4700 


0642 






BSI 


L3 


JBOIO-BA 


055F 





C0C6 








LD 




nco2 


0560 





4700 


0657 


$ 




BSI 


L3 


KAOIO-BA 










* 


CHECK IF 


STORAGE PRO 


0562 





08F7 




* 




XI.O 




IXC22 


0563 





4820 








SKP 




Z 


0564 





70D1 








B 




WATF2 


0565 





0100 








STO 


1 


ZERO 


0566 





08F3 








XIG 




IXC22 


0567 





1002 








SLA 




TWO 


0568 





4810 








SKP 






0569 





7008 








B 




1X130 


056A 





COEB 








LD 




IXC14 


0566 





4820 








SKP 




Z 


056C 





7002 








B 




1X120 


056D 





2D40 


0000 






STS 


LI 


ZER0,/40 


056F 









1X120 


EOU 




* 


056F 





C200 








LO 


2 


ZERO 


0570 





F0E6 








EOR 




IXC18 


0571 





7002 








B 




1X140 


0572 









1X130 


EOU 




* 


0572 





C200 








LO 


2 


ZERO 



FILL KNOWN PATTERN 
FILL FAILURE PATTERN. 



CHECK ILSW. 
SKIP IF OK. 

BRANCH ON MULTIPLE ERRORS. 
TRY TO STORE ZERO IN 
ERROR POSITION AND CHECK 
FOR STOR. PROT. INTERRUPT. 
SKIP IF INTERRUPT SET. 
BRANCH NO INTERRUPT. 
WAS THERE SUPPOSED TO BE 
A STOR. PROT. INTERRUPT. 
BRANCH NOT SET. 
TRY TO RESET STOR. PROT. 

SET STORAGE PROTECT BIT 
ON, EVEN PARITY. 



CHANGE PARITY BIT TO MAKE 
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89F21780 
89F21790 
89F21800 
89F21810 
89F21820 
89F21830 
89F21840 
89F21850 
89F21860 
89F21870 
89F21880 
89F21890 
89F21900 
89F21910 
89F21920 
89F21930 
89F21940 
89F21950 
89F21960 
89F21970 
89F21980 
89F21990 
89F22000 
89F22010 
89F22020 
89F22030 
89F22040 
89F22050 
89F22060 
89F22070 
89F22080 
89F22090 
89F22100 
89F22H0 
89F22120 
89F22130 
89F22140 
89F22150 
89F22160 
89F22170 
89F22180 
89F22190 
89F22200 
89F22210 
89F22220 
89F22230 
89F22240 
89F22250 
89F22260 
89F22270 
89F22280 
89F22290 
89F22300 
89F22310 
89F22320 
89F22330 
89F22340 
89F22350 
89F22360 
89F22370 
89F22380 
89F22390 
89F22400 
89F22410 
89F22420 
89F22430 
89F22440 
89F22450 
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0573 





F0E4 








EOR 




IXC20 




PARITY EVEN. 


89F22460 


0574 









1X140 


EOU 




« 






89F22470 


0574 





0200 








STO 


2 


ZERO 






89F22480 


0575 





4700 


0807 






BSI 


L3 


POOIO-BASE 


TALLEY FAILURES BY BIT. 


89F22490 


0577 





403C 








BSI 




1X600 




UPDATE COUMTERS AND LOG. 


89F22500 


0578 





4F80 


04F7 






B 


13 


IXIOO-BASE 


RETURN. 


89F22510 










» 














89F22520 










« 


B REGISTER 


PARITY ERROR. 


89F22530 










« 














e9F22540 


057A 





0000 




1X200 


DC 




*-* 




ENTRY. 


89F22550 


057B 





C0D6 








LD 




IXC06 




BE SURE INTERRUPT ADDRESS 


89F22560 


057C 





8301 








A ■ 


3 


ONE 




IS CORRECT. 


89F22570 


057D 





FOBC 








EOR 




IXOIO 






89F22580 


05 7 E 





4820 








SKP 




Z 






89F22590 


05 7F 





7003 








B 




1X300 




BRANCH IF IN SEARCH RTN. 


89F22600 


0580 





40 DB 








BSI 




IXlOO 




LOG ERROR. 


89F22610 


0581 





4F0O 


04B6 






B 


L3 


II295-BASE 


BRANCH OUT. 


89F22620 










« 














89F22630 










* 


PARITY ERROR SEARCH 


INTERRUPT. 


89F22640 










* 














89F22650 


0583 









1X300 


EQU 




* 






89F22660 


0583 





COCF 








LD 




1XC08 




BE SURE INTERRUPT ADDRESS 


89F22670 


05 84 





8301 








A 


3 


ONE 




IS CORRECT. 


89F22680 


0585 





F0B4 








EOR 




1X010 






89F22690 


0586 





4820 




* 




SKP 




Z 




SKIP IF SO. 


89F22700 
89F22710 










* 


THE 


PARITY 1 


ERROR IS 


INTERNAL TO THE SEARCH 


89F22720 










* 


SUBROUTINE, 


ABEND. 






89F22730 










♦ 














89F22740 


0587 





70AE 








B 




WATF2 




BRANCH TO ERROR WAIT. 


89F22750 


05 88 





C02D 








LD 




1X610+1 




IF EXECUTING RANDOM DATA 


89F22760 


0589 





1801 








SRA 




ONE 




PATTERN TEST, GO TO 


89F22770 


058A 





4820 








SKP 




Z 




ROUTINE 1X700. 


89F22780 


058B 





7069 




* 




B 




1X700 






89F22790 
89F22800 










« 


THE 


BAD 


PATTERN IS SAVED IN IXCIO. THE FAILURE 


89F22810 










* 


ADDRESS 


IS 


IN XRl. 


THERE IS NO TEST PATTERN. 


89F22820 










* 


THE 


BAD 


PATTERN HAS 


EVEN PARITY. 


89F22830 










« 














89F22840 


058C 









1X305 


EOU 




* 






89F22850 


058C 





C856 








LDD 




IXC26 




PUT FOUR ASTERISKS IN 


89F22860 


058D 





OFOO 


0BD5 






STD 


L3 


sue 88+6- 


-BASE TEST PATTERN BUFFER. 


89F22870 


058F 





C335 








LD 


3 


AAC66-BASE 


PUT ADDRS OF FAILURE 


89F22880 


0590 





DOOl 








STO 




1X310+1 




PATTERN BUFFER AREA IN 


89F22890 


0591 





6600 


0000 


1X310 


LDX 


L2 


«-* 




XR2, LOAD FAILURE PATTERN 


89F22900 


0593 





COCO 








LO 




IXCIO 




AND FILL. 


89F22910 


0594 





4700 


0657 






BSI 


L3 


KAOIO-BASE 




89F22920 


0596 





C09E 








LD 




IIC34 




CHECK FOR STORAGE PROTECT 


89F22930 


0597 





1002 








SLA 




TWO 




INTERRUPT. 


89F22940 


0598 





4828 








SKP 




+Z 




SKIP NO SP. INTERRUPT. 


89F22950 


0599 





7008 




« 




B 




1X320 




BRANCH TO CHANGE SP. BIT. 


89F22960 
89F22970 










t 


CHECK FOR SP. PICK. 






89F22980 










« 














89F22990 


059A 





08BF 








XIO 




IXC22 




CHECK FOR INTERRUPTS. 


89F23000 


059B 





48 20 




* 




SKP 




Z 




SKIP IF NONE. 


89F23010 
89F23020 


059C 





7099 




* 




B 




WATF2 




MULTIPLE ERRORS. 


89F23030 
89F23040 


059D 





DlOO 








STO 


1 


ZERO 




TRY TO STORE IN ERROR. 


89F23050 


059E 





08BB 








XIO 




IXC22 




POSITION AND CHECK FOR 


89F23060 


059F 





1002 








SLA 




TWO 




SP. ERROR. 


89F23070 


05 AO 





4810 








SKP 




- 




SKIP IF SP. INTERRUPT. 


89F23080 


05A1 





7003 








B 




1X330 




BRANCH IF NOT. 


89F23090 


05A2 









1X320 


EOU 




« 






89F23100 


05A2 





C200 








LD 


2 


ZERO 




SET SP. BIT WITHOUT 


89F23U0 


05A3 





F0B3 








EOR 




IXC18 




SETTING PARITY. 


89F23120 


05A4 





7002 








B 




1X340 






89F23130 
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EXTENDED CORE FUNCTION TEST 



05A5 
05A5 C200 

FOBl 



0200 

C042 







05A6 
05A7 
05A7 
05A8 
05A9 
05 AA 



80B0 
D040 



05AB 
05AC 
05AD 
05AE 
05AF 
05B0 
05B1 
05B2 
05 B4 



05B5 

05B7 

05 B9 

05 B A 

05BC 

05BD 

058E 

05BF 

O5C0 

05C1 

05C3 

05C4 

05C5 

05C6 

05C7 

05C9 

05CA 

05CB 

05CC 

05CC 

05CE 

05CF 

05D0 

05D1 

05D3 

05D4 

0506 

05D7 

05D9 

050A 

050B 

050C 

05DD 

050E 

05DF 

05E0 

05E1 

05E3 

05E3 



693E 

C03D 

F301 

180C 

4818 

683B 

4002 

4F80 0515 

0000 



6600 
4700 
C033 
4700 
C0F9 
4818 
700D 
18 DO 
C094 
D700 
1800 
F029 
4820 
7005 
2D28 
18D0 
0100 
6e8A 



OF 00 

1802 
4804 
7012 
4700 
C0E2 
4700 
DOOF 
6600 
C012 
4820 
7201 
CODE 
4830 
7202 
6A07 
C805 
4700 



0000 

086E 

08C0 

04C1 
0000 

0020 

0674 
0437 
0302 



0BE6 
4F80 054F 



1X330 



1X340 



EQU 

LO 

EOR 

EOU 

STO 

LD 

A 

STO 



ZERO 
IXC20 

* 

ZERO 
IXC32 

IXC2Z 
IXC32 



CHANGE PARITY 
EVEN PARITY. 



BIT TO SHOW 



UPDATE SP, PARITY STORAGE. 
INCREMENT PARITY ERROR 
COUNTER. 



IF ERROR ADDRESS IN CORE TEST, SET SWITCH. 



13 



IXC28 

IXC28 

ONE 

12 

+- 

IXC34 

1X600 

IX200-BASE 

*-* 



CHECK ERROR ADDRESS 
INTERNAL RANGE. 



STX 
LD 

EOR 

SRA 

SKP 

STX 

BSI 

B 
1X600 DC 
* 

* XR2 LOAD OPERAND HAS INITIALIZED IN 11200 
* 
1X610 



FOR 



SKIP NOT INTERNAL. 

SET INTERNAL PARITY SWITCH 

UPDATE COUNTERS AND LOG. 

RETURN. 
ENTRY. 



89FZ3140 
89F23150 
89F23160 
89F23170 
89F23180 
89F23190 
89F23200 
89F23210 
B9F23220 
89F23230 
89F23240 
89F23250 
89F23260 
89F23270 
89F23280 
89F23290 
89F23300 
89F23310 
89F23320 
89F23330 
89F23340 
89F23350 
89F23360 
89F23370 
89F23380 
89F23390 
89F23400 
89F23410 
89F23420 
89F23430 
89F23440 

89F23450 
89F23460 
89F23470 
89F23480 
89F23490 
89F23500 
89F23510 
89F23520 
89F23530 
89F23540 
89F23550 
89F23560 

89F23570 
89F23580 
89F23590 
89F23600 
89F23610 
89F23620 
89F23630 
89F23640 
89F23650 
89F23660 
89F23670 
89F23680 
89F23690 
89F23700 
89F23710 
89F23720 
89F23730 
89F23740 
RETURN. 89F23750 

»>lijlc*« #*#«♦**#«****«*«***»***#*»*«*****«»**#******** 89F 23760 

# * 89F23770 

« CONSTANTS AND WORK AREAS * 89F23780 

# * 89F23790 
*D.*i#* *#*««*****«********«****#»*********** ********* 8 9F 23800 

# * 89F23810 



LDX 

BSI 

LO 

BSI 

LD 

SKP 

B 

XCH 

LO 
STO 
XCH 
EOR 
SKP 
B 

STS 
XCH 
STO 
STX 
1X650 EQU 
XIO 
SRA 
SKP 
B 

BSI 
LD 
BSI 
STO 
LOX 
LO 

SKP 
MDX 
LO 
SKP 
MDX 
STX 
LOD 
BSI 
1X660 EQU 
B 



L2 
L3 

L3 



L3 



LI 



»-* 

PROIO-BASE 

IXC38 

PSOIO-BASE 

1X610+1 

+- 

1X650 

IXC12 
IIC02-BASE 

IXC40 
Z 

1X650 
ZER0t40 



1 ZERO 
IXC14 

« 
L3 AAC50-BASE 

TWO 

E 

1X660 
L3 KBOIO-BASE 

1X610+1 

ICOIO-BASE 

IXC24 

IXC30 

IXC34 

Z 

ONE 

IXC32 

-Z 

TWO 

IXC25 

IXC24 

SVOIO-BASE 

* 

IX600-BASE 



L3 



L2 



L3 



TALLEY FAILURES BY LINE. 
TALLEY FAILURES BY 

PATTERN TEST. 
TEST VALUE IN XR2. 
SKIP IF INTERRUPT IN TESTS 
BRANCH NOT IN PATTERN TEST 
SAVE PATTERN ID. 
PUT CORRECT TEST PATTERN 

IN ACCUM. RESTORE WORD. 
SAVE PATTERN, RESTORE ID. 
INTERRUPT IN WORST CASE 
PATTERN TEST, SKIP IF SO. 
BRANCH NOT TEST FOUR. 
RESET ANY STOR. PROT. BIT. 
RESTORE PATTERN TO ERROR 
WORD. 
RESET STOR. PROT. SWITCH. 

CHECK FOR BYPASSING 
IMMEDIATE ERROR LOG. 
SKIP TO LOG. 
BRANCH NO LOG. 

PUT ADDR. IN LINE BUFFER. 
CONVERT PATTERN ID TO 

TWO 1443 ERROR CODES FOR 
LOG. 

ERROR CODE 32. 
PARITY IN PROGRAM SWITCH. 

SKIP IF OFF. 
UPDATE ERROR CODE. 
MULTIPLE MEMORY SELECTS. 
SKIP IF OFF. 
UPDATE ERROR CODE. 
STORE PARITY ERROR CODE. 
LOAD ERROR ID. 
LOG ERROR. 



13 



05E6 




0001 


05E7 




0001 


05 E8 





2C2C 


05E9 





2C2C 


05EA 




0001 


0302 







OSEB 





FFFF 


05EC 




0001 


05 ED 





0F5D 


05EE 





0004 


05EF 





06E3 


05F0 





2444 


05F1 




0001 


05F2 




0001 


05F3 




0001 


05F4 





058B 



05F5 
05F5 
05F6 
05F7 
05F9 
05FA 
05FB 
05FC 
05FD 
05 FF 
0600 
0601 
0602 



6945 

C044 

F700 0365 

180C 

4818 

7006 

C03E 

F700 0366 

180C 

4820 

708A 



0602 

0604 

0606 

0607 

0608 

0609 

06 OA 

060B 

06 OC 

06 OC 

06 OD 

060E 

060F 

0610 

0611 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

061A 

061B 

061C 

0610 

061E 



C700 04EF 
D700 04C1 

COED 

8301 

DOIB 

6103 

C030 

48 38 



C015 

188C 

OOOB 

1082 

1001 

1083 

1001 

1083 

1001 

1084 

8009 

1884 

1801 

1883 

1801 

1883 

1801 

1882 

COCB 



IXC24 BSS 
IXC25 BSS 
IXC26 DC 
DC 
IXC28 BSS 
IXC30 EQU 
IXC32 OC 
IXC34 BSS 
IXC38 DC 
IXC40 DC 
IXC 42 OC 
IXC44 DC 
IXC46 BSS 
IXC48 BSS 
IXC50 BSS 
IXC52 DC 
* 

***** 
* 

* RANDOM DATA 

* 

1X700 EQU 

STX 1 

LO 

EOR L3 

SRA 

SKP 

B 

LD 

EOR L3 

SRA 

SKP 

B 
1X705 EQU 
* 

* THE PARITY 

* ADDRESS IS 

* THE WORD IS 

* PARITY. 
# 



1 
1 

/2C2C 
/2C2C 

1 

/0302 
-1 
1 

PXK50-BASE 
4 

MA020-BASE 
72444 
1 
1 
1 
IXC46-BASE-1 



STORAGE AREA FOR PARITY 

CODES. 

FOUR ASTERISKS. 



WORK AREA. 

PARITY ERROR CODE 32. 
PARITY ERROR COUNTER. 
INTERNAL PARITY SWITCH. 

FAILURE TABLE ADDRESS. 
WORST CASE PATTERN TEST ID 

RE-ENTRY, 1443 SUBROUTINE 
CONSTANT FOR QUAD ADDRESS 
RANDOM NUMBERS. 
FOR COMPARISON. 

BASE OF ADDRESS TABLE. 



:##**#**********♦«#**************************** 



PATTERN WAS BEING EXECUTED. 



1X780+1 

1X780+1 

CEC04-BASE 

12 

+- 

1X705 

1X780+1 

CEC06-BASE 

12 

Z 

1X305 



COMPARE ERROR OPERAND 
ADDRESS TO RANDOM DATA 
AREA. IF PARITY CHECK 
IS NOT IN THIS AREA, TREAT 
AS AN UNKNOWN PARITY 
ERROR. 



BRANCH ERROR NOT RANDOM. 



ERROR IS IN THE RANDOM DATA. THE 
IN XRl AND 1X780+1. THE CONTENTS OF 
AT IXCIO. THE BAD PATTERN HAS EVEN 



LD 
STO 
LD 
A 

STO 
LDX 
LD 
SKP 
1X710 EQU 
LD 
SRT 
STO 
SLT 
SLA 
SLT 
SLA 
SLT 
SLA 
SLT 
A 

SRT 
SRA 
SRT 
SRA 
SRT 
SRA 
SRT 
LD 



L3 
L3 



IXCIO- BASE 

IIC02-BASE 

IXC52 

ONE 

1X730+1 

THREE 

1X780+1 

+-Z 

* 

1X720+1 

12 

IXC28 

TWO 

ONE 

THREE 

ONE 

THREE 

ONE 

FOUR 

IXC 44 

FOUR 

ONE 

THREE 

ONE 

THREE 

ONE 

TWO 

IXC28 



PUT BAD PATTERN IN 

IIC02 FOR LOG. 
BUILD ABSOLUTE OPERAND 
FOR STORE INSTRUCTION. 

USE XRl AS A COUNTER. 
GET OTHER THREE ADDRESSES 
SKIP NEXT INSTRUCTION. 

RESTORE ADDRESS. 
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89F23820 
89F23830 
89F23840 
89F23850 

89F23860 
89F23870 
89F23880 
89F23890 
89F23900 
89F23910 
89F23920 
89F23930 
89F23940 
89F23950 
89F23960 
89F23970 
89F23980 
89F23990 
89F24000 
89F24010 
89F24020 
89F24030 
89F24040 
89F24050 
89F24060 
89F24070 
89F240 80 
89F24090 
89F24100 
89F24110 
89F24120 
89F24130 
89F24140 
89F24150 
89F24160 
89F24170 
89F24180 
89F24190 
89F24Z00 
89F24210 
89F24220 
89F24230 
89F24240 
89F24250 
89F24260 
89F24270 
. 89F24280 
89F24290 
89F24300 
89F24310 
89F24320 
89F24330 
89F24340 
89F24350 
89F24360 
89F24370 
89F24380 
89F24390 
89F24400 
89F24410 
89F24420 
89F24430 
89F24440 
89F24450 
89F24460 
89F24470 
89F24480 
89F24490 



DATE 
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PROG ID 
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089F-1 
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431321 



PROG ID 
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061F 108C 




SLT 




12 




89F24500 


0620 0001 




STO 




1X720+1 


USE ADDRESS TO GET PATTERN 89F24510 


0621 C400 


0000 


1X720 LD 


L 


«-« 


AND SAVE FOR COMPARE. 


89F24520 


0623 0500 


0000 


1X730 STO 


LI 


, *-* 




89F24530 


0625 71FF 




MOX 


1 


-1 


DECREMENT COUNTER. 


89F24540 


0626 70E5 




B 




1X710 


LOOP. 


89F24550 


0627 C0C9 




LD 




IXC46 


FIND TWO VALUES THAT 


89F24560 


0628 F0C9 




EOR 




IXC48 


MATCH. USE THAT AS 


89F24570 


0629 4820 




SKP 




Z 


KNOWN VALUE. 


89F24580 


062A 7002 




B 




1X740 




89F24590 


062B C0C5 




LD 




IXC46 




89F24600 


06 2C 700 B 




B 




1X760 




89F24610 


0620 




1X740 ECU 




* 




89F24620 


062D C0C3 




LO 




IXC46 




89F24630 


062^ F0C4 




EOR 




IXC50 




89F24640 


062F 4820 




SKP 




Z 




89F24650 


0630 7002 




B 




1X750 




89F24660 


0631 COBF 




LD 




IXC46 




89F24670 


0632 7005 




B 




1X760 




89F24680 


0633 




1X750 ECU 




* 




89F24690 


0633 COBE 




LD 




IXC48 




89F24700 


0634 FOBE 




EOR 




IXC50 




89F24710 


0635 48 20 




SKP 




Z 




89F24720 


0636 7009 




B 




WATF4 


BRANCH NO MATCH FOUND. 


89F24730 


0637 COBA 




LD 




IXC48 




89F24740 


0638 




1X760 EOU 




* 




89F24750 


0638 D700 


04FO 


STO 


L3 


IXC12-BASE 


SAVE FOR LOG. 


89F24760 


06 3A 6500 


0000 


1X780 LOX 


LI 


*-* 


RESTORE XRl. 


8 9F24770 


063C 4700 


04F7 


BSI 


L3 


IXIOO-BASE 


LOG ERROR. 


89F24780 


063E 4F80 


0515 


B 


13 


1X200- BASE 


AND LOG ERROR. 


89F24790 


0640 30F4 




WATF4 WAIT 




/F4 


NO MATCH FOUND. 


89F24800 


0641 70FE 




B 

* 




WATF4 




89F24810 
89F24820 






* CAR CHECK INTERNAL INTERRUPT. 


89F24830 






* 








89F24840 


0642 0000 




1X800 DC 




*-» 


ENTRY. 


89F24850 


0643 C700 


0701 


LD 


L3 


MACOl-BASE 


CHECK 1443 WRITE SWITCH. 


89F24860 


0645 4818 




SKP 




+- 


SKIP IF 1443 CAR CHECK. 


89F24870 


0646 7009 




B 

* 




1X810 


BRANCH IF FALSE CAR CHECK. 


. 89F24880 
89F24890 






♦ THERE IS 


NO 


ERROR MESSAGE FOR A LEGITAMATE 1443 


89F24900 






* CAR CHECK, 1 


SECAUSE IT 1 


WOULD DESTROY THE RETURN 


89F24910 






* ADDRESS 1 


FROM THE 1443 1 


WRITE SUBROUTINE. 


89F24920 






* 








89F24930 


0647 3074 




WAT74 WAIT 




/74 


CAR CHECK WAIT. 


89F24940 


0648 C0A6 




LD 




IXC42 


SET RETURN ADDRESSES TO 


89F24950 


0649 8301 




A 


3 


ONE 


RETRY WRITE. 


89F24960 


064A 0700 


0476 


STO 


L3 


1 1010- BASE 




8 9F2497G 


064C D700 


0405 


STO 


L3 


IXOIO-BASE 




89F24980 


064E 4F80 i 


05DO 


B 

* 


13 


1X800- BASE 


RETURN. 


89F24990 
89F25000 






* FALSE CAR CHECK. 




89F25010 


0650 




* 

1X810 EOU 




« 




89F25020 
89F25030 


0650 0B2D 




XIO 


3 


AAC50-BASE 


CK FOR IMMEDIATE ERROR 


89F25040 


0651 1802 




SRA 




TWO 


LOG. 


89F25050 


0652 4804 




SKP 




E 


SKIP TO LOG. 


89F25060 


0653 7003 




B 




1X820 


BRANCH NO LOG. 


89F25070 


0654 4700 1 


D6DA 


BSI 


L3 


MAOIO-BASE 


WRITE ERROR MESSAGE. 


89F25080 


0656 0C75 




DC 




MSG09-BASE 


MESSAGE. 


89F2509Q 


0657 




1X820 EOU 




* 




89F25100 


0657 0B2D 

0658 1801 




XIO 
SRA 


3 


AAC50-BASE 
ONE 


CK FOR WAIT ON ERROR 


89F25110 
89F25120 


0659 4804 




SKP 




E 


SKIP IF OFF, 


89F25130 


065A 3075 




WAT75 WAIT 




/75 


FALSE CAR CHECK WAIT. 


89F25140 


065B 4F80 0500 


B 


13 


1X800- BASE 


RETURN. 


89F25150 






J* 








89F25160 






* AUX CORE 


ERROR 




89F25170 









* 










89F25180 


065D 





0000 


IXXXX 


DC 


*-* ENTRY 




89F25190 


065E 





0B2D 






XIO 


3 AAC50-BASE CK BYPASS ERROR LOG 




89F25200 


065F 





1802 






SRA 


TWO * 




89F26210 


0660 





4804 






SKP 


E SKIP TO LOG 




89F25220 


0661 





7003 






B 


IXX20 ELSE BR 




89F25230 


0662 





4700 06DA 






BSI 


L3 MAOIO-BASE LOG ERR MESSAGE 




89F25240 


0664 





0CE2 






DC 


MSG17-BASE MESSAGE AODRS 




89F25250 


0665 







IXX20 


EQU 


* 




89F25260 


0665 





0B2D 






XIO 


3 AAC50-BASE CK WAIT ON ERROR 




89F25270 


0666 





1801 






SRA 


ONE SKIP IF SW 14 OFF 




89F25280 


0667 





4804 






SKP 


E * 




89F25290 


0668 





3077 


WAT77 


DC 


/3077 ERROR WAIT 




89F25300 


0669 





4F80 05F8 






6 


13 IXXXX-BASE RETURN 




89F25310 








«**j!iJi!Xi##i]t****««*»*«««#«**«**«**«*#«*****#*«#******* 


89F25320 








* 








* 


89F25330 








* 


NO i 


rNTERRUPT CONDITION 


* 


89F25340 








* 








* 


89F25350 








:«c««:«<«««:{i4t:ti«««4s««i|citi4[««««#«««it<««««st<>f<««««««««««4i>l<4E#««4< 


89F25360 








* 








« 


89F25370 


066B 





0000 


lYOlO 


DC 


*-* ENTRY. 




89F25380 


066C 





0B2D 






XIO 


3 AAC50-BASE CK BYPASS ERROR 




89F25390 


0660 





1802 






SRA 


TWO LOG. 




89F25400 


066E 





48 04 






SKP 


E SKIP TO LOG. 




89F25410 


066F 





7003 






B 


IY020 BRANCH AROUND LOG. 




89F25420 


0670 





4700 060A 






BSI 


L3 MAOIO-BASE LOG ERROR MESSAGE. 




89F25430 


0672 





0C6B 






DC 


MS608-BASE MESSAGE. 




89F25440 


0673 







IY020 


EOU 


* 




89F26450 


0673 





0B2D 






XIO 


3 AAC50-BASE CK WAIT ON ERROR 




89F25460 


0674 





1801 






SRA 


ONE SKIP IF SWITCH 




89F25470 


0675 





4804 






SKP 


E i4 IS OFF. 




89F25480 


0676 





3076 


WAT76 


WAIT 


/76 ERROR WAIT. 




89F25490 


0677 





4F80 0606 






B 


13 lYOlO-BASE RETURN, 




89F25500 








»«««««#««igc«<i<c««4i«««««««««st:i!c«:«i«:t<>i<«>^:(:«««««««4:«ig[«i{t:):>X#«: 


89F25510 








* 








* 


89F25520 








* 


LOG 


NON 


INTERRUPT ERRORS 


* 


89F25530 








* 








« 


89F25540 








«#>ic«ltl««#«««##<!#«««««:)c<s««#s|c«#ItI««#iic«4!l)::(c>!:«#««Jil««««4:i!c«« 


89F25550 








* 








* 


89F25560 








« 


THIS SUBROUTINE LOGS DATA ON NON INTERRUPT 


« 


89F25570 








« 


ERRORS. 




* 


89F25580 








« 








* 


89F25590 








# 


CALL - 




» 


89F25600 








« 








* 


89F25610 








* 




BSI 


L3 JAOIO-BASE 


* 


8 9F2 5620 








* 








« 


89F25630 








* 




XRl 


CONTAINS THE ADDRESS OF THE POSITION 


* 


89F25640 








« 




WITH THE ERROR. 


« 


89F25650 








« 








« 


89F25660 








itc 




XR2 


CONTAINS THE PATTERN 10. 


* 


89F25670 








* 








* 


89F25680 








* 




XR3 


IS THE PSEUDO BASE REGISTER. 


# 


89F25690 








* 








# 


89F25700 








* 






3/26/69 


* 


89F25710 








« 








* 


89F25720 








*»*«****#*«»**#***«*«******#***#*******#****««#<,*,>* 


89F25730 








* 








* 


89F25740 


0679 





0000 


JAOIO 


DC 


*-* ENTRY. 




89F25750 


067A 





6A0E 






STX 


2 JA040+1 SAVE XR2. 




89F25760 


067B 





4700 OBAF 






BSI 


L3 SUOIO-BASE ZERO LINE BUFFER. 




89F25770 


06 7D 





4029 






BSI 


JBOIO FILL KNOWN PATTERN. 




89F25780 


067E 





ClOO 






L D 


1 ZERO LOAD AND FILL 




89F25790 


067F 





4030 


* 




BSI 


KAOIO FAILURE PATTERN. 




89F25800 
89F25810 








* 


CHECK STORAGE PROTECT BIT IN ERROR WORD. 




89F25820 








* 










89F25830 


0680 





1810 






SRA 


16 TRY STORING ZERO ON ERROR 


89F25840 


0681 





0100 






STO 


1 ZERO WORD. 




89F25850 



DATE 
EC NO. 
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431321 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 180G SYSTEM 
EXTENDED CORE FUNCTION TEST 



0682 





7005 




0683 





C200 




068^ 





F021 




0685 





D200 




0686 





2D40 


0000 


0688 





6600 


0000 


068A 





4700 


0807 


068C 





4700 


086E 


068E 





C014 




068F 





4700 


08CO 


0691 





0B2D 




0692 





1802 




0693 





4804 




0694 





7008 




0695 





4043 




0696 





C0F2 




0697 





4700 


0437 


0699 





DOC A 




069A 





C809 




069B 





4700 


0BE6 


069D 









0690 





0B2D 




069E 





1801 




069F 





4804 





06AO 3078 

06A1 4F80 0614 



B 




JA040 


LD 


2 


ZERO 


EOR 




JAC06 


STO 


2 


ZERO 


STS 


LI 


ZER0,/40 


JA040 LDX 


L2 


*-* 


BSI 


L3 


POOIO-BASE 


BSI 


L3 


PROIO-BASE 


LD 




JAC02 


BSI 


L3 


PSOIO-BASE 


XIO 


3 


AAC50-BASE 


SRA 




TWO 


SKP 




E 


B 




JA050 


BSI 




KBOIO 


LD 




JA040+1 


BSI 


L3 


ICOIO-BASE 


STO 




JAC04 


LDO 




JAC04 


BSI 


L3 


SVOIO-BASE 


JA050 EOU 




* 


XIO 


3 


AAC50-BASE 


SRA 




ONE 


SKP 




E 


* 






WAT78 WAIT 




/78 



BIT. 
LINE. 



BRANCH NO INTERRUPT. 
SET STORAGE PROTECT BIT 
AND CHANGE PARITY BIT TO 
MAINTAIN ODD PARITY. 
RESET STORAGE PROTECT BIT. 
RESTORE PATTERN ID. 

TALLEY FAILURES BY 

TALLEY FAILURES BY 
UPDATE TEST FAILURE 

STORAGE. 

CK FOR BYPASS 
IMMEDIATE ERROR LOG. 
SKIP TO LOG. 
BRANCH NO LOG. 
PUT ADDR. IN LINE BUFFER. 
CONVERT PATTERN ID. TO 

TWO 1443 CHARACTERS AND 
PUT IN ERROR CODE. 

LOG ERROR. 

CK FOR HALT ON ERROR 



HALT ON ERROR WAIT. 



B 



13 JAOIO-BASE RETURN. 
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89F25860 
89F25870 
89F25880 
89F25890 
89F25900 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



EXTENDED CORE FUNCTION TEST 



*************************************************** 89F26140 

89F26150 
89F26160 
89F26170 
89F26180 
89F26190 
89F26200 
89F26210 
89F26220 
89F26230 
89F26240 
89F26250 



* 

« CONSTANTS AND WORK AREAS * 

# * 



FAILURE TABLE ADDRESS. 
ERROR CODE 21. 



06A3 0F5D 


JAC02 


DC 


PXK50-BASE 


06 A4 0001 


JAC04 


BSS 1 


S 1 


06A5 0201 




DC 


/0201 


06A6 OBOB 


JAC06 
* 


DC 


/OBOB 



MASK TO SET STOR. PROT. 
BIT, CHANGE PARITY BIT. 



»«**«#**«*«#***««**>!--********«*******«************** 89F26260 

**««**«#*«**#***#«******«*****«*«***#**********<'*** 89F262 70 

* 

* FILL KNOWN PATTERN 

* 



* 89F26280 

* 89F26290 

* 89F26300 



#*#**«#«***»*#*«**««**#*#*********«**************** 89F26310 

* 89F26320 
ENTRY. 

PUT AODRS OF TEST 
PATTERN BUFFER AREA IN 
XR2, LOAD TEST PATTERN 
AND FILL. 



06A7 





0000 




JBOIO 


DC 




*-* 


06A8 





C334 






LD 


3 


AAC64-BASE 


06A9 





DOOl 






STO 




JB020+1 


06AA 





6600 


0000 


JB020 


LDX 


L2 


*-* 


06AC 





C700 


04F0 




LD 


L3 


IXC12-BASE 


06AE 





400D 






BSI 




KAOIO 


06AF 





C700 


04F1 




LD 


L3 


1XC14-BASE 


06B1 





48 20 






SKP 




Z 


06 B2 





7003 






B 




JB030 


06B3 





C200 






LD 


2 


ZERO 


06B4 





FOFl 






EOR 




JAC06 


06 B 5 





D200 






STO 


2 


ZERO 


06 B6 









JB030 


EOU 




* 


06B6 





C335 






LD 


3 


AAC66-BASE 


06B7 





DOOl 






STO 




JB040+1 


06 B8 





6600 


0000 


JB040 


LDX 


L2 


«-* 


06 BA 





4F80 


0642 




B 


13 


JBOIO- BASE 



TEST STORAGE PROTECT SW. 
SKIP IF SET. 
SKIP NOT ON. 
LOG STORAGE PROTECT BIT 
AND UPDATE PARITY BIT. 



PUT AODRS OF FAILURE 
PATTERN BUFFER AREA IN 
XR2. 

RETURN. 

**#«###***«****#****«***«##****»** ***************** 

* * 

* FILL SUBROUTINE * 

* * 



89F26330 
89F26340 
89F26350 
89F26360 
89F26370 
89F26380 
89F26390 
89F26400 
89F26410 
89F26420 
89F26430 
89F26440 
89F26450 
89F26460 
89F26470 
89F26480 
89F26490 
89F26500 
89F26510 
89F26520 
89F26530 



* 
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89F26540 
89F26550 









* THIS 


SUBROUTINE FILLS THE LINE BUFFER AREA 


* 89F26560 








* DESIGNATED BY XR2 WITH 


THE PATTERN IN THE 


* 89F26570 








* ACCUMULATOR. 






* 89F26580 








« 








* 89F26590 








* CALL 


„ 






* 89F26600 








:je 








« 89F26610 








« 


BSI L3 


KAOIO- BASE 




* 89F26620 








« 








* 89F26630 








* 


THE ACCUMULATOR CONTAINS THE WORD TO BE 


* 89F26640 








« 


FILLED. 






* 89F26650 








* 








* 89F26660 








* 


XRl IS 


SAVED AND RESTORED. 


* 89F26670 








* 








* 89F26680 








* 


XR2 CONTAINS THE ADDRESS OF THE BUFFER AREA, 


.* 89F26690 








* 








* 89F26700 








« 


XR3 IS THE PSEUDO BASE REGISTER. 


* 89F26710 








* 








89F26720 








* UPON 


1 EXIT XR2 CONTAINS 


THE ADDRESS OF THE PARITY* 89F26730 








* AND 


SP BITS. 






* 89F26740 








# 








* 89F26750 








* 








* 89F26760 








#**«**!^. **««#*********#**#**«********* ************ 


** 89F26770 








« 








* 89F26780 


06BC 





0000 


KAOIO 


DC 


*-* 


ENTRY. 


89F26790 


06 BO 





0014 




STO 


KAC02 


SAVE PATTERN. 


89F26800 


06BE 





6908 




STX 1 


KA050+1 


SAVE XRl. 


89F26810 


06 BF 





6188 




LDX 1 


-120 


XRl POINTS TO LEFT BYTE. 


89F26820 


06C0 





C012 




LD 


KAC04 


INITIALIZE LOOP 


89F26830 


06C1 





D031 




STO 


KCC02 


AND DIGIT COUNTERS. 


89F26840 


06C2 





D031 




STO 


KCC04 




89F26850 


06C3 





COOE 




LD 


KAC02 


LOAD PATTERN INTO 


89F26860 


06C4 





18 DO 




RTE 


16 


Q AND POSITION FIRST BIT 


. 89F26870 


06C5 
06C6 





4033 




BSI 


KCOlO 


LOAD CHARACTERS INTO LINE. 89F26880 





6500 0000 


KA050 


LDX LI 


*-* 


RESTORE XRl. 


89FZ6890 


06C8 





7201 




MDX 2 


ONE 


INCREMENT WORD POINTER. 


89F26900 


06C9 





COOA 




LD 


KAC06 


TEST BIT COUNTER FOR 


89F26910 


06CA 





4804 




SKP 


E 


EVEN. 


89F26920 


06CB 





7002 




B 


KA070 


BRANCH TO LOAD 00. 


89F26930 


06CC 





COOB 




LD 


KAC14 


LOAD 01, EVEN PARITY. 


89F26940 


06CD 





7001 




B 


KA080 


SKIP. 


89F26950 


06CE 







KA070 


EOU 


* 




89F26960 


06CE 





COOB 




LD 


KAC12 


LOAD 00, ODD PARITY. 


89F26970 


06CF 







KA080 


EOU 


* 




89F26980 


06CF 





0200 




STO 2 


ZERO 


LOAD SP AND PARITY BITS. 


89F26990 


0600 





4F80 0657 




B 13 


KAOIO-BASE 


RETURN. 


89F27000 








#*«##**«****#****«*««**««************************** 89F27010 








* 








* 89F27020 








* CONSTANTS AND WORK AREAS 


# 89F27030 








* 








* 89F27040 








«**«#*#*«#**«**#«*»*«**«*************************** 8 9F 27050 








* 








* 89F27060 


06D2 




0001 


KAC02 


BSS 


1 


PATTERN STORAGE. 


89F27070 


0603 





0004 


KAC04 


DC 


4 


LOOP COUNT. 


89F27080 


0604 




0001 


KAC06 


BSS 


1 


BIT COUNTER. 


89F27090 








* 






RELATIVE BASE ADDRESS OF 89F27100 


06D5 





0BC4 


KAC08 


DC 


SUC86-BASE LINE BUFFER FILL AREA. 


89F27110 


0606 





000 3 


KACIO 


DC 


3 


THREE. 


89F27120 

j^ f^ i~ '^ '^ -y '^ f^ 


06D7 





OAOA 


KAC12 


DC 


/OAOA 


1443 CHARACTERS 00. 


89F27130 


06D8 





OAOl 


KAC14 


DC 


/OAOl 


1443 CHARACTERS 01. 


89F27140 
* 89F27150 



««#«#««*«******«*******#*#*****«******************* 89F27160 
#«****«*##«««»«****»******************************* 89F27170 
^ * 89F27180 

* LOAD ADDRESS IN LINE BUFFER SUBROUTINE * '^'^^^l\t° 

J, * 89F27200 

#****#*«*«*##***********#*****************»******** 89F27210 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE. 



089F-1 
20 



DATE 
EC NO. 
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431319A 
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431321 



PROG ID 
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089F-1 
20A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
EXTENDED CORE FUNCTION TEST 









* 


THIS SUBROUTINE CONVERTS THE ADDRESS IN XRl 








* 


TO 


A STRING 


OF 1443 ( 


;haracters and fills them 








* 


INTO THF 


■ LINE BUFFER 


AT SUC86. 








* 


CALL - 














* 




BSI 


L3 


KBOIO-BASE 








* 




XRl 


CONTAINS THE 


address. 








* 




XR2 


IS 


SAVED AND 


RESTORED. 








* 




XR3 


IS 


THE PSEUDO BASE REGISTER. 








* 










3/12/69 










06D9 





0000 


KBOIO 


DC 




*-* 


ENTRY. 


060A 





6A15 






STX 


2 


KB050+1 


SAVE XR2 AND ADDRESS. 


06DB 





C0F9 






LD 




KAC08 


COMPUTE ABSOLUTE BASE 


06DC 





8301 






A 


3 


ONE 


ADDRESS OF ADDRESS AREA 


060D 





DOOl 






STO 




KB020+1 


IN LINE BUFFER AND 


06DE 





6600 0000 


KB020 


LDX 


L2 


*-* 


INITIALIZE XR2. 


06E0 





690D 






STX 


1 


KB040+1 


SAVE XRl. 


06E1 





6188 






LDX 


1 


-120 


XRl POINTS TO LEFT BYTE. 


06E2 





COFO 






LD 




KAC04 


INITIALIZE LOOP 


06E3 





DOOF 






STO 




KCC02 


COUNTER. 


06E4 





COFl 






LD 




KACIO 


INITIALIZE DIGIT 


06E5 





DOOE 






STO 




KCC04 


COUNTER VALUE. 


06E6 





C007 






LD 




KB040+1 


MOVE ADDRESS TO CONVERT 


06E7 





18D0 






RTE 




16 


INTO Q. 


06E8 





4010 






BSI 




KCOlO 


CONVERT AND LOAD CHARS. 


066 9 





7201 






MDX 


2 


ONE 


UPDATE WORD POINTER. 


06EA 





C0E8 






LD 




KAC04 


INITIALIZE DIGIT COUNTER 


06EB 





D008 






STO 




KCC04 


FOR LAST FOUR DIGITS. 


06EC 





400 C 






BSI 




KCOlO 


CONVERT AND FILL CHARS. 



06ED 6500 0000 
06EF 6600 0000 
06F1 4F80 0674 



« CONVERSION DONE. 
* 

KB040 LDX LI *-* RESTORE XRl, ADDRESS. 
KB050 LDX L2 *-* RESTORE XR2. 
B 13 KBOIO-BASE RETURN. 

* « 

* LOAD SUBROUTINE * 

* « 

* * 

* THIS SUBROUTINE IS COMMON TO THE FILL AND LOAD « 

* ADDRESS SUBROUTINES. # 

* « 

* CALL - « 

* * 

* BSI KCOlO * 

* * 
XRl POINTS TO THE INITIAL BYTE TO FILL. * 

XR2 CONTAINS THE ADDRESS OF THE BUFFER AREA.* 

* 
XR3 IS THE PSEUDO BASE REGISTER. 



THE WORD TO CONVERT AND FILL IS IN THE Q. 

THE LOOP COUNTER, KCC02, IS ALREADY 
INITIALIZED. 



89F27220 
89F27230 
89F27240 
89F272 50 
89F27260 
89F27270 
89F27280 
89F27290 
89F27300 
89F27310 
89F27320 
89F27330 
89F27340 

89F27350 
89F27360 
89F27370 
89F27380 
89F27390 
89F27400 
89F27410 
89F27420 
89F27430 
89F27440 
89F27450 
89F27460 
89F274 70 
89F27480 
89F27490 
89F27500 
89F27510 
89F27520 
89F27530 
89F27540 
89F27550 
89F27560 
89F27570 
89F27580 
89F27590 
89F27600 
89F27610 
89F27620 
89F27630 
89F27640 
89F27650 
89F27660 
89F27670 
89F27680 
89F27690 
89F27700 
89F27710 
89F27720 
89F27730 
89F27740 
89F27750 
89F27760 
89F27770 
89F27780 
89F27790 
e9F27800 
89F27810 
89F27820 

89F27830 
89F27840 
89F27850 
89F27860 
89F27870 
89F27880 
89F27890 



06F3 




0001 


06F4 




0001 


06F5 




0001 


06F6 




0001 


06F7 





OOOA 


06F8 





0001 


06F9 





0000 


06FA 





1810 


06FB 





D0D8 


06FC 







06FC 





C0F7 


06FD 





D0F7 


06FE 







06FE 





1804 


06FF 





1081 


0700 





bOFS 


0701 





4808 


0702 





C0F4 


0703 





1100 


0704 





EAOO 


0705 





D200 


0706 





COCD 


0707 





eOEE 


0708 





OOCB 


0709 





COEB 


070A 





90ED 


070B 





4808 


070C 





7007 


070D 





D0E7 


070E 





7100 


070F 





7178 


0710 





7188 


0711 





7001 


0712 





7201 


0713 





70EA 


0714 







0714 





CODE 


0715 





90E2 


0716 





4808 


0717 





7003 


0718 





DODA 


0719 





7201 


071A 





70E1 


071B 







071B 





4F80 0694 



* 3/12/69 * 

* * 

« * 

* * 

* CONSTANTS AND WORK AREAS * 

* * 



KCC02 BSS 






KCC04 BSS 






KCC06 BSS 






KCC08 BSS 






KCCIO DC 




/OOOA 


KCC12 DC 








KCOlO DC 




*-* 


SRA 




16 


STO 




KAC06 


KC020 EQU 




* 


LD 




KCC04 


STO 




KCC06 


KC030 EQU 




* 


SRA 




FOUR 


SLT 




ONE 


STO 




KCC08 


SKP 




+ 


LD 




KCCIO 


SLA 


1 


ZERO 


OR 


2 


ZERO 


STO 


2 


ZERO 


LD 




KAC06 


A 




KCC08 


STO 




KAC06 


LD 




KCC06 


S 




KCC12 


SKP 




+ 


B 




KC040 


STO 




KCC06 


MDX 


1 


ZERO 


MDX 


1 


120 


MDX 


1 


-120 


MOX 




*+l 


MDX 


2 


ONE 


B 




KC030 


« DIGIT COUNTER ZER( 


KC040 EQU 




* 


LD 




KCC02 


S 




KCC12 


SKP 




+ 


B 




KC050 


STO 




KCC02 


MDX 


2 


ONE 


B 




KC020 



LOOP COUNTER. 

VALUE TO PUT IN DIGIT CTR. 

DIGIT COUNTER. 

STORAGE AREA FOR BIT. 

1443 CHARACTER 0. 

ONE. 



ENTRY. 

ZERO BIT COUNTER. 



INITIALIZE THE 
DIGIT COUNTER. 



3 OR 4. 



CLEAR ACCUMULATOR. 

GET NEXT BIT TO CONVERT. 

SAVE FOR COUNTING. 

SKIP IF ONE. 

LOAD CHARACTER ZERO. 

LOAD CHARACTER INTO 

PROPER WORD AND BYTE 

POSITION IN BUFFER AREA. 

UPDATE THE BIT 

COUNTER. 

DECREMENT DIGIT COUNTER 

AND TEST FOR MORE DIGITS 

TO CONVERT. 

BRANCH NO MORE DIGITS. 

UPDATE DIGIT COUNTER. 

SKIP IF RIGHT BYTE. 

MAKE RIGHT BYTE, SKIP, 

MAKE LEFT BYTE, SKIP. 

SKIP. 

INCREMENT WORD POINTER. 

LOOP TO CONVERT. 



DECREMENT THE 

LOOP COUNTER. 

TEST IF DONE. 

BRANCH IF DONE. 

UPDATE THE LOOP COUNTER. 

INCREMENT WORD POINTER. 

CONVERT MORE DIGITS. 



* CONVERSION DONE. 

* 

KC050 ECU * 

B 13 KCOIO-BASE RETURN. 

* # 

* INTERRUPT ADDRESS IN PATTERN TEST * 

* * 
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89F27900 

89F27910 

89F27920 

89F27930 

89F27940 

89F27950 

89F27960 

89F27970 

89F27980 

89F27990 

89F28000 

89F28010 

89F28020 

89F28030 

8gF28040 

89F28050 

89F28060 

89F28070 

89F28080 

89F28090 

89F28100 

89F28110 

89F28120 

89F28130 

89F28140 

89F28150 

89F28160 

89F28170 

89F28180 

89F28190 

89F28200 

e9F282l0 

89F28220 

89F28230 

89F28240 

89F28250 

8 9F28260 

89F28270 

89F28280 

89F28290 

89F28300 

89F28310 

89F28320 

89F28330 

89F28340 

89F28350 

89F28360 

89F28370 

89F28380 

89F28390 

89F28400 

89F28410 

89F28420 

89F28430 

89F28440 

89F28450 

89F28460 

89F28470 

89F28480 

89F28490 

89F28500 

89F28510 

89F28520 

89F28530 

89F28540 

89F28550 

89F28560 

89F28570 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
21 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
21A 
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EXTENDED CORE FUNCTION TEST 



071D 
071E 
0720 
0721 
0722 
0723 
0724 
0725 
0726 
0727 
0728 
0729 
072A 
0728 
072C 

0720 
072F 
0730 
0730 
0731 
0733 



0000 

C700 0476 

188C 

lOOC 

F301 

180C 

4820 

700A 

108C 

BOOD 

4838 

7006 

BOOB 

7004 

1000 

C700 0480 
4838 

1810 

D700 0551 
4F80 06B8 



0735 009B 

0736 0424 



* CALL - 

* BSI 



L3 KLOIO-BASE 



*************************************************** 89F28580 
^ * 89F28590 

* 89F28600 

* 89F28610 

* 89F28620 

* 89F28630 
4/22/69 * 89F28640 

^ * 89F28650 

#»***«*♦***«*««♦*»«****************•*************** 89F28660 
^ * 89F28670 

ENTRY. 89F28680 

L3 IIOIO-BASE SAVE INTERRUPT 

SAVE ADDRESS BITS 4 - 15. 

RESTORE BITS 0-4. 

COMPARE INTERRUPT TO 

PROGRAM RESIDENCE MODULE. 

SKIP IF IN PROGRAM. 

BRANCH IF NOT. 

COMPARE ADDRESS TO HIGH 

AND LOW TEST PATTERN 

ADDRESS LIMITS. 

BRANCH OUT OF RANGE. 



KLOIO DC 
LD 
SRT 
SLA 
EOR 
SRA 
SKP 
B 

SLT 
CMP 
SKP 
B 
CMP 
B 
NOP 

LO 
SKP 

KL020 EOU 



*-* 

IIOIO-BASE 

12 

12 

ONE 

12 

Z 

KL020 

12 

KLC02 

+-Z 

KL020 

KLC04 

KL020 



BRANCH OUT OF RANGE. 



SRA 
STO 

B 



L3 



L3 



89F28690 
89F28700 
89F28710 
89F28720 
89F28730 
89F28740 
89F28750 
89F28760 
89F28770 
89F28780 
89F28790 
89F28800 
89F28810 
89F28820 
89F28830 
89F28840 
89F28850 
89F28860 
89F28870 
89F28880 



* CONSTANTS AND WORK AREAS 



nO60+l-BASE PUT PATTERN ID. IN 
+-1 XR2 LOAD OPERAND. 

* 

16 

IX610+1-BASE 
13 KLOIO-BASE RETURN. 
#««♦*#****♦*#♦************************************* 8 9 F2 8890 

* * B9F28900 

« 89F28910 
* 89F28920 

*»*******«#♦«***********«************************** 89F28930 
^ * 89F28940 

KLC02 DC PTEST-AAOOO 89F28950 

KLC04 DC ETEST-AAOOO ?'^?!2t2 

^ * 89F28970 

«♦»*»#**♦**♦*********««********«******************* 89F 28980 

#**»***««**♦****♦**«******«»*«**«****************** 8 9 F2 8990 

« 

* SPECIAL ENTRY TO WRITE SUBROUTINE 



* 89F29000 

* 89F29010 

* 89F29020 



*«**»««#****«***********»*««**********•*****•«***** 8 9F29030 



0737 0000 




* 
MAOOl 


DC 




*-« 


0738 C780 


06 D2 




LO 


13 


MAOOl-BASE 


073A D031 






STO 




MAC15 


073B COFB 






LD 




MAOOl 


073C 0002 






STO 




MAOIO 


073D C02C 






LO 




HACIO 


073E 7006 






B 




MA018 



ENTRY. 

SAVE RELATIVE ADDRESS OF 
MESSAGE IN 1443 lOCC. 
MAKE ENTRY APPEAR 
NORMAL. 

LOAD OLD SWITCH SETTING 
AND ENTER PRINT ROUTINE. 



» 89F29040 
89F29050 
89F29060 
89F29070 
89F29080 
89F29090 
89F29100 
89F29110 

* 89F29120 

***#«*##♦*««*«**«********«#***♦****»***•******♦**** 8 9F29130 

♦ * 89F29140 

* WRITE SUBROUTINE * 89F29150 

# * 89F29160 
*««*##****»#***«**#*******«********»***»*********** 89F29170 
* 

THIS SUBROUTINE WRITES ON THE 1443 IF DATA 
ENTRY SWITCH 9 IS OFF, AND WRITES ON THE 1816/ 
1053 IF SWITCH 9 IS ON. 



THE MESSAGE IS IN 1443 FORMAT. IF NECESSARY IT 
IS CONVERTED TO 1816/1053 CODE. 



89F2918a 
89F29190 
89F29200 
89F29210 
89F29220 
89F29230 
89F29240 
89F29250 



07 3F 
0740 
0740 
0742 
0743 
0744 
0745 
0745 
0746 
0747 
0748 
0748 
0749 
074A 
074B 
074C 
0740 

074 E 
074F 
0750 
0751 
0751 
0752 

075 3 
0754 
0754 
0755 
0756 
0757 
0758 
0759 
075A 
075B 
075C 
075C 
075D 
075E 
075F 
0761 
0761 
0762 



0000 

C780 06DA 
D029 
0824 
0025 

1806 
4804 
7032 



0821 
4804 
7019 
681A 
COIF 
4810 
7002 

0828 

7003 







































3030 

0807 



8301 
D019 
0818 

0819 
1002 
4810 
70FC 
4802 
7007 
1810 
000 A 

C0E2 
8012 
DOEO 
4F80 060A 



0763 70DC 

0764 

0764 3031 

0765 70DA 



* CALL - 
* 



* 
* 

L3 MAOIO-BASE * 

MS6-BASE ABSOLUTE DISPLACEMENT OF * 

MESSAGE. * 

* 

IS SAVED AND RESTORED. * 

IS SAVED AND RESTORED. * 

XR3 IS THE PSEUDO BASE ADDRESS REGISTER. * 



BSI 
DC 



XRl 



XR2 



«*#««**#«**«♦*«»*****•«*•************************** 



MAOIO DC 

MA015 EOU 
LD 
STO 
XIO 
STO 

MA018 EOU 
SRA 
SKP 
B 

MA020 EOU 
XIO 
SKP 
B 

STX 
LD 
SKP 
B 

XIO 
B 

MA025 EOU 
A 

STO 
XIO 
MA030 EOU 
XIO 
SLA 
SKP 
B 

SKP 
B 

SRA 
STO 
MA036 EQU 
LD 
A 

STO 
B 
MA040 EOU 
WAT30 WAIT 

XIO 
* 



*-* 
* 
13 MAOIO-BASE 
MAC15 
MAC05 

MACIO 

* 

SIX 

E 

MAIOO 
# 

MACIO 
E 

MA050 

MACOl 

MAC15 

MA025 
MAC50 
MA030 
* 
3 ONE 
MAC15 

MAC15 
* 

MAC20 
TWO 

MA 030 

C 

MA040 

16 

MACOl 

MAOIO 
MAC25 
MAOIO 



ENTRY TO WRITE ROUTINE. 

SAVE RELATIVE ADDRESS OF 
MESSAGE IN 1443 lOCC. 
SENSE DATA SWITCHES. 
SAVE SWITCH SETTING. 

DETERMINE I/O DEVICE. 
SKIP IF 1443. 
BRANCH IF 1816/1053. 

SENSE 1443 DSW. 

SKIP IF 1443 READY. 

BRANCH TO DISPLAY. 

SET 1443 WRITE SWITCH ON. 

TEST FOR FUNCTION. 

SKIP IF SPACE FUNCTION. 

BRANCH TO WRITE MESSAGE. 

EXECUTE SPACE. 

BRANCH TO CONTINUE. 

COMPUTE ABSOLUTE ADDRESS 

OF MESSAGE. 

WRITE. 

SENSE 1443 DSW, NO RESET. 
TEST PRINTER COMPLETE. 
SKIP WHEN DONE. 
LOOP TILL PRINTER DONE. 
SKIP NO ERROR, CARRY OFF. 
BRANCH TO ERROR ROUTINE. 
RESET 1443 WRITE 
SWITCH. 

INCREMENT RETURN 
ADDRESS AND UPDATE 
IT. 



13 MAOIO-BASE RETURN. 



0766 0000 
0768 0001 



* ERROR ROUTINE. 

/30 ERROR WAIT. 

MACIO RESET 1443 DSW. 

START OVER AGAIN, MAY USE 

B MA015 1816/1053. 

MA050 EOU * 14*3 NOT READY DISPLAY. 

WAT31 WAIT /31 NOT READY WAIT. 

B MA015 RETURN TO TRY AGAIN. 

« * 

* CONSTANTS AND WORK AREAS * 

* * 

» * 

MACOl OC /OOOO 1443 WRITE SWITCH, OFF. 

MAC05 BSS E 1 FORCE. EVEN BOUNDARY FOR 



PART NO. 
PAGE 



89F29260 

89F29270 

89F29280 

89F29290 

89F29300 

e9F29310 

89F29320 

89F29330 

89F29340 

89F29350 

89F29360 

89F29370 

89F29380 

89F29390 

89F29400 

B9F29410 

89F29420 

89F29430 

89F29440 

89F29450 

89F29460 

89F29470 

89F29480 

89F29490 

89F29500 

89F29510 

89F29520 

89F29530 

89F29540 

89F29550 

89F29560 

89F29570 

89F29580 

89F29590 

89F29600 

89F29610 

89F29620 

89F29630 

89F29640 

89F29650 

89F29660 

89F29670 

89F29680 

89F29690 

89F29700 

89F29710 

89F29720 

89F29730 

89F29740 

89F29750 

e9F29760 

89F29770 

89F29780 

89F29790 

89F29800 

89F29810 

89F29820 

89F29830 

e9F29 840 

89F29850 

89F29860 

89F29870 

89F29880 

89F29890 

89F29900 

89F29910 

89F29920 

e9F29930 



2279488 
22A 
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0769 0740 
076A 0000 
076B 3701 
076C 0000 
0760 3500 



076E 0001 
076F 3700 



0770 0001 

0771 0F03 



0772 8100 

0773 0F02 



0774 





0000 


0775 





0902 


0776 




0001 


0777 





0711 


0778 





2ioo 


0779 





3400 



/0740 

/OOOO 

/3701 

♦-* 

/3500 



lOCC TO SENSE DES. 
SENSE 1443 DSH AND 
RESET. 

lOCC TO WRITE AT 1443. 



DC 
MACIO DC 

DC 
MAC15 DC 

DC 
« 

* MAC20 IS ALSO WORD COUNT STORAGE. 
* 

MAC20 BSS 1 SENSE 1443 DSW WITHOUT 

DC /3700 RESET. 

* MAC25 IS ALSO THE CONSTANT OF ONE. 
♦ 

MAC25 DC 1 SENSE FIRST PRINTER DSW 

DC /0F03 WITH RESET. 
* 

1816/1053 CARRIER RETURN. 



SENSE FIRST PRINTER DSW 
WITHOUT RESET. 

IS CALCULATED AND STORED IN 



« MAC30 IS 

4 


ALSO AN 1816/ 


MAC30 DC 
DC 




/8100 
/0F02 


* THE ADDRESS 

* MAC35. 


OF MAC40 I 


MAC35 DC 
DC 
MAC40 BSS 
MAC45 DC 
MAC50 DC 
DC 




«-* 

/0902 

1 

MAC40-BASE 

/2100 

/3400 



WRITE lOCC TO FIRST 
1816 OR 1053. 
CHARACTER TO PRINT. 
RELATIVE ADDRESS OF MAC40 
lOCC TO SPACE 
IMMEDIATE. 



********************** T************ *********#*«**«** 

* * 

* WRITE ROUTINE FOR 1816/1053. * 

* >> 



SAVE XRl. 

SAVE XR2. 

COMPUTE ABSOLUTE ADDRESS 

OF CHARACTER BUFFER AND 

STORE IN lOCC. 

INITIALIZE XRl 

SKIP IF MESSAGE TO WRITE. 

BRANCH TO SPACE FUNCTION. 

COMPUTE ABSOLUTE ADDRESS 

TO POINT TO I/O 

BUFFER AREA. 

GET WORD COUNT. 

AND SAVE. 

BUMP XRl TO FIRST WORD. 

XR2 POINTS TO LEFT BYTE. 

TEST FOR PRINTER READY. 

CONVERT CHARACTER. 

CHARACTER TO I/O BUFFER. 

WRITE. 

TEST FOR PRINTER DONE. 

TEST RIGHT BYTE, SKIP YES. 

MAKE RIGHT BYTE, SKIP. 

MAKE LEFT BYTE, SKIP. 

PRINT RIGHT BYTE. 

DECREMENT WORD COUNTER. 

AND TEST. 

SKIP NOT ZERO YET. 

DONE PRINTING LINE. 



077 A 




* 

MAIOO EQU 




« 


077A 


6923 


STX 


1 


MA145+1 


077B 


6A20 


STX 


2 


MA140+1 


077C 


C301 


LD 


3 


ONE 


077D 


80F9 


A 




HAC45 


077E 


D0F5 


STO 




MAC35 


077F 


COEC 


LD 




MAC15 


0780 


4808 


SKP 




+ 


0781 


7018 


B 




MA130 


0782 


8301 


A 


3 


ONE 


078 3 


0001 


STO 




MA105+1 


0784 


6500 0000 


MA105 LOX 


H 


«-* 


0786 


ClOO 


LD 


1 


ZERO 


0787 


D0E6 


STO 




MAC20 


0788 


7101 


MDX 


1 


ONE 


0789 


6288 


LDX 


2 


-120 


078A 


4015 


BSI 




MA150 


078B 




MAI 10 EQU 




# 


078B 


402B 


BSI 




MMOIO 


078C 


D0E9 


STO 




MAC40 


078D 


08E6 


XIO 




MAC 3 5 


078E 


4011 


BSI 




MA150 


078F 


7200 


MDX 


2 


ZERO 


0790 


7278 


MDX 


2 


120 


0791 


7288 


MDX 


2 


-120 


0792 


70F8 / 


B 




MAllO 


0793 


CODA 


LD 




MAC20 


0794 


90D8 


S 




MAC25 


0795 


4808 


SKP 




+ 


0796 


7003 


B 




MA 130 



89F29940 

89F29950 

89F29960 

89F29970 

89F29980 

89F29990 

89F30000 

89F30010 

89F30020 

89F30030 

89F30040 

89F30050 

89F30060 

89F30070 

89F30080 

89F30090 

89F30100 

89F30110 

89F30120 

89F30130 

89F30140 

89F30150 

89F30160 

89F30170 

89F30180 

89F30190 

89F30200 

89F30210 

89F302Z0 

89F30230 

89F30240 

89F30250 

89F30260 

89F30270 

89F30280 

89F30290 

89F30300 

89F30310 

89F30320 

89F30330 

89F30340 

89F30350 

89F30360 

89F30370 

89F30380 

89F30390 

89F30400 

89F30410 

89F30420 

8 9F30430 

89F30440 

8 9F30450 

89F30460 

89F30470 

e9F30480 

89F30490 

89F30500 

89F30510 

89F30520 

89F3O530. 

89F30540 

89F30550 

89F30560 

89F30570 

89F3O580 

89F30590 

89F30600 

89F30610 



0797 





0006 






STO 




MAC20 


0798 





7101 






MDX 


1 


ONE 


0799 





70F1 




* 

* DONI 


B 




MAllO 










z PRINTING. 


079A 









MA130 


EQU 




* 


079A 





4015 






BSI 




MA200 


079B 





6600 


0000 


MA 140 


LOX 


L2 


*-« 


079D 





6500 


0000 


MA145 


LDX 


LI 


*-* 


079F 





70BC 




]^ 


B 




MA036 










* PRINTER 


STATUS LOOP 


07A0 





0000 




MAI 50 


DC 




*-* 


07 A 1 





08 DO 






XIO 




MAC30 


07A2 





1004 






SLA 




FOUR 


07 A 3 





4828 






SKP 




+Z 


07A4 





70FC 






B 




MA150+1 


07A5 









MA155 


EQU 




« 


07A5 





08CA 






XIO 




MAC25 


07A6 





1806 






SRA 




SIX 


07A7 





4804 






SKP 




E 


07A8 





7005 






B 




MA180 


07A9 





1804 






SRA 




FOUR 


07AA 





4804 






SKP 




E 


07AB 





7002 






B 




MAieo 


07AC 





4F80 


073B 




B 


13 


MA150-BASE 


07AE 









MA180 


EQU 




* 


07AE 





3032 




WAT32 


WAIT 




/32 


07AF 





70F5 




# 


B 




MA155 










* RETURN CARRIAGE 

9^ 


07B0 





0000 




MA200 


DC 




*-* 


07B1 





COCO 






LD 




MAC30 


07 B2 





D0C3 






STO 




MAC40 


07B3 





08C0 






XIO 




MAC35 


07B4 





40EB 






BSI 




MA150 


07B5 





4F80 


074B 




8 


13 


MA200-BASE 



* 

* 1816/1053 CHARACTER CON 



UPDATE COUNTER. 
BUMP WORD POINTER. 
PRINT NEXT CHARACTER. 



RETURN CARRIAGE. 
RESTORE XR2 
RESTORE XRl. 

BRANCH TO EXIT ROUTINE. 



SENSE DSW WITHOUT RESET. 
TEST FOR BUSY. 
SKIP NOT BUSY. 
LOOP IF BUSY. 

SENSE DSW WITH RESET AND 

TEST FOR PARITY ERROR. 

SKIP IF OFF. 

BRANCH TO WAIT. 

TEST FOR PRINTER NOT READY 

SKIP IF READY. 

BRANCH TO WAIT. 

RETURN. 

NOT READY OR ERROR WAIT. 
RETURN TO SENSE READY. 



LOAD CARRIER RETURN 

INTO CHARACTER BUFFER. 

WRITE. 

TEST STATUS. 

RETURN. 

* 
VERSION SUBROUTINE * 

* 



THIS SUBROUTINE CONVERTS A CHARACTER IN 1443 
CODE TO AN 1816 OR 1053 CHARACTER. 



CALL - 



BSI 



MMOIO 



XRl AND XR2 INDICATE THE CHARACTER TO 
CONVERT. 

XR3 IS SAVED AND RESTORED. 



*****««###*«««****** «*«#)jt***#«*j(t4*#««-, »*-,#:(,;(. 4,;,^ ^;j-,|-^ 



07B7 0000 
0788 6B0F 
07B9 6308 
07BA ClOO 
07BB lAOO 
07BC EOOF 

07 BD 4804 



MMOIO DC 
STX 
LDX 
LD 
SRA 
AND 

* 

SKP 



3 MM050+1 
3 EIGHT 

1 ZERO 

2 ZERO 
MMCIO 



SAVE BASE REGISTER. 
SET SHIFT COUNT TO 8. 
GET CHARACTER TO PRINT. 
IN RIGHT BYTE OF ACC. 

SKIP IF CHARACTER IS LEFT- 
BYTE IN TABLE. 



89F30620 

89F30630 

89F30640 

89F30650 

89F30660 

89F30670 

89F30680 

89F30690 

89F30700 

89F30710 

89F30720 

89F30730 

89F30740 

89F30750 

89F30760 

89F30770 

89F30780 

89F30790 

89F30800 

89F30810 

89F30820 

89F30830 

89F30840 

89F30850 

89F30860 

89F30870 

89F30880 

89F30890 

89F30900 

89F30910 

89F30920 

89F30930 

89F30940 

89F30950 

89F30960 

89F30970 

89F30980 

89F30990 

89F31000 

89F31010 

89F31020 

89F31030 

89F31040 

89F31050 

89F31060 

89F31070 

89F31080 

89F31090 

89F31100 

89F31110 

89F31120 

89F31130 

89F31140 

89F31150 

89F31160 

89F31170 

89F3U80 

89F31190 

89F31200 

89F31210 

89F31220 

89F31230 

89F31240 

89F31250 

89F31260 

89F31270 

89F31280 

89F31290 
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EXTENDED CORE FUNCTION TEST 





* 








LEFT BYTE, RETURN SHIFT 


89F31300 


07BE 73F8 


♦ 


MDX 


3 


-8 


COUNT TO 0, SKIP. 
RIGHT BYTE, LEAVE SHIFT 


89F31310 
89F31320 


07BF 1000 




NOP 






COUNT AT 8. 


89F31330 


O7C0 1801 


# 


SRA 




ONE 


PLACE 5 HI BITS IN ACC. 


89F31340 
89F31350 




* COMPUTE 


ABSOLUTE ADDRESS OF CONVERTED CHARACTERS. 


89F31360 




# 










89F31370 


07C1 8006 




A 




MM050+1 


ADD CONTENTS OF BASE 


89F31380 


\^ ■ V X \^ \J \^ \^ \^ 

07C2 8008 




A 




MMC05 


REGISTER AND DISPLACEMENT 


89F31390 


07C3 0001 




STO 




MM030+1 


STORE IN LOAD INSTRUCTION 


89F31400 


07C4 C400 0000 


MM030 


LD 


L 


«_# 


LOAD1816/1053 CHARACTERS 


89F31410 


07C6 1300 


* 


SLA 


3 


ZERO 


SHIFT TO LEFT BYTE. 


89F31420 
89F31430 




* IF ■ 


THE RIGHT BYTE IS EXTRANEOUS, IT IS NOT MASKED 


89F31440 




* 










89F31450 


07C7 6700 0000 


MM050 


LDX 


L3 


«-* 


RESTORE XR3. 


89F31460 


07C9 4F80 0752 




B 


13 


MMOIO-BASE 


RETURN. 


89F31470 




*««**#«#*##********«**#**************************** 


89F31480 




* 








* 


89F31490 




* CONSTANTS AND WORK AREAS * 


89F31500 




« 








* 


89F31510 




*»«###***«***#*««#»*«* ************ ***************** 


89F31520 




* 








* 


89F31530 




* 








DISPLACEMENT OF TABLE 


89F31540 


07CB 0768 


MMC05 


OC 




T1053-BASE 


T1053. 


89F31550 


07CC OOFF 


MMCIO 


DC 




/OOFF 


MASK OFF LEFT BYTE. 


89F31560 


07CD 


T1053 


EOU 




* 


1816/1053 CHARACTER TABLE 


89F31570 


07CD FC21 




DC 




/FC21 


1, SPACE 


89F31580 


07CE DCD8 




OC 




/0CD8 


32 


89F31590 


07CF F4F0 




DC 




/F4F0 


54 


89F31600 


07D0 D4D0 




OC 




/D4D0 


76 


89F31610 


0701 E0E4 




DC 




/E0E4 


98 


89F31620 


0702 C2C4 




OC 




/C2C4 


=0 


89F31630 


07D3 E604 




DC 




/E604 


•a 


89F31640 


07D4 8646 




OC 




/8646 




89F31650 


0705 BCDA 




DC 




/BCDA 


/+ 


89F31660 


07D6 9E9A 




DC 




/9E9A 


TS 


89F31670 


0707 B6B2 




DC 




/B6B2 


VU 


89F31680 


07D8 9692 




DC 




/9692 


xw 


89F31690 


07D9 A2A6 




OC 




/A2A6 


ZY 


89F31700 


07DA 8006 




DC 




/8006 


,% 


89F31710 


07DB BEFE 




DC 




/BEFE 


( . 


89F31720 


07DC E282 




OC 




/E282 


1 


89F31730 


070D 7E84 




OC 




/7E84 


J- 


89F31740 


07DE 5E5A 




OC 




/5E5A 


LK 


89F31750 


07DF 7672 




DC 




/7672 


NM 


89F31760 


07E0 5652 




DC 




/5652 


PO 


89F31770 


07E1 6266 




DC 




/6266 


RO 


89F31780 


07E2 40C0 




DC 




/40C0 


$# 


89F31790 


07E3 42 D6 




DC 




/42D6 


.# 


89F31800 


07E4 F2D2 




DC 




/F2D2 


• 


89F31810 


07E5 3E44 




DC 




/3E44 


A& 


89F31820 


07E6 lElA 




OC 




/lElA 


CB 


89F31830 


07E7 3632 




DC 




/3632 


ED 


89F31840 


07E8 1612 




OC 




/1612 


GF 


89F31850 


07E9 2226 




DC 




/2226 


IH 


89F31860 


07EA 0021 




DC 




/0021 


. , LOZ 


89F31870 


07EB 02F6 


* 


DC 




/02F6 


C) 


89F31880 
» 89F31890 



«*«#«*«*#«»««#**«**«****«****««*#«******»»******»** 89F31900 

«**««**«**♦**«*##****«**«********«**«*«*******'!'**** 89F31910 

* * 89F31920 

* EXPLICIT RELOCATION ROUTINE * 89F31930 

# * 89F31940 
«#««««*#*«**«****«** s****************************** 89F31950 
» * 89F31960 

# THIS SUBROUTINE WILL RELOCATE THE CORE FUNCTION « 89F31970 



07EC 
07EC 
07ED 
07EE 
07EF 
07F0 
07F1 
07F2 
07F3 
07F4 
07F5 
07F6 
07F7 
07F7 
07F8 
07F9 
07FA 
07FC 



9024 

1000 

E823 

0023 
C301 
E022 
F020 
4818 
7002 
COID 
4006 

COIB 

aoiD 

DOOl 

4400 0000 

ooic 



07FD 0000 
07FE E816 
07FF DOOA 

0800 690D 

0801 6500 F012 

0803 C301 

0804 EOOF 

0805 E80F 

0806 DOOl 

0807 CDOO 0000 
0809 ODOO 0000 



* TEST TO THE HI 4K OF AN EXPLICITLY DEFINED BSM. * 

* * 

* CALL - * 

* 

* 
* 

* 
* 
* 



BSC L3 NAOIO-BASE 

THE ACCUMULATOR CONTAINS THE BSM NUMBER 
TO BE RELOCATED TO - 1 TO 8. 

XRl AND XR2 ARE NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 



89F31980 
89F31990 
89F32000 
89F32010 

89F32020 
89P32030 
89F32040 
89F32050 
89F32060 
89F32070 

* 89F32080 

* 89F32090 

* 89F32100 



«*******###**>?#«***«**»*************#***>!<***«****** 89F32110 

89F32120 
89F32130 
89F32140 
89F32150 
89F32160 
89F32170 
89F32180 
89F32190 
89F32200 
89F32210 
89F32220 
89F32230 
89F32240 
89F32250 
89F32260 
89F32270 
89F32280 
89F32290 
89F32300 

* 89F32310 

* 89F32320 

* 89F32330 

* 89F32340 



NAOIO EOU 

S 

SLA 

OR 

STO 

LD 

AND 

EOR 

SKP 

B 

LD 

BSI 

NA020 EOU 
LD 
A 
STO 

NA030 BSI 
DC 



* 

NAC02 

13 

NAC04 

NAC06 

ONE 

NAC08 

NAC06 

+- 

NA020 

NAC06 

NAIOO 

* 

NAC06 

NAC12 

NA030+1 

*-» 

AAIOO-BASE 



COMPUTE BSM TO MOVE TO 

MOVE TO HI HALF BYTE. 

ADO BIT 3. 

SAVE. 

GET BSM ADDRESS OF 

MODULE THAT PROGRAM IS IN. 

COMPARE TO ONE WANTED. 

SKIP NOT EQUAL. 

BRANCH IF PROGRAM IS HERE. 

LOAD BITS 0-3 OF ADDRESS. 

EXECUTE MOVE ROUTINE. 

GENERATE ENTRY ADDRESS. 



BRANCH TO RELOCATED RTN. 
RE-ENTER AT AAIOO. 

* 

* CORE RELOCATE ROUTINE 

* 



« THIS SUBROUTINE MOVES THE FUNCTION TEST TO THE 

* INDICATED 4K BLOCK. 
* 

* CALL - 

BSI L3 NAIOO-BASE 



«***««««««*#***#***«*************«***************** 89F32350 
if * 89F32360 

* 89F32370 

* 89F323aO 

* 89F32390 

* 89F32400 
» 89F32410 
« 89F32420 

* 89F32430 

* 89F32440 

* 89F32450 

* 89F32460 

* 89F32470 
« 89F32480 

* 89F32490 

* 89F32500 

* 89F3Z510 

* 89F32520 

#*****#«**#*#«»»«**««»*******»*#«*«**************** 89 F 32 530 

* 89F32540 
89F32550 
89F32560 
89F32570 
89F32580 
89F32590 
89F32600 
89F32610 
89F32620 
89F32630 
89F32640 
89F32650 



THE ACCUMULATOR CONTAINS BITS 0-3 OF THE 
«T0* ADDRESS. 

XRl IS SAVED AND RESTORED. 

XR2 IS NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 



NAIOO DC *-* 

OR NACIO GENERATE FULL ADDRESS. 

STO NA120+1 INITIALIZE STORE INSTR. 

STX 1 NA130+1 SAVE XRl. 

LDX LI NAC14 NUMBER OF WORDS TO MOVE. 

LD 3 ONE GET BASE AND DETERMINE 

AND NAC08 BASE ADDRESS FOR 

OR NACIO MOVE. 

STO NAllO+1 INITIALIZE STORE INSTR. 

NAllO LDO LI *-» RELOCATE CORE TEST 

NA120 STD LI *-* ROUTINE. 
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080B 7102 
080C 70FA 
080D 6500 0000 
080F 4F80 0798 



0817 0000 

0818 C301 

0819 EOFA 
081A F0F7 
081B 00F7 
081C 40E0 
0810 C0F5 
081E 4F80 07B2 



MOX 1 TWO INCREMENT INDEX REGISTER. 

B NAUO CONTINUE MOVE. 

NA130 LDX LI «-* RESTORE XRl. 

B 13 NAIOO-BASE RETURN. 

* * 

* * 

* CONSTANTS AND WORK AREAS * 

* * 

* * 

INCREMENT. 
BIT 3, AK. 
TEMPORARY STORAGE. 
MASK TO LEAVE HI 4 BITS. 
HI ADDRESS FOR MOVE. 
DISPLACEMENT FOR 
AA080-AA000 ENTRY ADDRESS OF AAIOO. 
WORD COUNT FOR MOVE RTN. 

« 

« # 

* OSCILLATE RELOCATION ROUTINE * 

* * 

* * 

* THIS SUBROUTINE RELOCATES THE CORE FUNCTION * 

* PROGRAM WITHIN A BSM. IF THE PROGRAM IS IN THE * 

* HI 4K, IT IS MOVED TO THE LOW 4K. IF IT IS IN * 

* THE LOW 4K, IT IS MOVED TO THE HI 4K. 
# 

* CALL - 

BSI L3 NBOIO-BASE 



0811 





0001 


NAC02 


DC 


1 


0812 





1000 


NAC04 


DC 


/1 000 


0813 




0001 


NAC06 


BSS 


1 


0814 





FOOD 


NAC08 


DC 


/FOOO 


0815 





OFFE 


NACIO 


DC 


/OFFE 


0816 





007A 


* 

NAC12 


DC 


A A 080- 


F012 







NAC14 

* 


ECU 


-4078 



XRl AND XR2 ARE NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 

UPON EXIT, THE ACCUMULATOR HAS BITS 0-3 OF 
THE NEW PROGRAM ADDRESS. 



* 
« 

* 

* 

* # 

* « 

NBOIO DC *-* ENTRY. 

LD 3 ONE CHANGE ADDRESS 

AND NAC08 BIT 3. 

EOR NAC04 FOR REGULAR BSM. 

STO NAC06 SAVE 

BSI NAIOO EXECUTE MOVE ROUTINE. 

LD NAC06 RETURN WITH BITS 0-3 OF 

B 13 NBOIO-BASE NEW ADDRESS IN ACC. 

******************************************** ;^ ****** 

* « 

* MOVE TO NEXT BSM RELOCATION ROUTINE * 

* * 
*************************************************** 

* * 

« 

» 
* 
* 

* 
* 



* THIS SUBROUTINE RELOCATES THE CORE FUNCTION 

* PROGRAM TO THE HIGH 4K OF THE NEXT BSM. 
* 

* CALL - 
* 

* BSI L3 NCOIO-BASE 



XRl AND XR2 ARE NOT USED. 



89F32660 
89F32670 
89F32680 
89F32690 
89F32700 
89F32710 
89F32720 
89F32730 
89F32740 
89F32750 
89F32760 
89F32770 
89F32780 
89F32790 
89F32800 
89F32810 
89F32820 
89F32830 
89F32840 
89F32850 
89F32860 
89F32870 

89F32880 
89F32890 
89F32900 
89F32910 
89F32920 
89F32930 
89F32940 
89F32950 
89F32960 
89F32970 
89F32980 
89F32990 
89F33000 
89F33010 
89F33020 
89F33030 
89F33040 
89F33050 
89F33060 
89F33070 
89F33080 
89F33090 
89F33100 
89F33110 
89F33120 
89F33130 
89F33140 
89F33150 
89F33160 
a9F33170 
89F33180 
89F33190 
89F33200 
89F33210 
89F33220 
89F33230 
89F33240 
89F33250 
89F33260 

89F33270 
89F33280 
89F33290 
89F33300 
89F33310 
89F33320 
89F33330 









* 




XR3 


IS 


THE PSI 


EUOO BASE REGISTER. 


« 


89F33340 








* 












* 


89F33350 








« 




UPON EXIT, THE ACCUMULATOR HAS BITS 0-3 OF 


* 


89F33360 








* 




THE 


NEW 


PROGRAM ADDRESS. 


# 


89F33370 








* 












* 


89F33380 








*******#*«*********; 


»*******«**#****************** 


*# 


89F33390 








* 












* 


89F33400 


0820 





0000 


NCOlO 


DC 




*_* 


ENTRY. 




89F33410 


0821 





C301 






LD 


3 


ONE 


GET BASE ADDRESS OF CFT. 




89F33420 


0822 





1800 






SRA 




13 


ADDRESS BITS 0-2 ONLY IN 




89F33430 


0823 





80ED 






A 




NAC02 


ACCUMULATOR. INCREMENT 




89F33440 


0824 





lOOD 






SLA 




13 


RESTORE TO 0-2. 




89F33450 


0825 





E8EC 






OR 




NAC04 


ADO BIT 3. 




89F33460 


0826 





DOEC 






STO 




NAC06 


SAVE 




89F33470 


0827 





40D5 






BSI 




NAIOO 


EXECUTE MOVE. 




89F33480 


0828 





COEA 






LD 




NAC06 


RETURN WITH BITS 0-4 OF 




89F33490 


0829 





4F80 07BB 






B 


13 


NCOIO- 


-BASE NEW ADDRESS IN ACC. 




89F33500 








********************************** ***********,^*^,^,;,,^ 


89F33510 








* 












# 


89F33520 








* 


MOVE ANYWHERE RELOCATION ROUTINE 


=> 


89F33530 








* 












* 


89F33540 








*****************************************, sjsj^jj^^^^^ 


89F33550 








* 












* 


89F33560 








» 


THIS SUBROUTINE RELOCATES THE CORE FUNCTION 


* 


89F33570 








* 


PROGRAM 


DEPENDING 


ON SEVERAL FACTORS. IF THE 


« 


89F33580 








* 


PROGRAM 


IS 


IN THE 


HI 4K OF A BSM, IT WILL BE 


* 


89F33590 








* 


RELOCATED TO THE LOW 4K. IF IT IS ALREADY IN 


* 


89F33600 








* 


THE 


LOW 


4K, 


IT WILL BE RELOCATED TO ANOTHER BSM 


.* 


89F33610 








* 












* 


89F33620 








* 


CALL - 








« 


89F33630 








* 












* 


89F33640 








* 




BSI 


L3 


NOOIO- 


-BASE 


« 


89F33650 








* 












* 


89F33660 








« 




XRl 


AND 


XR2 ARE NOT USED. 


* 


89F33670 








* 












* 


89F33680 








* 




XR3 


IS 


THE PSEUDO BASE REGISTER. 


* 


89F33690 








« 












* 


89F33700 








* 




UPON 


1 EXIT THE 


ACCUMULATOR HAS BITS 0-3 OF 


* 


89F33710 








« 




THE 


NEW 


PROGRAM ADDRESS. 


* 


89F33720 








* 












* 


89F33730 








************************ *********************,^*^^^,j 


89F33740 








* 












* 


89F33750 


082B 





0000 


NDOIO 


DC 




*-* 


ENTRY. 




89F33760 


082C 





C301 






LD 


3 


ONE 


IS PROGRAM IN HIGH 4K . 




89F33770 


082D 





1003 






SLA 




THREE 


TEST BIT 3. 




89F33780 


082E 





4810 






SKP 




- 


SKIP IF IN HIGH 4K. 




89F33790 


082F 





7003 






B 




ND020 


BRANCH TO RELOCATE. 




89F33800 


0830 





40E6 






BSI 




N8010 


OSCILLATE. 




89F33810 


0831 







N0015 


EQU 




« 






89F33820 


0831 





4F80 07C6 






B 


13 


NDOIO- 


■BASE RETURN. 




89F33H30 


08 33 







ND020 


EOU 




« 


MUST MOVE TO ANOTHER BSM. 




89F33840 


0833 





C301 






LD 


3 


ONE 


TEST IF IN LAST BSM. 




89F33850 


0834 





180D 






SRA 




13 


DETERMINE RESIDENT BSM. 




89F33860 


0835 





80DB 






A 




NAC02 


INCREMENT. 




89F33870 


08 36 





9700 FFF5 






S 


L3 


AAC04- 


BASE COMPARE TO HIGHEST BSM. 




89F33880 


0838 





4810 






SKP 




- 


SKIP IF NOT IN LAST BSM. 




89F33890 


0839 





7002 






B 




N0030 


BRANCH, MOVE TO FIRST BSf- 


t. 


89F33900 


083A 





40fc5 






BSI 




NCOlO 


MOVE TO NEXT BSM. 




89F33910 


083B 





70F5 






B 




N0015 


RETURN. 




89F33920 


083C 







ND030 


EOU 




« 






89F33930 


08 3C 





CODS 






LD 




NAC04 


LOAD BASE ADDRESS FOR 8K. 




89F33940 


083D 


0. 


D005 






STO 




NAC06 


SAVE. 




89F33950 


083E 





40Be 






BSI 




NAIOO 


EXECUTE MOVE ROUTINE. 




89F33960 


083F 





C0D3 






LD 




NAC06 


RETURN WITH BITS 0-4 OF 




89F33970 


0840 





70F0 






B 




N0015 


NEW ADDRESS IN ACC. 




89F33980 








************************************************** 


« 


89F33990 








* 












« 


89F34000 








« 


THIS SUBROUTINE DETERMINES WHERE TO RELOCATE 


* 


89F34010 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM R3R THE 1800 SYSTEM 



EXTENDED CORE FUNCTION TEST 



0841 





0000 


0842 





1082 


084 3 





4804 


0844 





7005 


084$ 





1801 


0846 





4804 


0847 





700B 



0848 4007 

0849 7001 



084 A 
084A 40CC 
084B 
084B 801E 
084C D004 
084D C780 07DC 
084F D002 
0850 4400 0000 
0852 0000 



0853 







0853 





COED 


0854 





8016 


0855 





OOEB 


0856 







0856 





40D4 


0857 





70F3 


0858 





0000 


0859 





COFE 


085A 





D0E6 


085B 





70EE 


085C 





0000 


085D 





COFE 


085E 





D0E2 


085F 





70F6 



THE CORE FUNCTION TEST. 



CALL - 

BSI 
DC 

DC 



L3 NEOIO-BASE 

XXXXX-BASE OSCILLATE RE-ENTRY 

ADDRESS PARAMETER. 
XXXXX-BASE TEST COMPLETE RE-ENTRY 

ADDRESS PARAMETER. 



XRl AND XR2 ARE NOT USED. 

XR3 IS THE PSEUOO BASE REGISTER. 



4/9/69 



* 



NEOIO DC *-* 
SLT TWO 
SKP E 
B NE020 
SRA ONE 
SKP E 
B NEIOO 

* 

* FULLf NORMAL TEST. 

* MOVE CORE TEST TO NEXT 



NE020 



NE030 



BSI 
B 
* 

* OSCILLATE 
* 

EQU 

BSI 

ECU 

A 

STO 

LO 

STO 

NE040 BSI 

NE050 DC 

* 

* PATTERN 

NEIOO 



NCOlO 
NE030 

INTERFACE. 



* 

NBOIO 

* 

NEC02 

NE 040+1 

NEOIO-BASE 

NE050 

*-* 

*-« 



ENTRY. 

RESTORE HIGH/LOW FLAGS. 

SKIP IF IN LOW HALF OF BSM 

OSCILLATE IF IN HIGH HALF. 

TEST IF IN LAST BSM TOO. 

SKIP IF NOT LAST. 

BRANCH LOW, LAST. 



BSM. 

MOVE TO NEXT BSM. 

GO TO RE-ENTER ROUTINE. 



13 



NEllO 



EOU 

LD 

A 

STO 

EQU 

BSI 

B 



TEST COMPLETE. 

NEOIO 
NEC04 
NEOIO 

NDOIO 
NE030 



OSCILLATE. 

COMPUTE RE-ENTRY ADDRESS 
AND PUT IN BRANCH OPERAND. 

GET RE-ENTRY ADDRESS AND 
STORE IN CALL. 
BRANCH TO RE-ENTRY ADDRESS 



GET SECOND PARAMETER AS 
RETURN ADDRESS. 



MOVE TO LOWEST BSM. 
BRANCH TO RE-ENTER. 



* OSCILLATE ONLY 
* 
NE200 DC 

LD 
STO 
B 
* 

* LOOP ON PATTERN TEST ENTRY. 
* 

NE300 DC 

LD 

STO 

B 
* 



*-* 
NE200 
NEOIO 
NE020 



*-* 
NE300 
NEOIO 
NEllO 



MAKE IT APPEAR AS NORMAL 

ENTRY. 

OSCILLATE. 



HAKE IT APPEAR AS NORMAL 

ENTRY. 

MOVE ANYWHERE. 
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89F34020 

89F34030 

89F34040 

89F34050 

89F34060 

89F34070 

89F34080 

89F34090 

89F34100 

89F34110 

89F34120 

89F34130 

89F34140 

89F34150 

89F34160 

89F34170 

89F34180 

89F34190 

89F34200 

89F34210 

89F34220 

89F342 30 

89F34240 

89F34250 

89F34260 

89F34270 

89F34280 

89F34290 

89F34300 

89F34310 

89F34320 

89F34330 

89F34340 

89F34350 

89F34360 

89F34370 

89F34380 

89F34390 

89F34400 

89F34410 

89F34420 

89F34430 

89F34440 

89F34450 

89F34460 

89F34470 

89F34480 

89F34490 

89F34500 

89F34510 

89F34520 

89F34530 

89F34 540 

89F34550 

89F34560 

89F34570 

89F34580 

89F34590 

89F34600 

89F34610 

89F34620 

89F34630 

89F34640 

89F34650 

89F34660 

89F34670 

89F34680 

89F34690 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



EXTENDED CORE FUNCTION TEST 



0860 





0000 


0861 





COFE 


0862 





OODE 


086 3 





1082 


0864 





4804 


0865 





70E4 


0866 





CODA 


0867 





8003 


0868 





D0D8 


0869 





70E0 



086A 007A 
086B 0001 



086C 





0000 


086D 





0B20 


086E 





1807 


086F 





4804 


0870 





7003 


0871 





C301 


0872 





180D 


0873 





7002 


0874 







0874 





C3F9 


0875 





9052 


0876 







0876 





A052 


0877 





18D0 


0878 





8051 


0879 





8301 


0B7A 





D050 



* EXPLICIT BSM TEST ENTRY. 



NE400 DC 
LD 
STO 
SLT 
SKP 
B 

LO 
A 

STO 
B 



*-* 

NE400 

NEOIO 

TWO 

E 

NE020 

NEOIO 

NEC04 

NEOIO 

NE020 



MAKE IT APPEAR AS 

NORMAL ENTRY. 

RESTORE HIGH/ LOW FLAGS. 

SKIP IF IN LOW HALF. 

OSCILLATE. 

GET SECOND PARAMETER 

AS RETURN ADDRESS. 



OSCILLATE. 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
NEC02 DC AA080-AAOOO ENTRY ADDRESS OF AA080. 
NEC04 DC 1 ONE. INCREMENT. 

* * 

« * 

* BIT FAILURE TALLEY SUBROUTINE * 



* CALL 

* 

* 
* 

* 
* 
* 



BSI L3 POOIO-BASE 

THE KNOWN TEST PATTERN IS AT SUC88 IN THE 
LINE BUFFER. THE FAILURE PATTERN IS IN 
SUC90 IN THE LINE BUFFER. 

XRl IS SAVED AND RESTORED. 

XR2 IS SAVED AND RESTORED. 

XR3 IS THE PSEUOO BASE REGISTER. 

3/11/69 



* * 
PQOIO DC *-* ENTRY. 

* DETERMINE BASE ADDRESS OF TABLE TO UPDATE. 

XIO 3 AAC50-BASE CK FOR EXTERNAL BSM. 

SRA SEVEN 

SKP E SKIP IF INTERNAL. 

B P0020 BRANCH IF EXTERNAL. 

LO 3 ONE 

SRA 13 

B PQ030 

PQ020 EQU * 

LO 3 AACIO-BASE USE EXTERNAL BSM ID. 

S P0C02 

PQ030 EOU * 

M P0C04 COMPUTE ADDRESS OF FIRST 

RTE 16 WORD OF STORAGE TABLE 

A PQC06 AND SAVE AS INDIRECT 

A 3 ONE ADDRESS. 

STO P0C08 
* 

* INDIRECT ADDRESS IS POINTING. TO DROP BIT 0. 
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89F34700 

89F34710 

89F34720 

89F34730 

89F34740 

89F34750 

89F34760 

89F34770 

89F34780 

89F34790 

89F34800 

89F34810 

89F34820 

89F34830 

89F34840 

89F34850 

89F34860 

89F34870 

89F34880 

89F34890 

B9F34900 

89F34910 

89F34920 

89F34930 

89F34940 

89F34950 

89F34960 

89F34970 

89F34980 

B9F34990 

89F35000 

89F35010 

89F35020 

89F35030 

89F35040 

89F35050 

89F35060 

89F35070 

89F35080 

89F35090 

89F35100 

89F35110 

89F35120 

89F35130 

89F35140 

89F35150 

89F35160 

89F35170 

89F35180 

89F35190 

89F35200 

89F35210 

89F35220 

89F35230 

89F35240 

89F35250 

89F35260 

89F36270 

89F35280 

89F35290 

89F35300 

89F35310 

89F35320 

89F36330 

89F35340 

89F35350 

89F35360 

89F35370 
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* 








89F35380 


087B C050 




LO 


PQCIO 


COMPUTE ABSOLUTE ADDRESS 


89F35390 


087C 8301 




A 


3 ONE 


OF TEST PATTERN AND 


89F35400 


0870 DOlO 




STO 


P0070+1 


INITIALIZE OPERAND. 


89F35410 


087E C04E 




LD 


P0C12 


COMPUTE ABSOLUTE ADDRESS 


89F35420 


087F 8301 




A 


3 ONE 


OF FAILURE PATTERN AND 


89F35430 


0880 0008 




STO 


PQ060+1 


INITIALIZE OPERAND. 


89F35440 


0881 693B 




STX 


1 P0120+1 


SAVE XRl. 


89F35450 


0882 6A3C 




STX 


2 PQ130+1 


SAVE XR2. 


89F35460 


0883 61F5 




LDX 


1 -11 


USE XRl AS A COUNTER. 


89F35470 


0884 6288 




LDX 


2 -120 


XR2 POINTS TO LEFT BYTE. 


89F35480 


0885 2000 




LOS 





SET OVERFLOW STATUS OFF. 


89F35490 


0886 


PQ050 EOU 


« 




89F35500 


0886 C049 




LD 


PQC18 


INITIALIZE 


89F35510 


0887 D047 




STO 


P0C16 


COUNTER. 


89F35520 


088« C500 0000 


PQ06C 


1 LO 


LI *-* 


LOAD BIT EQUIVALENT 


89F35530 


088A lAOO 




SRA 


2 ZERO 


OF FAILURE PATTERN. 


89F35540 


088B E045 




AND 


PQC20 


MASK POSSIBLE LEFT BYTE. 


89F35550 


088C 0045 




STO 


PQC22 


SAVE. 


89F35560 


088D C500 0000 


POO70 


1 LD 


LI *-* 


LOAD BIT EQUIVALENT 


89F35570 


088F lAOO 




SRA 


2 ZERO 


OF TEST PATTERN. 


89F35580 


0890 E040 




AND 


PQC20 


MASK POSSIBLE LEFT BYTE. 


89F35590 


0891 9040 




S 


P0C22 


COMPARE. 


89F35600 


0892 4818 




SKP 


+- 


SKIP IF PICK OR DROP. 


89F35610 


0893 7017 




B 


P0090 


BRANCH NO PROBLEM. 


89F35620 


0894 4808 




SKP 


+ 


SKIP IF PICK. 


89F35630 


0895 700E 




B 


P0080 


BRANCH DROP. 


89F35640 


0896 C034 




LD 


P0C08 


INCREMENT INDIRECT ADDRESS 


; 89F35650 


0897 8030 




A 


P0C02 


TO PICK STORAGE. 


89F35660 


0898 0032 




STO 


P0C08 




89F35670 


0899 C780 0866 




LD 


13 PQC08-BASE 


INCREMENT PICK COUNTER. 


89F35680 


089B 802C 




A 


P0C02 




89F35690 


089C 4801 




SKP 





SKIP NO OVERFLOW. 


89F35700 


0890 7024 




B 


PQ140 


BRANCH ON OVERFLOW. 


89F35710 


089E 0780 0866 




STO 


13 PQC08-BASE 


UPDATE COUNTER. 


89F35720 


08A0 C02A 




LO 


PQC08 


INCREMENT INDIRECT 


89F35730 


08A1 8026 




A 


PQC02 


ADDRESS TO NEXT ENTRY. 


89F35740 


08A2 0028 




STO 


P0C08 




89F35750 


08A3 700A 




B 


POIOO 


BRANCH TO CONTINUE. 


89F35760 


08A4 


PQ080 


EOU 


* 


DROP. 


89F35770 


08A4 C780 0866 




LD 


13 P0C08-BASE 


INCREMENT DROP COUNTER. 


89F36780 


08A6 8021 




A 


P0C02 




89F35790 


08A7 4801 




SKP 


O 


SKIP NO OVERFLOW. 


89F35800 


08A8 7019 




B 


PQ140 


BRANCH ON OVERFLOW. 


89F35810 


08A9 D780 0866 




STO 


13 PQC08-BASE 


UPDATE COUNTER. 


89F35820 


OSAB 


PQ090 


EQU 


* 




89F35830 


08AB COIF 




LD 


PQC08 


INCREMENT INDIRECT ADDRESS 


89F35840 


Q8AC 8021 




A 


PQC14 


BY TWO. 


89F35850 


08AD DO ID 


« 


STO 


PQC08 




89F35860 
89F35870 




* DONE UPDATING AN ENTRY. 


» 


89F35880 




* 








89F35890 


08AE 
08AE C020 


PQIOO 


EOU 
LD 


* 
P0C16 


DECREMENT LOOP COUNTER. 


89F35900 
89F35910 


08AF 9018 




S 


P0CO2 




89F35920 


0860 4808 




SKP 


+ 


SKIP NOT ZERO TO CONTINUE. 


89F35930 


08B1 7008 




B 


PQllO 


BRANCH IF ZERO. 


89F35940 


08B2 OOIC 




STO 


P0C16 


UPDATE COUNTER. 


89F35950 


08B3 7200 




MDX 


2 ZERO 


IF RIGHT BYTE SKIP. 


89F35960 


08B4 7278 




MDX 


2 120 


HAKE RIGHT BYTE AND SKIP. 


89F35970, 


08B5 7288 




MDX 


2 -120 


MAKE LEFT BYTE AND SKIP. 


89F35980 


08B6 7001 




MDX 


*+l 


SKIP. 


89F35990 


08B7 7101 




MDX 


1 ONE 


UPDATE WORD POINTER. 


89F36000 


08B8 70CF 




B 


PQ060 


LOOP. 


89F36010 


08B9 7002 


* 


B 


PQ120 


BRANCH OUT WHEN DONE. 


89F36020 
89F360 30 




* LOOP COUNTER ZERO. 




89F36040 




« 








89 F 3 60 50 



08 BA 
08BA 7101 
08 BB 70CA 



OSBC 
08BE 
08C0 
08C2 
08C2 
08C3 
08C4 
08C6 



6500 0000 
6600 0000 
4F80 0807 

COFC 
0001 

6600 0000 
4F00 0426 



08C8 0001 
08C9 0024 

08CA OCED 
08CB 0001 

08CC OBDA 



08C0 
08CE 
08CF 
0800 
08D1 
08D2 



0BE6 
0002 
0001 
0004 
OOFF 
0001 



08D3 





0000 


08D4 





693F 


0805 





0B2D 


08D6 





1807 


08D7 





4804 


08D8 





7003 


08D9 





C301 


08DA 





180D 


080B 





7002 


08DC 








POllO EOU * 

MDX 1 ONE 

B P0050 

* 

* SUBROUTINE DONE. 



DECREMENT WORD POINTER. 
BRANCH NOT DONE. 



* CONSTANTS AND WORK AREAS 



PQ120 LDX LI *-* RESTORE XRl. 

PQ130 LDX L2 *-« RESTORE XR2. 

B 13 POOIO-BASE RETURN. 
P0140 EQU • 

LO P0130+1 RESTORE XR2. 
STO P0150+1 

P0150 LDX L2 *-* 

B L3 HZ500-BASE OVERFLOW EXIT. 

* * 

* * 

1 ONE. 

36 NO. WORDS IN EACH TABLE. 

RELATIVE BASE ADDRESS OF 
PXK20-BASE BIT FAIL. STORAGE TABLF. 

1 INDIRECT ADDRESS. 
RELATIVE BASE ADDRESS OF 

SUC88+11-BASE TEST PATTERN. 

RELATIVE BASE ADDRESS OF 
SUC90+11-BASE FAILURE PATTERN. 

2 TWO. 

1 COUNTER. 

4 FOUR. 

/OOFF MASK TO LEAVE RIGHT BYTE. 

1 STORAGE AREA. 



PQC02 DC 

PQC04 DC 

* 

P0C06 DC 

PQC08 BSS 

PQCIO DC 

PQC12 DC 

PQC14 DC 

P0C16 BSS 

PQC18 DC 

PQC20 DC 

PQC22 BSS 

* * 

* « 

« FAILURES BY ADDRESS LINE TALLEY SUBROUTINE * 

* * 

* * 

* THIS SUBROUTINE TALLEYS THE FAILURES BY ADDRESS * 

* LINE, TOTALS ARE KEPT IN MATRIX PXK30. IT ALSO* 

* TALLEYS FAILURES BY SENSE/INHIBIT BLOCK IN * 

* MATRIX PXK40. 
« 

* CALL - 

* BSI L3 PROIO-BASE 
* 

* XRl CONTAINS THE FAILURE ADDRESS 

* 

XR2 IS NOT USED. 



XR3 IS THE PSEUOO BASE REGISTER. 



* 
* 
* 

* 

PROIO DC *-* ENTRY. 

STX 1 PR040+1 SAVE XRl AND ADDRESS. 

XIO 3 AAC50-BASE CK FOR EXTERNAL BSM. 

SRA SEVEN 

SKP E SKIP IF INTERNAL TEST. 

B PR014 BRANCH EXTERNAL. 

LO 3 ONE LOAD INTERNAL ID. 

SRA 13 

B PR016 

PRO 14 EOU « 



89F36060 
89F36070 
89F36080 
89F36090 
89F3610O 
89F36110 
89F36120 
89F36130 
89F36140 
89F36150 
89F36160 
89F36170 
89F36180 
89F36190 
89F36200 
89F36210 
89F36220 
89F36230 
89F36240 
89F36250 
89F36260 
89F36270 
89F36280 
89F36290 
89F36300 
89F36310 
89F36320 
89F36330 
89F36340 
89F36350 
89F36360 
89F36370 
89F36380 
89F36390 

89F36400 

89F36410 

89F36420 

89F36430 

89F36440 

89F36450 

89F36460 

89F36470 

89F364 80 

89F36490 

89F36500 

89F36510 

89F36520 

89F36530 

89F36540 

89F36550 

89F36560 

89F36570 

89F36580 

89F36590 

89F36600 

89F36610 

89F36620 

89F36630 

89F36640 

89F36650 

89F36660 

89F36670 

89F36680 

89F36690 

89F36700 

89F3fc710 

89F36720 

89F36730 



DATE 
EC NO, 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
27 



DATE 
EC NO, 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
27A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



EXTENDED CORE FUNCTION TEST 



08DC 
08DD 
08DE 
08DE 
080F 
08E0 
08E1 
08E2 
0BE3 
08E4 
08E5 
08E6 
08E7 
08E8 
08E& 
08E9 
08EA 
08EB 
08EC 

08EE 
08EF 
08F0 
08F1 
08F3 
08F^ 
08F5 
08F6 
08F7 

08F8 
08F9 
08FA 
08FB 
08FC 
08FE 
08FF 
0900 
0901 



C3F9 
9040 



PR016 



D045 
A03F 
1800 
803E 
8301 
D039 
2000 
6103 
C02D 
1880 



1810 

1083 

8032 

0035 

C780 088C 

802F 

4801 

702A 

D780 08BC 





























C029 

802D 

D027 

71FF 

70F0 

1810 

1084 

8022 

0025 

C780 08BC 
801F 
4801 
701A 
0780 08BC 



PR020 



LD 

S 

EOU 

STO 

M 

RTE 

A 

A 

STO 

LOS 

LDX 

LD 

SRT 

EQU 

SRA 

SLT 

A 

STO 

LO 

A 

SKP 

B 

STO 

LD 

A 

STO 

MDX 

B 

SRA 

SLT 

A 

STO 

LD 

A 

SKP 

B 

STO 



13 



13 



13 



13 



AACIO-BASE 
PRC06 

PRC18 

PRC08 

16 

PRCIO 

ONE 

PRC04 



THREE 

PR040+1 

13 

# 

16 

THREE 

PRC04 

PRC12 

PRC12-BASE 

PRC06 



PR060 

PRC12-BASE 

PRC04 

PRC14 

PRC04 

-1 

PR020 

16 

FOUR 

PRC04 

PRC12 

PRC12-BASE 

PRC06 



PR060 

PRC12-BASE 



USE EXTERNAL BSM ID. 



SAVE FOR S/I UPDATE. 
LINE FAILURE STORAGE 
TABLE AND SAVE AS 
BASIC INDIRECT ADDRESS. 



RESET OVERFLOW STATUS. 
USE XRl AS A COUNTER. 
LOAD ADDRESS PATTERN AND 
PUT BITS 3-15 IN Q. 

CLEAR ACC. FOR ADOR. GEN. 
COMPUTE ADDRESS AND 
STORE IN INDIRECT 
ADDRESS PRC12. 

INCREMENT HI X, LO X AND 
HI Y STORAGE. 
SKIP NO OVERFLOW. 
BRANCH IF COUNTER FULL. 

UPDATE BASE 
INDIRECT 
ADDRESS. 

DECREMENT COUNTER. 
LOOP. 



SKIP NO OVERFLOW. 
BRANCH IF COUNTER FULL, 



0903 

0904 

0905 

0906 

0907 

0908 

0909 

090A 

090B 

090C 

090C 

090E 

090F 

0910 

0911 

0913 

0915 

0917 

0917 

0918 

0919 

091A 

091B 

091B 



C020 
1001 
801D 
8301 
U015 
COOB 
180C 
4804 
700B 

C780 08B8 
800F 
4801 
700A 

D780 08B8 
6500 0000 
4F80 086E 



C005 
8005 

0003 

70F1 







4F00 0426 



« UPDATE SENSE/INHIBIT FAILURE STORAGE 
# 

PRC18 

ONE 

PRC16 
3 ONE 

PRC04 

PR040+1 

12 

E 

PR050 

* 
13 PRC04-BASE 

PRC06 



PR060 

PRC04-BASE 

*-* 

PROIO-BASE 

* 

PRC04 
PRC06 
PRC04 
PR030 

L3 HZ500-8ASE 



PR030 



PR040 
PR050 



PR060 



LO 

SLA 

A 

A 

STO 

LD 

SRA 

SKP 

B 

EOU 

LD 

A 

SKP 

B 

STO 

LDX 

B 

EOU 

LD 

A 

STO 

B 

EOU 

B 



13 

LI 
13 



LOAD STORAGE AREA ID. 
FAILURE STORAGE FOR THIS 
PATTERN TEST. 



TEST FAILURE ADDRESS FOR 
HI OR LO 4K. 
SKIP IF LOW 4K. 
BRANCH IF HIGH 4K. 

INCREMENT ENTRY 
IN TABLE. 
SKIP NO OVERFLOW. 
BRANCH IF COUNTER FULL. 

RESTORE XRl 
AND RETURN. 



INCREMENT 
ADDRESS. 



INDIRECT 



BRANCH TO CONTINUE UPDAT 
BRANCH TO OVERFLOW SUBR 



* 

* CONSTANTS AND WORK AREAS 

« 



PART NO. 2279488 
PAGE 28 



89F36740 
89F36750 
89F36760 
89F36770 
89F36780 
89F36790 
89F36800 
89F36810 
89F36820 
89F36830 
89F36840 
89F36850 
89F36860 
89F36870 
89F36880 
89F36890 
89F36900 
89F36910 
89F36920 
89F36930 
89F36940 
89F36950 
89F36960 
89F36970 
89F36980 
89F36990 
89F37000 
89F37010 
89F37020 
89F37030 
89F37040 
89F37050 
89F37060 
89F37070 
89F37080 
89F37090 
89F37100 
89F37110 
89F37120 
89F37130 
89F37140 
89F37150 
89F37160 
89F37170 
89F37180 
89F37190 
89F37200 
89F37210 
89F37220 
89F372 30 
89F37240 
89F37250 
89F37260 
89F37270 
89F37280 
89F37290 
89F37300 
89F37310 
89F37320 
89F37330 
89F37340 
E. 89F37350 
89F37360 
. 89F37370 
** 89F37380 

* 89F37390 

* 89F37400 

* 89F37410 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 
PAGE 



2279488 
28A 



EXTENDED CORE FUNCTION TEST 



**********#****««******=»*#**«**=»******************* 89 F3 7420 



091D 




0001 


PRC04 


BSS 


1 


WORK AREA. 


89F37440 


091E 





0001 


PRC06 


DC 


1 


ONE. 


89F37450 


091F 





0028 


PRC08 

* 


DC 


40 


FORTY. 

RELATIVE ADDRESS OF 


89F37460 
89F37470 


0920 





OEOD 


PRCIO 


DC 


PXK30-BASE 


STORAGE TABLE. 


89F374R0 


0921 




0001 


PRC12 


BSS 


1 


INDIRECT ADDRESS. 


89F37490 


0922 





0008 


PRC14 

* 


DC 


8 


EIGHT 

RELATIVE ADDRESS OF 


89F37500 
89F37510 


0923 





0F4D 


PRC16 


DC 


PXK40-BASE 


STORAGE TABLE PXK40. 


89F37520 


0924 




0001 


PRC18 

* 


BSS 


1 


TEMPORARY STORAGE. 


89F37530 
« 89F37540 



0925 


0000 


0926 


DOFO 


0927 


2000 


0928 


0B20 


0929 


1807 


092A 


4804 


092B 


7003 


092C 


C301 


092D 


180D 


092E 


7002 


092F 




092F 


C3F9 


0930 


90ED 


0931 




0931 


A020 


0932 


18 00 


0933 


80F0 


0934 


8301 


0935 


D002 


0936 


D006 


0937 


C600 0000 


0939 


80E4 


09 3A 


4801 


093B 


700C 


093C 


0600 0000 


093E 


C0E5 


093F 


FOIF 


0940 


4820 


0941 


7004 


0942 


0B2D 



*###♦«******#«##**********««***«****«************** 89F37550 
*»«***«*****«*#**##«*****************««************ 89F3 7560 
« « 89F37570 

* LOOP AND TEST FAILURE COUNTER UPDATE SUBROUTINE « 89F37580 

* # 89F37590 
***#**«***##«*«#«*****«**«««*«**«**#*************** 8 9 F3 7600 

* 89F37610 
THIS SUBROUTINE TALLEYS LOOPS OF A ROUTINE OR « 
FAILURES BY ROUTINE. * 



CALL - 

BSI L3 PSOIO-BASE 

THE ACCUMULATOR CONTAINS THE RELATIVE BASE 
ADDRESS OF THE AREA TO UPDATE. 



« 89F37620 

* 89F37630 

* 89F37640 

* 89F37650 
« 89F37660 
« 89F37670 

* 89F37680 
*»'89F37690 

* 89F37700 

* 89F37710 

* 89F37720 

* 89F37730 

* 89F37740 

* 89F37750 
« 89F37760 

* 89F37770 
##*«**#«**»***##*******#****«**********«*********** 8 9 F3 77 80 

* 89F37790 
ENTRY. 89F37800 
SAVE TABLE BASE ADDRESS. 
RESET OVERFLOW STATUS. 

CK FOR EXTERNAL TEST 



XRl 



XR2 



XR3 



IS NOT USED. 

CONTAINS THE TEST PATTERN NUMBER. 

IS THE PSEUDO BASE REGISTER. 



* 
PSOIO 



PS014 



PS016 



PS020 



PS030 



DC 

STO 

LDS 

XIO 

SRA 

SKP 

B 

LD 

SRA 

B 

EQU 

LD 

S 

EQU 

M 

RTE 

A 

A 

STO 

STO 

LD 

A 

SKP 

B 

STO 

LD 

EOR 

SKP 

B 

XIO 



L2 



L2 



*-« 

PRC18 



AAC50-BASE 

SEVEN 

E 

PS014 

ONE 

13 

PS016 

« 

AACIO-BASE 
PRC06 

* 

PSC06 

16 

PRC18 

ONE 

PS020+1 

PS030+1 

*-# 

PRC06 



PS050 

*-♦ 

PRC18 

PSC14 

Z 

PS040 

AAC50-BASE 



SKIP IF OFF. 
BRANCH IF ON. 
TALLEY FOR THIS BSM. 

BRANCH TO CONTINUE. 

TALLEY FOR EXTERNAL 
BSM. 

COMPUTE ABSOLUTE BASE 
ADDRESS OF TABLE TO 
UPDATE. 

STORE IN INSTRUCTION 

OPERANDS. 

INCREMENT TABLE 

ENTRY. 

SKIP NO OVERFLOW. 

BRANCH IF COUNTER FULL. 

IF THIS IS A LOOP 
COUNTER UPDATE, CHECK 
FOR PASS COMPLETE 
MESSAGE. 
SEND PASS COMPLETE 



89F37810 
89F37820 
89F37830 
89F37840 
89F37850 
89F37H60 
89F37870 
89F37880 
89F37890 
89F37900 

89F37910 
89F37920 
89F37930 
89F37940 
89F37950 
89F37960 
89F37970 
89F37980 
89F37990 
89F38000 
89F38010 
89F38020 
89F38030 
89F38040 
89F38050 
89F38060 
89F38070 
89F38080 
89F38090 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
28 



DATE 
EC Nt 



14N0V69 
431319 
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431319A 
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431321 
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089F-1 
28A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
EXTENDED CORE FUNCTION TEST 



094 3 
0944 
0945 
0946 

0946 
0948 
0948 
094A 
094A 
094B 
094C 
094D 
094E 
0950 
0951 



1805 
4804 
7004 


4F80 08C0 



4F00 0426 



6A0A 

C009 

E806 

0007 

4700 06DA 

08EF 

70F4 



0952 





0003 


0953 





OAOO 


0954 





OOOA 


0955 





0000 


0956 





0A08 


0957 





0000 


095 8 





2731 


0959 





1212 


095A 





0033 


095B 





2624 


095C 





2723 


0950 





3513 


095E 





3500 


095F 





OF75 



SRA 
SKP 
B 
PS040 EOU 

B 
PS050 EQU 

B 
PS060 EOU 
STX 
LO 
OR 
STO 



FIVE MESSAGE IF LOOP ON 

E ROUTINE SWITCH IS 

PS060 ON. 

13 PSOIO-BASE RETURN. 



L3 HZ500-BASE BRANCH TO OVERFLOW SUBR. 
* 

2 PSC12 PUT ROUTINE ID. IN 

PSC12 PASS COMPLETE 

PSC08 MESSAGE. 
PSC12 
BSI L3 MAOIO-BASE WRITE PASS COMPLETE 

DC PSCIO-BASE MESSAGE. 

B PS040 EXIT. 

* # 

* * 
« CONSTANTS AND WORK AREAS * 

* * 

St * SK si: S|l si! sic » « * # si! sit i> S|< si! Sji Si= * 3i< * sit Sll S|e si. SJC si! Sj! si! sit Sl< * si! si! Sll si! si. ;(! H! si. sic SJC S> « « * * SKSX sit si! 

* si, 

* THE FOLLOWING CONSTANT REFLECTS THE NUMBER OF 

* WORDS IN EACH TABLE OF PXK50 AND PXK60 AND WILL 

* HAVE TO BE CHANGED IF THE SIZE OF THE TABLES ARE 

* CHANGED. 



PSC06 DC 

PSC08 DC 

PSCIO DC 

PSC12 DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

PSC14 DC 



3 NO. WORDS IN EACH TABLE. 

/OAOO MASK FOR ERROR MESSAGE. 

10 WORD COUNT. 

/OOOO OX 

/0A08 08 

/OOOO 

/2731 PA 

/1212 SS 

/0033 C 

/2624 OM 

/2723 PL 

/3513 ET 

/3500 E 

PXK60-BASE LOOP COUNTER. 



0960 OOOO 

0961 C700 OCEA 
0963 1003 



sicsl!S|!Stsl<SiCSits!t**!lt5!>s!!Sf:si!Sj!*s!!«5JC3itSlC5it5il*SJ!#**SiSSltsilS!t3l<!i!*s!t:(!3i:Si<sit#Sl<<!SlSSl!SitS{!5i!*Si! 

***«*************s|<sK«s!c!l!sli**iC!!!sJc*«*'!!>l!*«*siisKs!t*si<sCsitsitslt*slt#siisiisi! 

* sH 

* CLEAR SUMMARY STORAGE « 

* sjt 

sS;sltSi!Si,#3!tSitS|!Slt5i.siCSi!*S|t*slC*!t!S;!#si:Si!!!c*!|!SltsitS|tSlt<!Si!SlCsi!Si!S>sit!(!S!!si!Si!*sl!Sil#sl!S!t««s!!Sit# 

* # 

* THIS SUBROUTINE CLEARS THE SUMMARY STORAGE AREA * 

* AT THE END OF THE PROGRAM. « 

* * 

* CALL - * 

* . * 

* BSI L3 PTOIO-BASE * 

* « 

* XRl IS NOT USED. * 

* * 

* XR2 SHOULD BE UNSPECIFIED. * 

* * 

* XR3 IS THE PSEUDO BASE REGISTER. * 

* S! 
=!!>lt«s!<*S|!)i!.l!**#*Sl!S>****«si,sit*sl!*#SlC*slt;|tSit«si!Sitll<«Si!«Sils!,S|!Si!***Si!Sj.SitSlt#*S)! 

* ' * 

PTOIO DC *-* ENTRY. 

LD L3 PXK04-BASE COMPUTE NUMBER OF 
SLA THREE WORDS TO ZERO AND 
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89F38100 
89F38110 
89F38120 
89F38130 

89F38140 
89F38150 
89F38160 
89F38170 
89F38180 
89F38190 
89F38200 
89F38210 
89F38220 
89F382 30 
89F38240 
89F38250 
89F38260 
89F38270 
89F38280 
89F38290 
89F38300 
89F38310 
89F38320 
89F38330 
89F38340 
89F38350 
89F38360 
89F38370 
89F38380 
89F38390 
89F38400 
89F38410 
89F38420 
89F38430 
89F38440 
89F38450 
89F38460 
89F384 70 
89F38480 
89F38490 
89F38500 
89F38510 
89F38520 
89F38530 
89F38540 
89F38550 
89F38560 
89F385 70 
89F38580 
89F38590 
89F38600 
89F38610 
89F38620 
89F38630 
89F38640 
89F38650 
89F38660 
89F386 70 
89F38680 
89F38690 
89F38700 
89F38710 
89F38720 
89F38730 
89F38740 
89F38750 
89F38760 
89F38770 
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0964 





DOOl 




0965 





6600 


OOOO 


0967 





C700 


OCEB 


096 9 





8301 




096A 





D002 




096 B 





10A2 




096C 





DEOO 


OOOO 


096E 





72FE 




096F 





70FC 




097 





D700 


OBFC 


0972 





4F80 


08FB 



0974 





OOOO 


0975 





0B2D 


0976 





1008 


0977 





4828 


0978 





700B 


0979 





C301 


D97A 





EOOF 


097B 





FOOF 


097C 





DOOF 


0970 





8010 


097E 







097E 





1890 


097F 





cooe 


0980 





4818 



0981 800E 

0982 4F80 090F 
0984 



0984 C3F9 

0985 9007 

0986 1000 

0987 D004 

0988 8006 

0989 70F4 



098A 





FOOD 


098 B 





1000 


098C 




0001 


098D 





0001 


098E 





OFFF 


098F 





IFFF 


0990 





OOOA 



STO PT020+1 REGISTER TWO. 

PT020 LDX L2 *-* 

LD L3 PXK06-BASE COMPUTE ABSOLUTE BASE 

A 3 ONE ADDRESS AND STORE IN 

STO PT030+1 INSTRUCTION OPERAND. 

SLT 34 ZERO ACCUMULATOR AND 0. 

PT030 STD L2 *-* ZERO EACH WORD. 

MDX 2 -2 DECREMENT COUNTER. 

B PT030 LOOP. 

STO L3 SVC02-BASE RESET HEADING SWITCH. 

B 13 PTOIO-BASE RETURN. 

*Sit*Sit**s!!SiC*sl,5);si!#Sl!*li!Si!B)!i):silS(CSi!#*S);si!Sl!Si!SitSlt)it>l!*Sll*;ltS>*3|csit*Sj!S>sitBitSl!S);sl!S(!Si!Sl! 

* ■ * 

* COMMON SUBROUTINES FOR SAXXX ROUTINES * 

* sit 

* * * * * * « «! Sj! si! si! * si, si! si! * SS sit * SH sit « sit S|C si! si! « S{! si! sic si! SH sic * si! * * * * * SH » >|S * * si! * Sll Sl= * bH 

* * 

ENTRY. 
3 AAC50-BASE SENSE DATA ENTRY SWS 

TEST SWITCH 8, EXTERNAL. 

SKIP NOT ON. 

BRANCH IF EXTERNAL TEST. 

GET BASE ADDRESS. 

MASK OFF BITS 4-15. 

CHANGE BIT 3. 

SAVE. 

COMPUTE HIGHEST ADDRESS. 

SAVE IN 0. 

TEST LOWEST ADDRESS FOR 0. 

SKIP NOT 0. 

« IF THE LOWEST ADDRESS IS ZERO, IT MUST BE MADE 

* 10, TO PROTECT INTERRUPT CELLS AND THE RESTART 

* BRANCHES. 
* 

A SAC16 START TEST AT 10. 

B 13 SAOIO-BASE RETURN. 

SA040 EOU * 

* EXTERNAL BSM TO TEST. 

if 

LD 3 AACIO-BASE CALCULATE STARTING 

S SAC08 ADDRESS FROM EXPLICIT BSM 

SLA 13 SETTING. 

STO SAC06 SAVE. 

A SAC14 COMPUTE HIGHEST ADDRESS. 

B SA020 BRANCH TO CONTINUE. 

* * * >!! * => s» * * « s» * * * * SC * # * H! «! s(! si, s], « « si! * sic «; si! * s|! « si! si! * si: si, sic s!< si, s). Bit sic # 3}: sS si! si! sic 

* Si! 

* CONSTANTS AND WORK AREAS * 

« if 

*«B{SSi!S!Jt«*Sl!;{C***SlCi(!*Sl:Bi!j)!Si!*<t#;Jt,jt<tsl!*slC3itJlC!!t*SSC*Si!Si!s;C***SJ!Btc**BiCS,'CsiCSitB;c* 

* Sit 



SAOIO 


DC 


*-* 




XIO 


3 AAC50' 




SLA 


EIGHT 




SKP 


+Z 




B 


SA040 




LD 


3 ONE 




AND 


SAC02 




EOR 


SAC04 




STO 


SAC06 




A 


SACIO 


SA020 


EOU 


* 




SRT 


EXCHA 




LD 


SAC06 




SKP 


+- 



SAC02 DC /FOOO 

SAC04 DC /lOOO 

SAC06 BSS 1 

SAC08 DC 1 

SACIO DC /OFFF 

SAC14 DC /IFFF 

SAC16 DC 10 

* if 

si! * * 3{c sjc « sis * !{c s{! * J), s}c * sic s(! * * sj! sj: sic :<, s;, 3{, sjt s{t sf: * ){t * s}! ;Jc ;{, # sic B): * ){c sic s{! * si! 3{c A j{c sic :(c sic sje * sic 

Bi,#*#BilBiCB!,Bi!l(,Si!iic;{!BS!SlC*Blt*SiCSi!BiC#B(iljCB!csj!Bic:(lS!cSi!B!tS|tBtC«Si!«!SiCSiCsiC*BlCSi!Si!BiCSic*BlCBi!Bl!S»Sl,Bi! 

* * 

* SET ADDRESS TEST LIMITS, RIPPLE UP CORE * 

BJC ^ 

*****#**=^Si!Si!*SiCSiC***Si!3frj{!;ItB;:s!tSiCB;CB),si!Bi,B(,si!S;!3j:Bl!BlC*:{tsl!Bl,*3jCB;CBi!:^B{C«3frsitB!,*;I,s;c 



MASK BITS 4-15. 

BIT 3. 

TEMPORARY STORAGE. 

ONE. 

4K. 

8K 

TEN. 



89F38780 

89F38790 

89F38800 

89F38810 

89F38820 

89F38830 

89F38840 

89F38850 

89F38860 

89F38870 

89F38880 

89F38890 

89F38900 

89F38910 

89F38920 

89F38930 

89F38940 

89F38950 

89F38960 

89F38970 

89F38980 

89F38990 

89F39000 

89F39010 

89F39020 

89F39030 

89F39040 

89F39050 

89F39060 

89F39070 

89F39080 

89F39090 

89F39I00 

89F39110 

89F39I20 

H9F39130 

89F39140 

89F39150 

89F39160 

89F39170 

89F39180 

89F39190 

89F39200 

89F39210 

89F39220 

89F39230 

89F39240 

89F39250 

89F39260 

89F39270 

89F39280 

89F39290 

89F39300 

89F39310 

89F39320 

89F39330 

89F39340 

89F39350 

89F39360 

89F39370 

89F39380 

89F39390 

89F39400 

89F39410 

89F39420 

89F39430 

89F39440 

89F39450 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
29 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
29A 
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EXTENDED CORE FUNCTION TEST 



THIS SUBROUTINE SETS THE STARTING ADDRESS FOR 
A PATTERN TEST IN XRl. THE OTHER ADDRESS LIMIT 
IS IN THE ACCUMULATOR AT EXIT. 



CALL 



* 89F39460 

* 89F39470 

* 89F39480 

* 89F39490 

* 89F39500 

* 89F39510 

* 89F39520 

* 89F39530 
« 89F39540 

* 89F39550 
» 89F39560 

* 89F39570 

* 89F39580 

* 89F39590 
THE ACCUMULATOR CONTAINS THE LAST ADDRESS TO* 89F39600 
TEST UPON EXIT. * 89F39610 

^ * 89F39620 

«♦#***«********»#*#♦**«***********»**************** 8 9F 396 30 
^ * 89F39640 

89F39650 
89F39660 
89F39670 
89F39680 



BSI L3 SAIOO-BASE 

XRl HAS THE STARTING ADDRESS UPON EXIT. 

XR2 IS NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 



0991 





0000 




SAIOO 


DC 




«-* 


0992 





40E1 






BSI 




SAOIO 


0993 





0001 






STO 




SAUO+l 


0994 





6500 


0000 


SAllO 


LOX 


LI 


*-* 


0996 





1090 






SLT 




EXCHA 


0997 





4F80 


092C 




B 


13 


SAIOO-BASE 



ENTRY. 

DETERMINE LIMITS. 
INITIALIZE XR2 WITH 
STARTING ADDRESS. 



0999 
099A 

099 B 
099C 
099D 
099F 
09AO 



0000 

4009 

18D0 

DOOl 

6500 0000 

1090 

4F80 0934 



END ADDRESS IN ACCUMULATOR 89F39690 
RETURN. 89F39700 

S******************* *«#«*«*«******** *************** 8 9F39710 
# * 89F39720 

* 89F39730 

* 89F39740 
*************************************************** 89F39 750 



* SET ADDRESS LIMITSt RIPPLE DOWN CORE 



THIS SUBROUTINE SETS THE STARTING ADDRESS FOR 
A PATTERN TEST IN XRl. THE OTHER ADDRESS LIMIT 
IS IN THE ACCUMULATOR AT EXIT. 



CALL 



* 89F39760 

* 89F39770 

* 89F39780 

* 89F39790 

* 89F39800 

* 89F39810 

* 89F39820 

* 89F39830 

* 89F39840 

* 89F39850 
« 89F39860 

* 89F39870 

* 89F39880 

* 89F39890 
« 89F39900 

* 89F39910 

* 89F39920 

* 89F39930 
««**#*♦*«##*****«****»*****»**#******************** 89F 39940 

* 89F39950 
89F39960 



BSI L3 SA200-BASE 

XRl HAS THE STARTING ADDRESS UPON EXIT. 

XR2 IS NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 

THE ACCUMULATOR CONTAINS THE LAST ADDRESS 
TO TEST UPON EXIT. 



«-* 

SAOIO 

EXCHA 

SA210+1 
LI *-* 

EXCHA 
13 SA200-BASE 



ENTRY. 

DETERMINE LIMITS. 

INITIALIZE XR2 
WITH STARTING 
ADDRESS. 



SA200 DC 

BSI 

RTE 

STO 
SA210 LDX 

SLT 

B .. 

*#******«*«*«******************»***»*»************* 8 9F40030 
* * 89F40040 

* 89F40050 



89F39970 

89F39980 
89F39990 
89F40000 

END ADDRESS IN ACCUMULATOR 89F40010 
RETURN. 89F40020 



* BIT FAILURE SUMMARY PRINT SUBROUTINE 

» * 89F40060 

»*#**#****«#*******«*##»«************************** 89F40070 



* THIS ROUTINE PRINTS THE BIT FAILURE SUMMARY FOR 

* THE STORAGE MODULE INDICATED IN HZKOl. 
* 

* CALL - 

* 



89F40080 
89F40090 
89F40100 
89F40110 
89F40120 
89F40130 



EXTENDED CORE FUNCTION TEST 



09A2 

09 A 3 

09A5 

09A6 

09A8 

09A9 

09AB 

09AC 

09AE 

09AF 

09B1 

09B2 

09 B4 

09B5 

09B6 

09B7 

09B8 

09B9 

09BA 

09 BC 

09 BO 

09BE 

09BF 

09C1 

09C2 

09C3 

09C4 

09C5 

09C6 

09C7 

09C9 

09CA 

09CB 

09CD 

09CE 

09CF 

0901 

09D3 
0904 
09D5 
09D6 
09D7 
09D8 
0909 



0000 

4700 

FOOO 

4700 

0986 

4700 

FOOO 

4700 

0980 

4700 

FOOO 

4700 

6929 

6A2A 

61EE 

C02B 

8301 

0001 

6600 

C027 

8301 

0009 

C700 

9023 

A023 

1800 

8022 

8301 

D021 

C500 

D200 

7202 

CF80 

4041 

COIB 

4700 

4700 

OBCO 

72FA 

C012 

8012 

DOlO 

7101 

70ED 



060 A 
060A 
06 DA 
06 DA 
06 DA 
OBAF 



0000 



03F5 



0000 
0983 



0A07 
06DA 



09DA 4700 06DA 
09DC FOOO 
09D0 6500 0000 
09DF 6600 0000 
09E1 4F80 093D 



BSI L3 SBOlO-BASe 

XRl IS SAVED AND RESTORED 

XR2 INDICATES THE SUMMARY ROUTINE. 

XR3 IS THE PSEUDO BASE REGISTER. 

THE BSM ID. IS IN HZKOl. 



* 
* 
* 
* 
* 

#**♦***«*******#*********************************** 

* 



* 

SBOIO DC 
BSI 
DC 
BSI 
OC 
BSI 
DC 
BSI 
OC 
BSI 
OC 
BSI 
STX 
STX 
LOX 
LD 
A 

STO 
SB020 LDX 
LD 
A 

STO 
LD 
S 
H 

RTE 
A 
A 

STO 
SB030 LD 
STO 
MDX 
LDO 
BSI 
LD 
BSI 
BSI 
DC 
MDX 
LD 
A 

STO 
MDX 



♦-* 

HAOIO-BASE 
/FOOO 

MAOIO-BASE 
SBC70-BASE 
L3 MAOIO-BASE 
/FOOO 

MAOIO-BASE 
SBC80-BASE 
MAOIO-BASE 
/FOOO 

SUOIO-BASE 
SB050+1 
SB060+1 
-18 
SBC02 
ONE 

SB020+1 
*-* 

SBC04 

ONE 

S6030+1 

HZKOl-BASE 

SBC06 

SBC08 

16 

SBCIO 

ONE 

SBC12 

#-* 

ZERO 

TWO 

SBC12-BASE 

SCOIO 

S8C16 

SDOIO-BASE 

MAOIO-BASE 

SUC80-BASE 

-6 

SBC12 

S8C14 

SBC12 

ONE 

SB030 



L3 



L3 



L3 

L3 

L3 
1 
2 

1 



L2 



L3 



LI 
2 
2 

13 



L3 
L3 



ENTRY. 

WRITE A SPACE. 
SPACE FUNCTION. 

WRITE HEADING. 

MESSAGE HEADING. 

WRITE A SPACE. 
SPACE FUNCTION. 

WRITE HEADING. 

MESSAGE HEADING. 

WRITE A SPACE. 
SPACE FUNCTION. 

ZERO LINE BUFFER. 
SAVE XRl. 
SAVE XR2. 

XRl IS A POINTER, COUNTER. 
USE XR2 AS A POINTER 
TO BUFFER AREA. 

LOAD POINTER INTO XR2. 
BUILD OPERAND FOR 
BIT STRING. 

COMPUTE ABSOLUTE ADDRESS 
OF BASE OF BIT FAILURE 
STORAGE TABLE ENTRY TO 
CONVERT. 



SAVE AS INDIRECT ADDRESS. 
GET BIT ID. 
PUT IN BUFFER AND 
INCREMENT POINTER 

LOAD DROP AND PICK 
COUNTERS AND CONVERT 
PUT CONVERTED CHARACTERS 

IN BUFFER LINE. 

WRITE LINE. 

MESSAGE. 
RESTORE XR2 
UPDATE INDIRECT 
ADDRESS TO BIT 
FAILURE STORAGE. 
INCREMENT COUNTERi 
LOOP. 



SUMMARY COMPLETE. 



BSI 
OC 
SB050 LDX 
SB060 LOX 
B 



L3 



WRITE A SPACE. 
SPACE FUNCTION 
RESTORE XRl. 
RESTORE XR2. 

RETURN. 
**#«**#***«»************************************** 
* 

* CONSTANTS AND WORK AREAS 
* 



MAOIO-BASE 
/FOOO 

LI *-* 
L2 *-* 
13 SBOIO-BASE 



* 89F40140 

* 89F40150 

* 89F46160 

* 89F40170 

* 89F40180 

* 89F40190 

* 89F40200 

* 89F40210 

* 89F40220 

* 89F40230 
89F40240 
89F40250 
89F40260 
89F40270 
89F40280 
89F40290 
89F40300 
89F40310 
89F40320 
89F40330 
89F40340 
89F40350 
89F40360 
89F40370 
89F40380 
89F40390 
89F40400 
89F40410 
89F40420 
89F40430 
89F40440 
89F40450 
89F40460 
89F40470 
8 9F40480 
89F40490 
89F40500 
89F40510 
89F40520 
89F40530 
B9F40540 
89F40550 
89F40560 
89F40570 
89F40580 
89F40590 
89F40600 
89F40610 
89F40620 
89F40630 
89F40640 
89F40650 
89F40660 
89F40670 
89F40680 
89F40690 
89F40700 
89F40710 
89F40720 
89F40730 
89F40740 
89F40750 
89F40760 
89F40770 

* B9F40780 

* 89F40790 

* 89F40800 

* 89F40810 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
30 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
30A 
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4 >• 



4 ■'> 

A. .t 



4 > 



4' \ 



/ > 
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***** 


**»* 


!lH)t*#*tf***ilH 


»**** 


*:»L^zlHf^if/f#ilL^:if^t************** 


89F40820 






* 










* 


89F40830 






« 








RELATIVE ADDRESS OF 


LINE 


89F40840 


09E3 


0BC2 


SBC02 

* 


DC 


SUC84- 


•BASE 


BUFFER. 
RELATIVE ADDRESS OF 


BASE 


89F40850 
89F40860 


09E4 


09 AA 


SBC04 


DC 


SBC92- 


•BASE 


OF BIT STORAGE lONTS. 


89F40870 


09E5 


0001 


SBC06 


DC 


1 




ONE. 




89F40880 


09E6 


0024 


SBC08 
* 


DC 


36 




THIRTY SIX. 
RELATIVE ADDRESS OF 


BASE 


89F40890 
89F40900 


09E7 


OCED 


SBCIO 


DC 


PXK20- 


•BASE 


OF STORAGE TABLE. 




89F40910 


09E8 


0001 


SBC12 


BSS 


1 




INDIRECT ADDRESS. 




89F40920 


09E9 


0002 


SBC14 


DC 


2 




TWO. 




89F40930 


09EA 


7204 


SBC16 


MDX 


2 FOUR 




INSTRUCTION FOR FILL 


, RTN. 


89F40940 


09EB 


0006 


SBC70 


DC 


6 




SUMMARY HEADING. 




89F40950 


09EC 


3239 




DC 


/3239 




BI 




89F40960 


09EO 


1300 




DC 


/1300 




T 




89F40970 


09EE 


3631 




DC 


/3631 




FA 




89F40980 


09EF 


3923 




DC 


/3923 




IL 




89F40990 


09F0 


1429 




DC 


/1429 




UR 




89F41000 


09F1 


3512 




DC 


/3512 




ES 




89F41010 


09F2 


OOOA 


SBC80 


DC 


10 




HEADING. 




89F41020 


09F3 


0000 




DC 


/OOOO 








89F41030 


09F4 


3239 




DC 


/3239 




BI 




89F41040 


09F5 


1300 




DC 


/1300 




T 




89F41050 


09F6 


0000 




DC 


/OOOO 








89F41060 


09F7 


3429 




DC 


/3429 




DR 




89F41070 


09F8 


2627 




DC 


/2627 




OP 




89F41080 


09F9 


0000 




DC 


/OOOO 








89F4ia90 


09FA 


0000 




DC 


/OOOO 








89F41100 


09FB 


2739 




DC 


/2739 




PI 




89F41110 


09PC 


3322 


* 


DC 


/3322 




CK 




89F41120 
89F41130 


09F0 


OOOA 




DC 


/OOOA 









89F41140 


09FE 


0001 




DC 


/OOOl 




1 




89F41150 


09FF 


0002 




OC 


/0002 




2 




89F41160 


OAOO 


0003 




DC 


/0003 




3 




89F41170 


OAOl 


0004 




DC 


/0004 




4 




89F41180 


0A02 


0005 




OC 


/0005 




5 




89F41190 


0A03 


0006 




DC 


/0006 




6 




89F41200 


OA04 


0007 




OC 


/0007 




7 




89F41210 


0A05 


0008 




DC 


/0008 




8 




89F41220 


0A06 


0009 




OC 


/0009 




9 




89F41230 


0A07 


OlOA 




OC 


/OlOA 




10 




89F41240 


0A08 Q 


0101 




DC 


/OlOl 




U 




89F41250 


0A09 


0102 




DC 


/0102 




12 




89F41260 


OAOA 


0103 




DC 


/0103 




13 




89F41270 


OAOB 


0104 




DC 


/0104 




14 




89F41280 


OAOC 


0105 




DC 


/0105 




15 




89F41290 


OAOD 


0012 




DC 


/0012 




S 




89F41300 


OAOE 


0027 




OC 


/0027 




P 




89F41310 


OAOF 




SBC92 
# 


EOU 


* 




BITS. 


* 


89F41320 
89F41330 






«**»Ji!**##***Dt#«**JiCl((!!<j!l#!|tjl!*«««<I.[t:JC#«#,)t)J!*;jCj);<,*^,(!«^#Jj,;j;:^;(,:{t 


89F41340 






****#«*««*#*♦«**«#*#**««#,#:(, ^,«##<,^#:j,^»;(t;j,^^,jj(#(,jj^^^)|,^ 


89F41350 






* 










* 


89F41360 






* BINARY TO 1443 DECIMAL 


CODE CONVERSION 


* 


89F41370 






* 










* 


89F41380 






««#**««*** 


!***«««**** 


*#««***«*«**»***********««*«*#* 


89F41390 






* 










* 


89F41400 






* THIS 


; SUBROUTINE CONVERTS A ONE WORD BINARY 


* 


89F41410 






'» INTEGER 


TO FIVE 1443 PRINTER CHARACTERS IN 


* 


89F41420 






« THREE WORDS. 






* 


89F41430 






* 










* 


89F41440 






* CALL 


- 








' ■' * 


89F41450 






* 










* 


89F41460 






« 


BSI 


L3 SCOIO- 


BASE 




* 


89F41470 






* 










* 


89F41480 






* 


THE 


ACCUMULATOR AND CONTAIN BINARY WORDS * 


8 9F41490 



0A14 





61FF 


0A15 





C04B 


0A16 





8301 


0A17 





DOOl 


OAie 





6600 


OAIA 





C047 


OAIB 





8301 


OAlC 





DOIF 


OAID 





C040 


OAIE 





4818 


OAIF 





7020 


0A20 







0A20 





6302 


0A21 





1890 


0A22 







0A22 





A83D 


0A2 3 





4818 


0A24 





7022 


0A25 





18D0 


0A26 





4818 


0A27 





C038 


0A28 





D200 


0A29 





1804 


0A2A 





A835 


0A2B 





4818 


0A2C 





701D 


0A2D 





18D0 


0A2E 





4818 


0A2F 





C030 


0A30 





1008 


0A31 





EAOO 


0A32 





0200 


0A33 





1810 


0A34 





72FF 


OA35 





73FF 


0A36 





70EB 



* 
* 
* 
* 
* 
* 
* 
* 



TO BE CONVERTED. 

XRl AND XR2 ARE SAVED AND RESTORED. 

XR3 IS THE PSEUDO BASE REGISTER. 

THE RESULTS ARE STORED IN TWO FIXED AREAS 
OF THREE WORDS EACH. 



OAOF OOOO 
OAIO D840 
OAll 6945 
0A12 6A46 
0A13 6B47 



**#if:ifiHti:^tf^^#ii,t*****«**************#*******#******!:^if 

* # 

SCOIO DC *-# ENTRY. 

STD SCC02 STORE WORDS TO CONVERT. 

STX 1 SC120-H SAVE INDEX 

STX 2 SC130+1 REGISTERS. 

STX 3 SC140-H 
« 

* AT THIS POINT XR3 IS INTACT AS THE BASE REGISTER. 
* 



OOOO 



LDX 
LD 
A 
STO 

SC020 LDX 
LD 
A 

STO 
LD 
SKP 
B 

SC030 EOU 
LDX 
SRT 

SC040 EOU 
D 

SKP 
B 

RTE 
SKP 
LD 
STO 
SRA 
D 

SKP 
B 
RTE 

SKP 

LD 

SLA 

OR 

STO 

SRA 

MDX 

MDX 

B 



L2 



1 -1 

SCC08 
3 ONE 

SC020-H 

*-* 

SCCIO 

ONE 

SC060-H 

SCC02 

+- 

SC070 

« 

TWO 

16 

« 

SCC04 

+- 

SC080 

16 

+- 

sec 04 

ZERO 

FOUR 

SCC04 

•^- 

SC090 

16 

■i— 

SCC04 

EIGHT 

ZERO 

ZERO 

16 

-1 

-1 

SC040 



* FIFTH CHARACTER LEFT. 

* 



0A37 1800 
0A38 D200 
0A39 
0A39 7101 
0A3A 701B 



0A3B 6600 OOOO 
0A3D C021 



RTE 

STO 

SC050 EOU 

MDX 

6 



16 

2 ZERO 

« 

1 ONE 
SC120 



USE XRl AS OVERALL COUNTER 
COMPUTE ADDRESS OF STORAGE 
AREA AND PUT IN INDEX 
OPERAND. 

XR2 POINTS TO RESULT AREA. 
COMPUTE ADDRESS OF SECOND 
STORAGE AREA AND 
INITIALIZE INDEX OPERAND. 
LOAD FIRST WORD TO CONVERT 
AND SKIP IF NON ZERO. 
BRANCH TO LOAD DASHES. 

USE XR3 AS COUNTER. 
PREPARE FOR DIVISION. 

DIVIDE BY 10. 
SKIP IF MORE TO CONVERT. 
BRANCH TO ADD LEFT BLANKS. 
EXCHANGE QUOTIENT AND 
REMAINDERt SKIP NOT 0. 
LOAD 1443 CHARACTER 0. 
STORE AS RIGHT BYTE. 
CLEAR ACCUMULATOR. 
DIVIDE BY 10. 
SKIP IF MORE TO CONVERT. 
BRANCH TO ADD LEFT BLANKS. 
EXCHANGE QUOTIENT AND 

REMAINDER, SKIP NOT ZERO. 
LOAD 1443 CHARACTER 0. 
SHIFT TO LEFT BYTE. 
UPDATE CHARACTER. 

CLEAR ACCUMULATOR. 
DECREMENT WORD POINTER. 
DECREMENT COUNTER. 
LOOP. 



MOVE LAST CHARACTER TO 
STORAGE. 

INCREMENT COUNTER. 
BRANCH IF DONE. 



INITIALIZE FOR SECOND CONVERSION. 



* 

* 

SC060 LDX 
LD 



L2 *-* 
sec 03 



POINTER TO STORAGE AREA. 
LOAD SECOND WORD TO 



89F41500 
89F41510 
89F41520 
89F41530 
89F41540 
89F41550 
89F41560 
89F41570 
89F41580 
89F41590 
89F41600 
89F41610 
89F41620 
89F41630 
89F41640 
89F41650 
89F41660 
89F41670 
89F41680 
89F41690 
89F41700 
89F41710 
89F41720 
89F41730 
89F41740 
e9F41750 
B9F41760 
89F41770 
89F41780 
89F41790 
89F41800 
89F41810 
89F41820 
a9F41830 
89F41840 
89F41850 
89F41860 
89F41870 
89F41880 
89F41890 
89F41900 
89F41910 
89F41920 
89F41930 
89F41940 
89F41950 

89F41960 
89F41970 
89F41980 
89F41990 
89F42000 
89F42010 
89F42020 
89F42030 
89F42040 
89F42050 
89F42060 
89F42070 
89F42080 
89F42090 
89F42100 
89F42110 
89F42120 
89F42130 
89F42140 
89F42150 
8 9F42160 
89F42170 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
31 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE , 



089F-1 
31A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
EXTENDED CORE FUNCTION TEST 



0A3E 4820 
0A3F 70E0 



0A40 
0A40 



C022 



0A41 D200 
0A42 C020 
0A43 D2FF 
0A44 C023 
0A45 D2FE 
0A46 70F2 



0A47 







0A47 





1800 


0A4B 





D200 


0A49 





7003 


0A4A 







0A4A 





1098 


0A4B 





EAOO 


0A4C 





D200 


0A4D 







0A4D 





1810 


0A4E 





72FF 


0A4F 





73FF 


0A5O 





7001 


0A51 





7002 


0A52 







OA52 





D200 


0A53 





72FF 


0A54 







0A54 





0200 



0A55 70E3 



0A56 

0A56 6500 0000 
0A5 8 6600 0000 
0A5A 6700 0000 
0A5C 4F80 09AA 



0A5E 




0001 


0A5F 




0001 


0A6 





OOOA 


0A61 





0A02 


0A62 





0A06 


0A63 





2020 


0A64 




0001 


0A65 




0001 


0A66 




0002 


0A68 





0020 


0A69 




0001 


0A6A 




0002 



SKP 
B 



Z 
SC030 



CONVERT AND SKIP IF ZERO. 
BRANCH TO CONVERSION. 



* WORD TO CONVERT IS ZERO. 

* 



SCO 70 


EOU 




* 




LD 




SCC12 




STO 


2 


ZERO 




LD 




SCC12 




STO 


2 


-1 




LD 




SCC92 




STO 


2 


-2 




B 




SC050 



« NO MORE CHARACTERS! 
* 



SC080 EOU 
RTE 
STO 
B 

SC090 EOU 
SLT 
OR 
STO 

SCIOO EOU 
SRA 
MDX 

MDX 
B 
B 
SCUO EOU 
STO 
MDX 

SC115 EOU 
STO 
B 



# 

16 

ZERO 
SCIOO 

* 

24 

ZERO 

ZERO 

* 

16 
-1 

-1 

SCUO 

SC115 

* 

ZERO 

-1 

« 

ZERO 

SC050 



MOVE FIVE 1443 CHARACTERS 
TO CONVERSION STORAGE. 



RETURN AND CONTINUE. 

INSERT LEFT BLANKS. 

RIGHT BYTE LAST CHARACTER. 

GET LAST CHARACTER. 

STORE. 

BRANCH TO CONTINUE. 

GET LAST CHARACTER TO LEFT 
BYTE OF ACCUMULATOR. 
UPDATE. 

CLEAR THE ACCUMULATOR. 
DECREMENT STORAGE POINTER. 
DECREMENT COUNTER AND 
SKIP IF ONE MORE WORD. 
SKIP, TWO MORE WORDS. 
BRANCH IF ONE MORE WORD. 

BLANK SECOND WORD OF 
STORAGE. 

BLANK FIRST WORD OF 
STORAGE AND RETURN. 



* ROUTINE DONE. 

* 

SC120 EOU 

LDX 
SC130 LDX 
SC140 LDX 

B 



* 

#-* 

^— # 
L3 *-* 
13 SCOIO-BASE 



LI 
L2 



RESTORE INDEX 
REGISTERS. 

RETURN. 



* * 

* CONSTANTS AND WORK AREAS * 

* * 



STORAGE FOR A AND Q, TWO 
BINARY NUMBERS TO CONVERT. 
DIVISOR, 1443 CHARACTER 0. 



SCC02 


BSS E 1 


SCC03 


BSS 


1 


SCC04 


DC 


10 


SCC08 


DC 


SCC90 


SCCIO 


DC 


SCC93 


SCC12 


DC 


/2020 




BSS E 1 


SCC90 


BSS 


1 


SCC91 


BSS 


2 


SCC92 


DC 


/0020 


SCC93 


BSS 


1 


SCC94 


BSS 


2 



1443 CHARACTERS — . 
SCC90 e SCC93 BUST BE ODD. 
FIVE CHARACTERS AS 
RESULTS OF CONVERSION. 
1443 CHARACTER -. 



* * 
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89F42180 
89F42190 
e9F42200 
89F42210 
89F42220 
89F42230 
89F42240 
89F42250 
89F42260 
89F42270 
89F42280 
89F42290 
89F42300 
89F42310 
89F42320 
89F42330 
89F42340 
89F42350 
89F42360 
89F42370 
89F42380 
89F42390 
B9F42400 
89F42410 
89F42420 
89F42430 
89F42440 
89F42450 
89F42460 
89F42470 
89F42480 
89F42490 
89F42500 
89F42510 

89F42520 
89F42530 
89F42540 
89F42550 
89F42560 
89F42570 
89F42580 
89F42590 
89F42600 
89F42610 
89F42620 
89F42630 
89F42640 
89F42650 
89F42660 
89F42670 
B9F42680 
89F42690 
89F42700 
89F42710 
89F42720 
89F42730 
89F42740 
89F42750 
89F42760 
89F42770 
89F42780 
89F42790 
89F42800 
89F42810 
89F42820 
89F42830 
89F42840 
89F42850 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2279488 
PAGE 32A 



EXTENDED CORE FUNCTION TEST 



0A6C 0000 



0A6D 
0A6E 
0A6F 
0A70 
0A71 
0A72 
0A73 
0A74 
0A76 
0A76 
0A77 
0A78 
0A79 
0A7A 
0A7B 



0006 

C0F6 

D200 

C8F5 

0201 

18D0 

D202 

7200 
C0F3 
D200 

C8F2 

D201 

18D0 

D202 

4F80 0A07 



0A7D 0000 
0A7E 4700 06DA 
0A80 FOOO 
0A81 4700 06DA 
0A83 0AD7 



* CHARACTER FILL SUBROUTINE * 89F42860 

if * 89F42870 

*«««*##***«*«****»*********»*«********************* B9F42880 



THIS SUBROUTINE MOVES CONVERTED CHARACTERS FROM 
THE BUFFERS IN THE CONVERSION ROUTINE TO THE 
I/O AREA INDICATED IN XR2. 



CALL - 



BSI L3 SDOIO-BASE 

THE ACCUMULATOR CONTAINS AN MDX INSTRUCTION 
TO MODIFY XR2. 

XRl IS NOT USED. 

XR2 CONTAINS THE ADDRESS OF THE I/O AREA TO 
FILL. 

XR3 IS THE PSEUOO BASE REGISTER. 



89F42890 
89F42900 
89F42910 
89F42920 
89F42930 
89F42940 
89F42950 
89F42960 

* 89F42970 

* 89F42980 
89F42990 
89F43000 
89F43010 
89F43020 
89F43030 
89F43040 
89F43050 
89F43060 
89F43070 



****«***«#**«*****«*«************»*****«*********** 89 F4 30 80 
^ * 89F43090 

«-* ENTRY. 89F43100 

STORE POINTER MODIFICATION 89F43110 



SOOIO DC 

* 



STO 
LD 
STO 
LDD 
STO 
RTE 
STO 
SD020 MDX 
LD 
STO 
LDD 
STO 
RTE 
STO 
B 



SD020 
SCC90 
ZERO 
SCC91 
ONE 
16 
TWO 
ZERO 
SCC93 
ZERO 
SCC94 
ONE 
16 
TWO 
13 SDOIO-BASE 



INSTRUCTION. 
PICK UP CHARACTERS 
FROM CONVERSION 
BUFFERS AND STORE IN 
I/O LINE. 



THIS INSTRUCTION SUPPLIED 
BY CALL ROUTINE. 



89F43120 
89F43130 
89F43140 
89F43150 
89F43160 
89F43170 
89F43180 
89F43190 
89F43200 
89F43210 
89F43220 
89F43230 
89F43240 
89F43250 
89F43260 



RETURN. 
#«*««#**#««»##************************************* 89F43270 
* 
* ADDRESS LINE FAILURE SUMMARY SUBROUTINE 



THIS SUBROUTINE PRINTS THE ADDRESS LINE SUMMARY 
MATRIX FOR THE STORAGE MODULE INDICATED IN 
HZKOl. 



* 89F43280 

* 89F43290 

* 8 9F43300 
*«#»»**********♦«#»***«**#************************* 89F43310 

* 89F43320 

* 89F43330 

* 89F43340 

* 89F43350 

* 89F43360 

* 89F43370 

* 89F43380 

* 89F43390 
« 89F43400 

* 89F43410 

* 89F43420 
« 89F43430 
« 89F43440 

* 89F43450 



* 

* 

* 
* 

* 

* 

* 

* 



CALL - 



BSI L3 SEOIO-BASE 

XRl AND XR2 ARE SAVED AND RESTORED. 
XR3 IS THE PSEUDO BASE REGISTER. 
THE BSM ID. IS IN HZKOl. 



* 89F43460 
***#«*#«*#««*«#«#*****«*«***«**«*#****«************ 89F43470 

* 89F43480 
ENTRY. 89F43490 

WRITE A SPACE. 89F43500 

SPACE FUNCTION. 89F43510 

WRITE SUMMARY HEADING. 89F43520 

HEADING MESSAGE. 89F43530 



SEOIO DC 
BSI 
DC 
BSI 
DC 



*-* 
L3 MAOIO-BASE 

/FOOO 
L3 MAOIO-BASE 

SEC70-BASE 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
32 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
32A 






> 






4 > 



i *■ 



4 >. 









f > 



4 ¥ 






4 > 



4 >. 


















# ■>■- 



4 "^ 

'■■V y 



4~ "•• 

'*, y 



4 ^ 



,4 >, 



4 X 



4 



CC ( ( ( ( C ( ( ( ( ( ( c C < ( C C ( it ( t C ( ( ( ( C C C ( ( 



FENAN 


tE 


DIAGf 


(lOSTIC P 


•ROGRAM 


FOR 


THE 


1800 5 


iYSTE 


M 


PART NO. 2279481 






















PAGE 33 


CORE 


FUNCTION TEST 
















0A84 





4700 


06DA 




BSI 


L3 


MAOIO- 


■BASE 


WRITE A SPACE. 


89F43540 


0A86 





FOOD 






DC 




/FOOO 




SPACE FUNCTION. 


89F43550 


0A87 





4700 


06DA 




BSI 


L3 


MAOIO- 


■BASE 


WRITE FAILURE SUMMARY 


89F43560 


0A89 





0At2 






DC 




SEC80- 


•BASE 


HEADING WHICH IS 


89F43570 


0A8A 





4700 


06DA 




BSI 


L3 


MAOIO- 


■BASE 


TWO LINES. 


89F43580 


0A8C 





OAFE 






DC 




SEC90- 


■BASE 




89F43590 


0A8D 





4700 


06 DA 




BSI 


L3 


MAOIO- 


•BASE 


WRITE A SPACE. 


89F43600 


0A8F 





FOOO 






DC 




/FOOO 




SPACE FUNCTION. 


89F43610 


0A90 





4700 


OBAF 




BSI 


L3 


SUOIO- 


•BASE 


ZERO LINE BUFFER. 


89F43620 


0A92 





6960 






SIX 


1 


SE090+ 


1 


SAVE XRl. 


89F43630 


0A9 3 





6A6E 






SIX 


2 


SE092+1 


SAVE XR2. 


89F43640 










^r 












89F43650 










« FIND SCALE 1 


FACTOR. 






89F43660 










* 












89F43670 


0A94 





C700 


03F5 




LD 


L3 


HZKOl- 


BASE 


COMPUTE BASE ADDRESS 


B9F43680 


0A96 





907B 






S 




SEC02 




OF LINE ADDRESS 


89F43690 


0A97 





A07B 






M 




SEC04 




FAILURE STORAGE TABLE 


89F43700 


0A98 





18D0 






RTE 




16 




FOR THIS BSM. 


89F43710 


0A99 





807A 






A 




SEC06 






89F43720 


0A9A 





8301 






A 


3 


ONE 






89F43730 


0A9B 





D079 






STO 




SEC08 




SAVE. 


89F43740 


0A9C 





9075 






S 




SEC02 




DECREMENT ADDRESS. 


89F43750 


0A9D 





D004 






STO 




SE020+1 


STORE IN OPERAND. 


89F43760 


0A9E 





1810 






SRA 




16 




CLEAR WORK 


89F43770 


0A9F 





0076 






STO 




SECIO 




AREA. 


89F43780 


OAAO 





6128 






LDX 


1 


40 




USE XRl AS A COUNTER. 


89F43790 


OAAl 





C500 


0000 


SE020 


LD 


LI 


*-* 




FIND LARGEST VALUE 


89F43800 


0AA3 





9072 






S 




SECIO 




IN TABLE FOR SCALING. 


89F43810 


0AA4 





4808 






SKP 




+ 






89F43820 


0AA5 





7002 






B 




SE030 






89F43830 


0AA6 





806F 






A 




SECIO 




RESTORE VALUE AND 


89F43840 


0AA7 





006E 






STO 




SECIO 




SAVE. 


89F43850 


0AA8 









SE030 


EOU 




* 






89F43860 


0AA8 





71FF 






MDX 


1 


-1 




DECREMENT COUNTER. 


89F43870 


0AA9 





70F7 






B 




SE020 




LOOP. 


89F43880 


OAAA 





C06B 






LD 




SECIO 




COMPUTE 


89F43890 


OAAB 





18 90 






SRT 




16 




SCALE FACTOR. 


89F43900 


OAAC 





A86A 






D 




SEC12 






89F43910 


OAAO 





8064 






A 




SEC02 






89F43920 


OAAF 





0067 




* 


STO 




SECIO 






89F43930 
89F43940 










* XR2 


POINTS ■ 


ro LINE 


BUFFER. 


89F43950 










* 












89F43960 


OAAF 





C068 






LD 




SEC14 




COKPUTE ABSOLUTE ADDRESS 


89F43970 


OABO 





8301 






A 


3 


ONE 




OF LINE BUFFER AND 


89F43980 


OABl 





0001 






STO 




SE040+1 


INITIALIZE XR2. 


89F43990 


0AB2 





6600 


0000 


SE040 


LDX 


L2 


*-* 






89F44000 


0AB4 





C069 






LD 




SEC26 




INITIALIZE OPERAND 


89F44010 


0AB5 





8301 






A 


3 


ONE 




THAT POINTS TO LINE 


89F44020 


0AB6 





D003 






STO 




SE050+ 


1 


10. 


89F44030 


0AB7 





D02B 






STO 




SE080+1 




89F44040 


0AB8 





61F0 






LDX 


1 


-16 




USE XRl AS A COUNTER. 


89F44050 


0AB9 





CDOO 


0000 


SE050 


LOD 


LI 


*-* 




MOVE ADDRESS LINE TO 


89F44060 


OABB 





DAOO 






STD 


2 


ZERO 




I/O BUFFER. 


89F44070 


OABC 





4048 






BSI 




SE200 




SCALE AND CONVERT. 


89F44080 


OABD 





0203 






STO 


2 


THREE 






89F44090 


OABF 





C0b6 






LD 




SEC08 




INCREMENT INDIRECT 


89F44100 


0A8F 





8059 






A 




SEC16 




ADDRESS AND UPDATE. 


89F44110 


OACO 





D054 






STO 




SEC08 






89F44120 


OACl 





4043 






BSI 




SE200 




SCALE AND CONVERT. 


89F44130 


0AC2 





D205 






STO 


2 


FIVE 






89F44140 


0AC3 





C051 






LD 




SEC08 




INCREMENT INDIRECT 


89F44150 


0AC4 





8054 






A 




SEC16 




ADDRESS AND UPDATE. 


89F44160 


0AC6 





D04F 






STO 




SEC08 






89F44170 


0AC6 





403E 






BSI 




SE200 




SCALE AND CONVERT. 


89F44180 


0AC7 





0208 






STO 


2 


EIGHT 




STORE IN LINE BUFFER. 


89F44190 


0AC8 





C04C 






LD 




SEC08 




INCREMENT INDIRECT 


89F44200 


0AC9 





804F 






A 




SEC16 




ADDRESS AND UPDATE. 


89F44210 
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OACA D04A 








STO 




SEC08 






89F44220 


OACB 4039 








BSI 




SE200 




SCALE AND CONVERT. 


89F44,^30 


OACC D20A 




* 




STO 


2 


TEN 




STORE IN LINE BUFFER. 


89F4424n 
89F44250 






« 


LINE FULL. 








89F44260 






« 














89F44270 


OACD 4700 


060A 






BSI 


L3 


MAOIO- 


-BASE 


WRITE LINE. 


89F442aO 


OACF OBCO 








DC 




SUC80- 


-BASE 


MESSAGE. 


89F44290 


OADO 7102 








MDX 


1 


TWO 






89F44300 


OADl 7001 








6 




SE060 




SKIP TO LOOP. 


89F44310 


0AD2 7004 








B 




SE070 




BRANCH IF OONF. 


89F44320 


0AD3 




SE060 


EOU 




* 






89F4.^330 


0AD3 C041 








LD 




SEC08 




READJUST INDIRECT 


89F44340 


0AD4 9045 








S 




SECX8 




ADDRESS. 


89F44350 


0A05 D03F 








STO 




SEC08 






89F44360 


0A06 70E2 




* 




B 




SE050 




LOOP. 


89F44370 
89F44380 






* 


DONE WITH FIRST HALF OF MATRIX PRINTOUT. 


89F44390 






* 














8gF44400 


0AD7 




SE070 


EOU 




* 






89F44410 


0AD7 4700 


060A 






BSI 


L3 


MAOIO- 


-CASE 


WRITE SPACE. 


89F44420 


0AD9 FOOO 








DC 




/FOOO 




SPACE FUNCTION. 


89F44430 


OADA 61F0 








LDX 


1 


-16 




USE XRl AS A COUNTER. 


89F44440 


OADB C03F 








LD 




SEC20 




PUT ASTERISK IN UNUSED 


89F44450 


OADC D203 








STO 


2 


THREE 




POSITIONS. 


89F44460 


OAOD D205 








STO 


2 


FIVE 






89F44470 


OADE 0208 








STO 


2 


EIGHT 






89F44480 


OADF 




SE075 


EOU 




* 






89F44490 


OADF C035 








LO 




SEC08 




INCREMENT INDIRECT 


ggF4A500 


OAEO 8031 








A 




SEC02 




ADDRESS AND UPDATE. 


89F44510 


OAEl D033 








STO 




SECOa 






89F4452n 


0AE2 CDOO 


0000 


SE080 


LDD 


LI 


*-* 




MOVE ADOR. LINF TO 


89F44530 


0AE4 E837 








OR 




SEC22 




I/O BUFFER. 


89F44540 


0AE5 DAOO 








STD 


2 


ZERO 






89F44550 


0AE6 401E 








BSI 




SE200 




SCALE AND CONVERT. 


89F44560 


0AE7 D20A 








STO 


2 


TEN 




STORE IN LINE BUFFLR. 


89F44570 


0AE8 4700 


06DA 






BSI 


L3 


MAOIO- 


■BASE 


WRITE LINE. 


89F44580 


OAEA OBCO 








DC 




SUC80- 


•BASE 


MESSAGE. 


89F44590 


OAEB 7102 








MDX 


1 


TWO 




DECREMENT COUNTER. 


89F44600 


OAEC 70F2 




* 




B 




SE075 




LOOP. 


89F44610 
89F44620 






« 


SUMMARY 


DONE. 






89F44630 






« 














89F44640 


OAEO 4700 


06DA 






BSI 


L3 


MAOIO- 


•BASE 


WRITE A SPACE. 


89F44650 


OAEF FOOO 








DC 




/FOOO 




SPACE FUNCTION. 


89F44660 


OAFO C025 








LD 




SECIO 




CONVERT SCALE FACTOR 


89F44670 


OAFl 4700 


09AA 






BSI 


L3 


SCOIO- 


BASE 


AND FILL. 


89F44680 


OAF 3 C700 


OAOO 






LD 


L3 


SCC90- 


BASE 




89H44690 


OAFS D033 








STO 




SEC46 






89F44700 


0AF6 CFOO 


OAOl 






LDD 


L3 


SCC91- 


BASE 




89F44710 


0AF8 0831 








STD 




SEC46-f-l 




89F44720 


0AF9 4700 


06 DA 






BSI 


L3 


MAOIO- 


BASE 


WRITE LINE. 


89F44730 


OAFB OABB 








OC 




SEC40- 


BASE 


MESSAGE. 


89F44740 


OAFC 4700 


06 DA 






BSI 


L3 


MAOIO- 


BASE 


WRITE A SPACE. 


89F44750 


OAFE FOOO 








DC 




/FOOO 




SPACE FUNCTION. 


89F4''760 


OAFF 6500 


0000 


SE090 


LDX 


LI 


*-* 




RESTORE XRl. 


89F44770 


OBOl 6600 


0000 


SE092 


LDX 


L2 


«-* 




RESTORE XR2. 


89F44780 


0B03 4F80 


0A18 


* 




B 


13 


seoio- 


BASE 


RETURN. 


89F44 790 
89F44800 






# 


SCALE AND CONVERT 


CHARACTER. 


89F44810 






* 














B9F44820 


0B05 0000 




SE200 


DC 




«-* 




ENTRY. 


89F44830 


OB06 C780 


OABO 






LD 


13 


SEC08- 


BASE 


GET VALUE TO SCALE. 


89F44840 


0B08 4808 








SKP 




+ 




SKIP IF VALUE TO SCALE. 


89F44850 


0B09 7006 








B 




SE220 




NO ERRORS, LOAD -. 


89F44860 


OBOA 1890 








SRT 




16 




SCALE VALUE. 


89F44870 


OBOB A80A 













SECIO 






89F44880 


OBOC 4808 








SKP 




+ 




SKIP IF NOT ZERO. 


89F44890 
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PAGE 
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OBOD C004 

OBOE 

OBOE 4F80 OAAO 



OBIO 
OBIO COOC 
OBll 70FC 



0B12 


0001 


0B13 


0028 


0B1.4 


OEOD 


0BI5 


0001 


0B16 


0001 


0B17 


OOOA 


0B18 


OBCl 


0B1.4 


0008 


OBIA 


0017 


OBIB 


002C 


OBIC 


0100 


OBXD 


0020 


081E 


0AD7 


0620 


0000 


0B2O 


000 B 


0B21 


0000 


0B22 


1233 


0B23 


3123 


0B24 


3500 


0B25 


3631 


0626 


O 3313 


0B27 


2629 


0B28 


000 B 


0B29 


0000 


0B2A 


0000 


0B2 6 


0000 


0B2C 


OOOA 


0B2D 


OAOA 


0B2E 


OOOA 


0B2F 


OAOl 


0630 


OOOA 


0B31 


QlOA 


0B32 


OOOA 


0B33 


0101 


OB 34 


0001 


0B35 


OAOA 


0636 


0001 


0B37 


OAOl 


0B38 


0001 


0B39 


OlOA 


0B3A 


0001 


0B3B 


0101 


0B3C 





0B3C 


OOOA 


06 3D 


3631 


0B3E 


3923 


0B3F 


3B00 


0640 


3218 


0641 


0031 


0B42 


3434 


0643 


293B 


0B44 


0023 


0B45 


3925 



SE210 



LD 

EQU 

B 



13 



SEC02 

* 

SE200-BASE 



THERE WAS AT LEAST 1 ERROR 
RETURN. 



PUT DASH IN OUTPUT, NO TALLEY. 



LOAD DASH. 
BRANCH TO EXIT. 



# 

* 

SE220 EQU * 

LD SEC24 

B SE210 „„„.,„.. ._ - 

I 

* CONSTANTS AND WORK AREAS * 

* * 

* * 

ONE. 
NO. OF OWRDS IN EACH TABLE 

BASE OF TABLE. 
INDIRECT ADDRESS TO TABLE. 
SCALE FACTOR. 
SCALING VALUE. 

RELATIVE ADDRESS. 
EIGHT. 

TWENTY THREE. 
1443 CHARACTER, *. 
1443 CHARACTER 1, LEFT. 
1443 CHARACTER, -. 

RELATIVE ADDRESS. 
FORCE EVEN BOUNDARY. 



SEC02 DC 
SEC04 DC 
SEC06 DC 
SECOS BSS 
SECIO 
SEC12 
SEC14 
SEC16 
SEC18 



BSS 

DC 

DC 

DC 

DC 



SEC20 DC 



SEC22 
SEC24 
SEC26 



SEC40 



SEC46 



SEC 54 



SEC56 
SEC70 



DC 

DC 

DC 

BSS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

EQU 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



1 

40 

PXK30-BASE 

1 

1 

10 

SUC82-BASE 

8 

23 

/002C 

/OlOO 

/0020 

SEC56-BASE 



11 

/OOOO 

/1233 

/3123 

/3500 

/3631 

/3313 

/2629 

/OOOB 

/OOOO 

/OOOO 

/OOOO 

/OOOA 

/OAOA 

/OOOA 

/OAOl 

/OOOA 

/OlOA 

/OOOA 

/OlOl 

/OOOl 

/OAOA 

/OOOl 

/OAOl 

/OOOl 

/OlOA 

/OOOl 

/OlOl 

* 

10 

/3631 

/3923 

/3B00 

/3218 

/0031 

/3434 

/293B 

/0023 

/3925 



MUST BE EVEN ADDRESS. 
1443 CHARACTER 0. 



SC 
AL 

E 

FA 
CT 
OR 

X 
XX 
XX 

0, 
00 


01 


10 


11 

1 
00 

1 

01 

1 

10 

1 
11 



SUMMARY HEADING. 

FA 

IL 

BY 

A 
DO 
R. 

L 
IN 
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89F44990 

89F45000 

89F45010 

89F45020 

89F45030 

89F45040 

B9F45050 

89F45060 

89F45070 

89F45080 

89F45090 

89F45100 

89F45110 

89F45120 

89F45130 

89F45140 

89F45150 

89F45160 

89F45170 

89F45180 

89F45190 

89F45200 

89F45210 

89F45220 

89F45230 

89F45240 

8 9 F4 52 50 

89F45260 

89F45270 

89F45280 

89F45290 

89F45300 

89F45310 

89F45320 

89F45330 

89F45340 

89F45350 

89F45360 

89F45370 

89F45380 

89F45390 

89F45400 

89F45410 

89F45420 

89F45430 

89F45440 

89F45450 

89F45460 

89F45470 

89F45480 

89F45490 

89F45500 

89F45510 

89F45520 

89F45530 

89F45540 

89F45550 

89F45560 

89F45570 
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0B46 





3500 


0847 





OOOB 


0B48 





OOOO 


0B49 





OOOO 


0B4A 





OOOO 


0B4B 





38 39 


0B4C 





OOOO 


0B4D 





2326 


0B4E 





OOOO 


0B4F 





OOOO 


0B50 





3839 


0651 





OOOO 


0B52 





2326 


0B53 





OOOB 


0B54 





OOOO 


0B55 





OOOO 


0B56 





OOOO 


0657 





0017 


0858 





OOOO 


0B59 





0017 


0B5A 





OOOO 


0B5B 





OOOO 


0B5C 





0018 


0B50 





OOOO 


0B5E 





0018 



DC 

SEC80 DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

SEC90 DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



/3500 

11 

/OOOO 

/OOOO 

/OOOO 

/3839 

/OOOO 

/2326 

/OOOO 

/OOOO 

/3839 

/OOOO 

/2326 

11 

/OOOO 

/OOOO 

/OOOO 

/0017 

/OOOO 

/0017 

/OOOO 

/OOOO 

/0018 

/OOOO 

/0018 



HEADING MESSAGE. 



HI 



LO 



HI 



LO 

HEADING MESSAGE, 



* ! 

* SENSE/INHIBIT SUMMARY PRINT SUBROUTINE * 

« * 



* THIS SUBROUTINE PRINTS ONE LINE FOR EACH BSM 

* LOG SUMMARIZING FAILURES BY SENSE/ INHIBIT BLOCK 
» 

* CALL - 

* 
* 
* 

* 

* 

* 



BSI L3 SIOIO-BASE 

XRl IS NOT USED. 

XR2 IS SAVED AND RESTORED. 

XR3 IS THE PSEUDO BASE REGISTER. 

THE BSM ID. IS IN HZKOl. 



#♦**«#****♦*#**•*************♦********************* 



0B5F 
0B60 
0B62 
0B6 3 
0B65 
0B66 
0B68 
0869 
0B6A 
0B6B 
0B6C 
0B6D 
0B6F 
0B71 
0B72 
0873 
0B74 
0B75 



OOOO 

4700 06DA 

FOOD 

47 00 06 DA 

0B24 

4700 06DA 

FOOD 

6A19 

COIB 

8301 

DOOl 

6600 OOOO 

C700 03F5 

90A0 

1001 

8013 

DOOl 

CFOO OOOO 



SI 010 DC 
BSI 
DC 
BSI 

DC 

BSI 

DC 

STX 

LD 

A 

STO 

SI020 LDX 
LD 
S 

SLA 
A 
STO 

SI030 LDD 



*-* ENTRY. 

L3 MAOIO-BASE WRITE A SPACE. 
/FOOD SPACE FUNCTION. 

L3 MAOIO-BASE WRITE THE HEADING. 
SIC80-BASE HEADING. 

MRITE A SPACE. 
SPACE FUNCTION. 
SAVE XR2. 

COMPUTE STARTING ADDRESS 
FOR FILL AND LOAD INTO 
XR2. 



L3 MAOIO-BASE 
/FOOO 

2 S 1040+1 
SIC02 

3 ONE 
SI020+1 

L2 *-* 

L3 HZKOl-BASE 

SEC02 

ONE 

SIC04 

SI030+1 
L3 *-a 



COMPUTE ADDRESS OF 
ENTRY IN STORAGE AREA. 



LOAD COUNTERS. 



PART NO. 2279488 
PAGE 34A 



89F45580 

89F45590 

89F45600 

89F45610 

89F45620 

89F45630 

89F45640 

89F45650 

89F45660 

89F45670 

89F456 80 

89F45690 

89F45700 

89F45710 

89F45720 

89F45730 

89F45740 

89F45750 

89F45760 

89F45770 

89F45780 

89F45790 

89F45800 

89F45810 

89F45820 

89F45830 

89F45840 

89F45850 

89F45860 

89F45870 

89F45880 

89F45890 

89F45900 

89F45910 

S9F45920 

89F45930 

89F45940 

89F45950 

89F45960 

89F45970 

89F45980 

89F45990 

89F46000 

89F46010 

89F46020 

89F46030 

89F46040 

89F46050 

89F46060 

89F46070 

89F46080 

89F46090 

89F46100 

89F46110 

89F46120 

89F46130 

89F46140 

89F46150 

89F46160 

89F46170 

89F46180 

89F46190 

89F46200 

89F46210 

89F46220 

89F46230 

89F46240 

89F46250 
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C 



4 >. 
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A. / 



c v> 



4 > 



4" >- 



\.J^^ <» 



'■>., 












,f > 






o 

'<„>' 



4'^ 
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EXTENDED CORE FUNCTION TEST 

0B77 4700 09AA 

0B79 COOE 

0B7A 4700 0A07 



0B7C 4700 06DA 
0B7E 0B30 
0B7F 4700 060A 
0B81 FOOO 
0Be2 6600 0000 
0B84 4F80 OAFA 



0B8& 

0B87 

0B88 

0B89 

0B8A 

0B8B 

0B8C 

0B8D 

088E 

0B8F 

0B90 

0B91 

0B92 

0B93 

0B94 

0B95 

0B96 

0B97 

0B98 

0899 

0B9A 

0B9B 

0B9C 

0B90 

0B9E 

0B9F 

OBAO 

OBAl 

0BA2 

06a 3 

08A4 

0BA5 



O 0B36 
0F4D 
7208 
OOOB 
3631 
3923 
1429 
3500 
3218 
0004 
2200 
1235 
3724 
3525 
1300 
0010 
0000 
0023 
2600 
0422 
OOOB 
0000 
0000 
0000 
0000 
0038 
3900 
0422 
OOOB 
0000 
0000 
0000 
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FOR 


THE 1800 SYSTE 


M 
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BSI 


L3 SCOIO-BASE 


CONVERT TO 1443 CHAR. 




89F46260 




LD 


SIC08 


PUT CONVERTED CHARACTERS 


> 


89F46270 




BSI 


L3 SOOIO-BASE 


IN BUFFER LINE. 




89P46280 


* 










89F46290 


* LINE IS 


COMPLETE 






89F46300 


* 










89F46310 




BSI 


L3 MAOIO-BASE 


WRITE LINE. 




89F46320 




DC 


SIC90-BASE 


MESSAGE. 




89F46330 




BSI 


L3 MAOIO-BASE 


WRITE A SPACE. 




89F46340 




DC 


/FOOO 


SPACE FUNCTION. 




89F46350 


SI 040 


LOX 


L2 *-* 


RESTORE XR2. 




89F46360 




B 


13 SIOIO-BASE 


RETURN. 




89F46370 


****************************** *>|l***«#**«*#*««#>lc>j!«!l!* 


89F46380 


* 








# 


8 9 F4 63 90 


* CONSTANTS AND WORK AREAS 


* 


89F46400 


« 








« 


8 9 F4 64 10 


*»♦«**#««********:**##*#*, #«#«*#:(,#:(c#:j,4^«^#*«sj;#»:j,:Hj^* 


89F46420 


* 








* 


a9F46430 


* 






RELATIVE ADDRESS OF 




89F46440 


SIC02 


DC 


SIC90+6-BASE OUTPUT AREA TO FILL. 




89F46450 


SIC04 


DC 


PXK40-BASE 


RELATIVE ADDRESS OF STOR. 


89F46460 


SIC08 


MOX 


2 EIGHT 


INSTRUCTION FOR FILL RTN 


. 


89F46470 


SIC80 


DC 


11 


HEADING. 




89F46480 




DC 


/3631 


FA 




89F46490 




DC 


/3923 


IL 




89F46500 




DC 


/1429 


UR 




89F46510 




DC 


/3500 


E 




89F46520 




DC 


/3218 


BY 




89F46530 




DC 


/0004 


4 




89F46540 




DC 


/2200 


K 




89F46550 




DC 


/1235 


SE 




89F46560 




DC 


/3724 


GM 




89F46570 




DC 


/3525 


EN 




89F46580 




DC 


/1300 


T 




89F46590 


SIC90 


DC 


16 


MESSAGE. 




89F46600 




DC 


/OOOO 






89F46610 




DC 


/0023 


L 




89F46620 




DC 


/2600 







89F46630 




DC 


/0422 


4K 




89F46640 




DC 


/OOOB 


X 




89F46650 




DC 


/OOOO 


X 




89F46660 




DC 


/OOOO 


XX 




89F46670 




DC 


/OOOO 


XX 




89F46680 




DC 


/OOOO 






89F46690 




DC 


/0038 


H 




89F46700 




DC 


/3900 


I 




89F46710 




DC 


/0422 


4K 




89F46720 




DC 


/OOOB 


= 




89F46730 




DC 


/OOOO 


Y 




89F46740 




DC 


/OOOO 


YY 




89F46750 




DC 


/OOOO 


YY 




89F46760 


* 








* 


89F46770 


*«#*ji!**«««**«#«!JCS)i#»:(,***ljt,|=:J;*jK#**:(.#^;S;J#^^^^^,f;-;^;j,^^^^^ 


89F46780 


*««»«***««*#«*****«* #****#***««*****>i<****«**#jj, :(,«#«:(, 


89F46790 


* 








« 


89F46800 


* PATTERN 


FAILURE AND LOOP SUMMARY SUBROUTINE 


« 


89F46810 


* 








* 


89F46820 


*#«**#********«**««*#*««#*«**««««****#****>!<« *#*#**:!!, 


89F46830 


* 








« 


89F46840 


* THIS 


. SUBROUTINE PRINTS 


A LOG OF LOOPS AND 


* 


89F46850 


* FAILURES 


BY PATTERN TEST FOR EACH BSM. 


* 


89F46860 


* 








* 


89F46870 


* CALL 


. - 






* 


89F46880 


« 








* 


89F46890 


# 


BSI 


L3 SLOIO-BASE 




* 


89F46900 


* 








« 


8 9 F4 69 10 


« 


XRl , 


AND XR2 ARE SAVED AND RESTORED. 


* 


89F46920 


* 








« 


89F46930 
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* 


XR3 


IS 


THE PSEUDO 


BASE REGISTER. 


* 89F46940 






* 










* 89F46950 






* 


THE 


BSM 


ID. IS IN 


HZKOl. 


* 89F46960 






« 










* 89F46970 






«««I|c»l»««>K:t<««#«««««««««:»«>j»tc«>!<«««««««>t>««««:tl;(,««4:««^:|,«« 89F46980 






« 










* 89F46990 


0BA6 OOOO 




SLOIO 


DC 




*-* 


ENTRY. 


89F47000 


0BA7 4700 


06 DA 




BSI 


L3 


MAOIO-BASE 


WRITE A SPACE. 


89F47010 


0BA9 FOOO 






DC 




/FOOD 


SPACE FUNCTION. 


89F47020 


OBAA 4700 


06 DA 




BSI 


L3 


MAOIO-BASE 


WRITE SUMMARY HEADING. 


89F47030 


OBAC 0B96 






DC 




SLC70-BASE 


HEADING. 


89F47040 


OBAD 4700 


06 DA 




BSI 


L3 


MAOIO-BASE 


WRITE A SPACE. 


89F47050 


OBAF FOOO 






DC 




/FOOO 


SPACE FUNCTION. 


89F47060 


OBBO 4700 


06 DA 




BSI 


L3 


MAOIO-BASE 


WRITE HEADING. 


89F47070 


0BB2 0BA3 






DC 




SLC80-BASE 


HEADING. 


89F47080 


0BB3 4700 


06 DA 




BSI 


L3 


MAOIO-BASE 


WRITE A SPACE. 


89F47090 


0BB5 FOOO 






DC 




/FOOO 


SPACE FUNCTION. 


89F47100 


0BB6 4700 


OBAF 




BSI 


L3 


SUOIO-BASE 


ZERO LINE BUFFER. 


89F47110 


0BB8 6932 






STX 


1 


SL050+1 


SAVE XRl. 


89F47120 


0BB9 6A33 






STX 


2 


SL060+1 


SAVE XR2. 


89F47130 


OBBA 6103 






LOX 


1 


SLC04 


XRl IS COUNTER. 


89F47140 


OBBB C034 






LD 




SLC02 


COMPUTE ADDRESS OF 


89F47150 


OBBC 8301 






A 


3 


ONE 


LINE BUFFER FILL 


89F47160 


OBBD DOOl 






STO 




SL020+1 


AREA. 


89F47170 


0B6E 6600 


OOOO 


SL020 


LOX 


L2 


*-* 




89F47180 


OBCO C700 


03F5 




LD 


L3 


HZKOl-BASE 


COMPUTE BASE ADDRESSES 


89F47190 


0BC2 9031 






S 




SLC12 


OF LOOP AND FAILURE 


89F47200 


0BC3 A031 






M 




SLC14 


COUNTER TABLES. 


89F47210 


0BC4 18D0 






RTE 




16 




89F47220 


0BC5 8301 






A 


3 


ONE 




89F47230 


0BC6 D030 






STO 




SLC18 


SAVE TEMPORARILY. 


89F47240 


0BC7 802A 






A 




SLC08 


BUILD ADDRESSES AND 


89F47250 


0BC8 D02D 






STO 




SLC16 


SAVE FOR INDIRECT 


89F47260 


0BC9 C02D 






LD 




SLC18 


ADDRESSING. 


89F47270 


OBCA 8028 






A 




SLCIO 




89F4 7280 


OBCB D02B 




* 


STO 




SLC18 




89F47290 
89F47300 






* BUILD A 


LINE. 




89F47310 






* 










89F47320 


OBCC 




SL030 


EOU 




« 




89F47330 


OBCC 692B 






STX 


1 


SLC20 


COMPUTE TEST ID. 


89F47340 


OBCD C023 






LD 




SLC06 


NUMBER, CONVERT IT AND 


89F47350 


OBCE 9029 






S 




SLC20 


STORE IN LINE BUFFER. 


89F47360 


OBCF 4700 


0437 




BSI 


L3 


ICOIO-BASE 


CONVERT TO ONE 1443 


89F47370 


OBDl E028 






AND 




SLC24 


CHARACTER. 


89F47380 


0BD2 D200 






STO 


2 


ZERO 




89F47390 


0BD3 7203 






MDX 


2 


THREE 


INCREMENT I/O AREA PTR. 


89F4 7400 


0BD4 C780 


0B91 




LD 


13 


SLC16-BASE 


LOAD LOOP COUNTER. 


89F47410 


0BD6 18D0 






RTE 




16 


MOVE TO 0. 


89F47420 


0BD7 C780 


0B92 




LD 


13 


SLC18-BASE 


LOAD FAILURE COUNTER. 


89F47430 


0BD9 4700 


09AA 




BSI 


L3 


SCOIO-BASE 


CONVERT TO 1443 CODE. 


89F47440 


OBOB COID 






LD 




SLC22 


PUT CHARACTERS IN 


89F47450 


OBDC 4700 


0A07 


« 


BSI 


L3 


SDOIO-BASE 


I/O BUFFER. 


89F47460 
89F47470 






* LINE COMPLETE, WRITE IT 


• 


89F47480 






* 










89F47490 


OBDE 4700 


06DA 




BSI 


L3 


MAOIO-BASE 


WRITE LINE. 


89F47500 


OBEO OBCO 






DC 




SUC80-BASE 


MESSAGE. 


89F47510 


OBEl C014 






LD 




SLC16 


INCREMENT AND UPDATE 


89F47520 


0BE2 80U 






A 




SLC12 


INDIRECT ADDRESSES. 


89F47630 


0BE3 D012 






STO 




SLC16 




89F47540 


0BE4 C012 






LD 




SLC18 




89F47550 


0BE5 800E 






A 




SLC12 




89F47560 


0BE6 DOlO 






STO 




SLC18 




89F47570 


0BE7 72F9 






MDX 


2 


-7 ' ' 


RESTORE BUFFER POINTER. 


89F47580 


0BE8 71FF 






MDX 


1 


-1 


DECREMENT COUNTER. 


89F47590 


0BE9 70E2 






B 




SL030 


LOOP. 


89F47600 


OBEA 6500 


OOOO 


SL050 


LDX 


LI 


*-« 


RESTORE XRl. 


,89F47610 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
35 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 

35A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
EXTENDED CORE FUNCTION TEST 



PART NO. 2279488 
PAGE 36 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



OBEC 6600 0000 
OBEE 4F80 0B41 



OBFO 





0BC2 


0003 







OBFl 





0003 


0BF2 





0F75 


0BF3 





0F5D 


0BF4 





0001 


0BF5 





0003 


0BF6 




0001 


0BF7 




0001 


DBF 8 




0001 


0BF9 





7204 


OBFA 





OOFF 


OBFB 





OOOC 


OBFC 





3631 


OBFD 





3923 


OBFE 





1429 


OBFF 





3512 


OCOO 





0032 


OCOl 





1800 


0C02 





2731 


0C03 





1313 


0C04 





3529 


0C05 





2500 


0C06 





1335 


0C07 





1213 


0C08 





OOOB 


0C09 





0029 


OCOA 





1325 


OCOB 





3B00 


OCOC 





0036 


OCOD 





3139 


OCOE 





2314 


OCOF 





2935 


OCIO 





1200 


OCll 





0023 


0C12 





2626 


0C13 





2712 



SL060 LDX L2 *-* RESTORE XR2. 89F47620 

B 13 SLOIO-BASE RETURN. 89F47630 

»«««*«**««#*#«**♦##*##**«**«*********************** 89F47640 

» « 89F47650 

* CONSTANTS AND WORK AREAS * 89F47660 

# * 89F47670 
******««*«*«#*«*#**«««****#**#******»************** 89F47680 
^ * 89F47690 

SUC84-BASE 89F47700 

PATTERN TEST COUNT. IF 89F47710 

THE NUMBER OF PATTERN 89F47720 

TESTS CHANGE, SLC04 SHOULD 89F47730 
BE CHANGED. 

PATTERN COUNT. 

RELATIVE ADDRESS OF BASE 

OF LOOP COUNTER TABLE. 
RELATIVE ADDRESS OF BASE 

OF FAILURE COUNTER TABLE. 
ONE. 

NO. OF PATTERN TEST LOGS. 
INDIRECT ADDRESS, PXK60. 
INDIRECT ADDRESS, PXK50. 
WORK AREA. 

INSTRUCTION FOR FILL RTN. 
MASK TO LEAVE RIGHT BYTE. 
SUMMARY HEADING. 



DC 



SLC02 DC 

* 

* 

* 

SLC04 ECU 

SLC06 DC 

SLC08 

* 

SLCIO 

SLC12 

SLC14 

SLC16 

SLC18 

SLC20 

SLC22 

SLC24 

SLC70 



SLC80 



DC 

DC 

DC 

BSS 

BSS 

BSS 

MOX 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



3 
3 

PXK60-BASE 

PXK50-BASE 

1 

3 

1 

1 

1 

FOUR 

/OOFF 

12 

/3631 

/3923 

/1429 

/3512 

/0032 

/1800 

/2731 

/1313 

/3529 

/2500 

/1335 

/1213 

11 

/0029 

/1325 

/3B00 

/0036 

/3139 

/2314 

/2935 

/1200 

/0023 

/2626 

/2712 



FA 
IL 
UR 
ES 

B 
Y 

PA 
TT 
ER 
N 

TE 
ST 
HEADING 

R 
TN 

• 

F 
AI 
LU 
RE 
S 

L 
00 
PS 



89F47740 
89F47750 
89F47760 
89F47770 
89F47780 
89F47790 
89F47800 
89F47810 
89F47820 
89F47830 
89F47840 
89F47850 
89F47860 
89F47870 
89F47880 
89F47890 
89F47900 
89F47910 
89F47920 
89F47930 
89F47940 
89F47950 
89F47960 
89F47970 
89F47980 
89F47990 
89F48000 
89F48010 
89F48020 
89F48030 
89F48040 
89F48050 
89F48060 
89F48070 
89F48080 
89F48090 
89F48100 
89F48110 
* 89F48120 



***#*#**«*»««*****#***»******«**«****************** 8 9F48130 

«**###**»**«>!<*#«*««♦«««****««**«******************* 89F48140 

« 

* ZERO LINE BUFFER SUBROUTINE 



THIS SUBROUTINE ZEROS THE LINE BUFFER THAT IS 
COMMON TO ALL SUMMARY SUBROUTINES. 



* 89F48150 

* 89F48160 

* 89F48170 
«**«»****««*♦♦#«**#**«#******«***«#***«******«***** 89F48180 

« 89F48190 

* 89F48200 

* 89F48210 

* 89F48220 

* 89F48230 

* 89F48240 

* 89F48250 

* 89F48260 

* 89F48270 

* 89F48280 

* 89F48290 



CALL 



BSI L3 SUOIO-BASE 



EXTENDED CORE FUNCTION TEST 



0C14 
0C15 
0C16 
0C17 
0C18 
0C19 
OCIA 
OCIB 
OCID 
OCIE 
OCIF 
0C21 



0000 

6A0A 

6225 

COOC 

8301 

D002 

1810 

D600 0000 

72FF 

70FC 

6600 0000 

4F80 OBAF 



0025 




0C24 


0000 


0C24 


OBCO 


OC25 


0025 


0C26 


0001 


0C27 


0001 


0C28 


0001 


0C29 


0001 


0C2A 


0001 


0C2B 


0001 


0C2t 


0001 


0C2D 


0001 


0C2E 


0001 


0C2F 


0001 


0C30 


0001 


0C31 


0001 


0C32 


0001 


0C33 


0001 


0C34 


0001 


0C35 


0001 


0C36 


0001 


0C37 


0001 


OC38 


0001 


0C39 


0001 


0C3A 


0001 


0C3B 


0001 


0C3C 


0001 


0C3D 


0001 


0C3E 


0001 


0C3F 


0001 


0C40 


0001 


0C41 


0001 


0C42 


0001 


0C43 


0001 


0C44 


0001 


0C45 


0001 


0C46 


0001 


0C47 


0001 


0C48 


0001 


0C49 


0001 


0C4A 


0001 



XR3 IS THE PSEUDO BASE REGISTER. 



««*«**««****#**********«*****«********************* 



SUOIO 



SU020 



DC 

STX 

LDX 

LD 

A 

STO 

SRA 

STO 

MDX 



L2 
2 



SU050 



LDX 
B 



*-* 

SU050+1 

SUC02 

SUC04 

ONE 

SU020+1 

16 

*-* 

-1 

SU020 

*-* 



ENTRY. 

SAVE XR2. 

XR2 IS USED AS A COUNTER. 

COMPUTE ABSOLUTE BASE 

ADDRESS OF LINE BUFFER 

FOR OPERAND. 

ZERO ACCUMULATOR. 

STORE A ZERO INTO EACH 

POSITION. 



L2 *-* RESTORE XR2. 

13 SUOIO-BASE RETURN. 

* 



WORK AREAS AND LINE BUFFER 



* CONSTANTS 
* 

* 



* 
SUC02 



EOU 
BSS 



DC 



DC 



SUC04 

* 

SUC80 

SUC82 BSS 

SUC84 BSS 
BSS 

SUC86 BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 

SUC88 BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
SUC90 BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 



37 



SUC80-BASE 
37 



NO. OF WORDS IN BUFFER. 
FORCE EVEN BOUNDARY. 
RELATIVE BASE ADDRESS OF 

LINE BUFFER FOR ZEROING. 
THIS ADDRESS MUST BE ODD. 
COUNT FOR BUFFER. 
XX 



HORD 

XX 

YY 



XX 



A 

BB 

8 

CC 

C 

DD 

O 

EE 

EE 

TT 
TT 

T 
TT 
T 

TT 
TT 

T 
TT 
T 
SP 

FF 
FF 

F 
FF 
F 

FF 
FF 

F 
FF 
F 
SP 



XX 



Y 
YY 
YY 

Z 
ZZ 
ZZ 



XRl 



XR2 



IS NOT USED. 

IS SAVED AND RESTORED. 
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89F48300 
89F48310 
89F48320 
89F48330 
89F48340 
89F48350 
89F48360 
89F48370 
89F48380 
89F48390 
89F48400 
89F48410 
89F48420 
89F48430 
89F48440 
89F48450 
89F48460 
89F48470 
89F4 8480 
89F48490 
89F48500 
89F48510 
89F48520 
89F48530 
89F48540 
89F48550 
89F48560 
89F48570 
89F48580 
89F48590 
89F4 8600 
89F48610 
89F48620 
89F48630 
89F4 8640 
89F48650 
89F48660 
89F48670 
89F48680 
89F48690 
89F48700 
89F48710 
89F48720 
89F48730 
8 9F4 8740 
89F48750 
89F48760 
89F48770 
89F48780 
89F48790 
89F4 8800 
89F48810 
89F48820 
89F48830 
89F48840 
89F48850 
89F48860 
89F48870 
89F48880 
89F48890 
89F4 8900 
89F48910 
89F48920 
89F48930 
89F48940 
89F48950 
* 89F48960 



*«*♦««***#**«**«************•********************** 89F4 8970 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
36 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 
PAGE 



089F-1 
36A 



n c o 






:f y 












1> 



4 \ 
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* IMMEDIATE ERROR LOG SUBROUTINE 
* 



* 

* THIS SUBROUTINE PRINTS THE IMMEDIATE ERROR LOG. * 

* IT PRINTS A HEADING IF IT HAS NOT BEEN PRINTED. * 

* 

* CALL - 
* 

* 6SI L3 SVOIO-BASE 



XRl AND XR2 ARE NOT USED. 



XR3 IS THE PSEUDO BASE REGISTER 



0C4B 
0C4C 
OC40 
0C4E 
0C4F 
0C50 
0C51 

OC53 
0C54 
0C56 
0C57 
0C59 
0C5A 
0C5A 
0C5B 
0C5C 
0C5E 
0C5F 



0000 

D8D9 

C013 

4820 

700A 

6810 

4700 060A 

FOOD 

4700 06DA 

0C45 

4700 06DA 

FOOD 



C007 

D0C9 

4700 06 DA 

OBCO 

4F80 0BE6 



LD 




SVC02 


SKP 




Z 


B 




SV020 


STX 





SVC02 



* 

* 3/14/69 * 

* * 

* * 

SVOIO DC *-* ENTRY 

STD SUC82 FILL IN ERROR CODE. 

TEST HEADING SWITCH 

SKIP NOT SET, WRITE HDNG. 

BRANCH TO CONTINUE. 

TURN SWITCH ON. 
BSI L3 MAOIO-BASE SPACE ONE LINE. 
DC /FOOD SPACE FUNCTION. 
BSI L3 MAOIO-BASE WRITE HEADING. 
DC MSG07-BASE MESSAGE. 
BSI L3 MAOIO-BASE SPACE ONE LINE. 
DC /FOOD SPACE FUNCTION. 
SV020 EOU * 

LD SVC04 PUT WORD COUNT IN 

STO SUC80 LINE BUFFER. 

BSI L3 MAOIO-BASE WRITE IMMEDIATE 

DC SUCBO-BASE ERROR LOG. 

B 13 SVOIO-BASE RETURN. 

* « 



* CONSTANTS AND WORK AREAS 



0C61 0001 


SVC02 BSS 


1 


0C62 0025 


SVC04 DC 


37 



HEADING SWITCH. 
WORD COUNT. 



* 



* SET WORST CASE PATTERN 

* * 

* * 



* THIS SUBROUTINE FILLS THE TEST AREA WITH THE 

* WORST CASE PATTERN. 

* 

« CALL - 

« 

BSI L3 TCOIO-BASE 



XRl SHOULD BE UNSPECIFIED. 

XR2 IS NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 



89F48980 
89F48990 
89F49000 
89F49010 
89F49020 
89F49030 
89F49040 
89F49050 
89F49060 
89F49070 
89F49080 
89F49090 
89F49100 
89F49110 
89F49120 
89F49130 
89F49140 
89F49150 
89F49160 
89F49170 
89F49180 
89F49190 
89F49200 
89F49210 
89F49220 
89F49230 
89F49240 
89F49250 

89F49260 
89F49270 
89F49280 
89F49290 
89F49300 
89F49310 
89F49320 
89F49330 
89F49340 
89F49350 
89F49360 
89F49370 
89F49380 
89F49390 
89F49400 
89F49410 
89F49420 
89F49430 

89F49440 
89F49450 
89F49460 
89F49470 
89F49480 
89F49490 
89F49500 
89F49510 
89F49520 
89F49530 
89F49540 
89F49550 
89F49560 
89F49570 
89F49580 
89F49590 
89F49600 
89F49610 

89F49620 
89F49630 
89F49640 
89F49650 
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* AT EXIT THE END ADDRESS IS IN THE 

* ACCUMULATOR. 



5/23/69 



* 

* # 

* * 

ENTRY. 



SAVE END ADDRESS. 

SET WORST CASE PATTERN 
OF 64 WORDS OF ONES AND 
64 WORDS OF ZEROS. 



0C6 3 





0000 


TCOlO 


DC 




*-* 


0C64 





4700 092C 




BSI 


L3 


SAIOO- 


0C66 





D016 




STO 




TCC02 


0C67 







TC020 


EQU 




* 


0C67 





6916 




STX 


1 


TCC04 


0C68 





C015 




LD ■ 




TCC04 


0C69 





1806 




SRA 




SIX 


0C6A 





D013 




STO 




TCC04 


0C6B 





1802 




SRA 




TWO 


0C6C 





FOU 




EOR 




TCC04 


0C6D 





4804 




SKP 




E 


0C6E 





7002 




B 




TC030 


0C6F 





COOF 




LD 




TCC06 


0C70 





7001 




B 




TC040 


0C71 







TC030 


EOU 




* 


0C71 





1810 




SRA 




16 


0C72 







TC040 


EOU 




* 


0C72 





DlOO 




STO 


1 


ZERO 


OC73 





690A 




STX 


1 


TCC04 


0C74 





C009 




LD 




TCC04 


OC75 





F007 




EOR 




TCC02 


0C76 





4818 




SKP 




+— 


0C77 





7002 




B 




TC050 


0C78 





7101 




MOX 


1 


ONE 


0C79 





70ED 




B 




TC020 


0C7A 







TC050 


EOU 




* 


0C7A 





C002 




LD 




TCC02 


0C7B 





4F80 OBFE 




B 


13 


TCOlO- 



STORE /FFFF IN THIS WORD. 

STORE /OOOO IN THIS WORD. 

PUT PATTERN IN STORAGE. 
TEST FOR END ADDRESS. 



SKIP NOT DONE. 
BRANCH IF DONE. 
INCREMENT ADDRESS 
REGISTER AND LOOP. 

END ADDRESS IN ACCUMULATOR 



* * 

* CONSTANTS AND WORK AREAS * 

* * 



0C7D 0001 

0C7e 0001 

0C7F FFFF 



END ADDRESS. 

WORK AREA. 

ONES FOR WORST CASE PATRN. 



TCC02 BSS 1 

TCC04 BSS 1 

TCC06 DC /FFFF 
* 

* * 

* MESSAGES * 

* * 



0C80 





OOOA 


MSGOl DC 


10 


HEADING. 


0C81 





OAOA 


DC 


/OAOA 


00 


0C82 





OAOA 


DC 


/OAOA 


00 


0C83 





0000 


DC 


/OOOO 




0C84 





0A08 


DC 


/0A08 


08 


0C85 





0936 


DC 


/0936 


9F 


0C86 





0033 


DC 


/O033 


C 


0C87 





2629 


DC 


/2629 


OR 


0C88 





3500 


DC 


/3500 


E 


0C89 





1335 


DC 


/1335 


TE 


0C8A 





1213 


DC 


/1213 


ST 


0C88 





0007 


MSG02 DC 


7 


MESSAGE 


0C8C 





OAOA 


DC 


/OAOA 


00 


0C8D 





OAOl 


DC 


/OAOl 


01 


0C8E 





0000 


DC 


/OOOO 




0C8F 





1235 


DC 


/1235 


SE 


0C90 





1300 


DC 


/1300 


T 



89F49660 

89F49670 

89F49680 

89F49690 

89F49700 

89F49710 

89F49720 

89F49730 

89F49740 

89F49750 

89F49760 

89F49770 

89F49780 

89F49790 

89F49800 

89F49810 

89F49820 

89F49830 

89F49840 

89F49850 

89F49860 

89F49870 

89F49880 

89F49890 

89F49900 

89F49910 

89F49920 

89F49930 

89F49940 

89F49950 

89F49960 

89F49970 

89F49980 

89F49990 

89F50000 

89F50010 

89F50020 

89F50030 

89F50040 

89F50050 

89F50060 

89F50070 

89F50080 

89F50C90 

89F50100 

89F50nO 

89F50120 

89F50130 

89F50140 

89F50150 

89F50160 

89F50170 

89F50180 

89F50190 

89F50200 

89F50210 

89F50220 

89F50230 

89F50240 

89F50250 

89F50260 

89F50270 

89F50280 

89F50290 

89F50300 

89F50310 

89F50320 

89F50330 
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DATE 
EC NO, 



14N0V69 
431319 
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PROG ID 
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089F-1 
37A 
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0C91 3-^35 


DC 


/3435 


DE 


0C92 1200 


DC 


/1200 


S 


0C93 0006 


MSG03 DC 


6 


MESSAGE 


0C94 OAOA 


DC 


/OAOA 


00 


0C95 OlOA 


DC 


/OlOA 


10 


0C96 0000 


DC 


/OOOO 




0C97 3435 


DC 


/3435 


DE 


0C98 1200 


DC 


/1200 


S 


0C99 0800 


DC 


/0800 


a 


0C9A 0007 


MSG04 DC 


7 


MESSAGE. 


0C9B OAOA 


DC 


/OAOA 


00 


0C9C 0102 


DC 


/0102 


12 


0C9D 0000 


DC 


/OOOO 




0C9E 2625 


DC 


/2625 


ON 


0C9F 3500 


DC 


/3500 


e 


OCAO 3212 


DC 


/3212 


BS 


OCAl 2400 


DC 


/2400 


M 


0CA2 0007 


MSG06 DC 


7 


MESSAGE. 


0CA3 OAOA 


DC 


/OAOA 


00 


0CA4 0101 


DC 


/OlOl 


11 


0CA5 0000 


DC 


/OOOO 




0CA6 3435 


DC 


/3435 


DE 


0CA.7 1200 


DC 


/1200 


S 


OCAS 0420 


DC 


/0420 


4- 


0CA9 073B 


DC 


/073B 


7. 


OCAA 0025 


MSG07 DC 


37 


MESSAGE 


OCAB 3326 


DC 


/3326 


CO 


OCAC 3435 


DC 


/3435 


DE 


OCAD 0000 


DC 


/OOOO 




OCAE 0000 


DC 


/OOOO 




OCAF 0000 


DC 


/OOOO 




OCBO 0000 


DC 


/OOOO 




OCBl 3134 


DC 


/3134 


AD 


0CB2 3429 


DC 


/3429 


OR 


0CB3 3512 


DC 


/3512 


ES 


0CB4 1200 


DC 


/1 200 


S 


0CB5 0000 


DC 


/OOOO 




0CB6 0000 


DC 


/OOOO 




0CB7 0000 


DC 


/OOOO 




0CB8 0000 


DC 


/OOOO 




0CB9 0000 


DC 


/OOOO 




OCBA 0000 


DC 


/OOOO 




OCBB 0013 


DC 


/0013 


T 


OCBC 3512 


DC 


/3512 


ES 


OCBD 1300 


DC 


/1 300 


T 


OCBE 2731 


DC 


/2731 


PA 


OCBF 1313 


DC . 


/1313 


TT 


OCCO 3529 


DC 


/3529 


ER 


OCCl 2500 


DC 


/25O0 


H 


0CC2 0000 


DC 


/OOOO 




0CC3 1227 


DC 


/1227 


SP 


0CC4 O 0000 


DC 


/OOOO 




0CC5 0000 


DC 


/OOOO 




0CC6 0000 


DC 


/OOOO 




0CC7 3631 


DC 


/3631 


FA 


OCeS 3923 


DC 


/3923 


IL 


0CC9 3B00 


DC 


/3B0O 


• 


OCCA 2731 


DC 


/2731 


PA 


OCCB 1313 


DC 


/1313 


TT 


OCCC 3529 


DC 


/3529 


ER 


OCCO 2500 


DC 


/2500 


N 


OCCE 0000 


DC 


/OOOO 




OCCF 1227 


DC 


/1227 


SP 


OCDO 0009 


MSG08 DC 


9 


MESSAGE 


OCDl 0106 


DC 


/0106 


16 


0CD2 0308 


DC 


/0308 


38 


0CD3 0000 


DC 


/OOOO 




0CD4 3631 


DC 


/3631 


FA 
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89F50340 

89F50350 

89F50360 

89F50370 

89F50380 

89F50390 

89F50400 

89F50410 

89F50420 

89F50430 

89F50440 

89F50450 

89F50460 

89F50470 

89F50480 

89F50490 

89F50500 

89F50510 

89F50520 

89F50530 

89F50540 

89F50550 

89F50560 

89F50570 

89F50580 

89F50590 

89F50600 

89F50610 

89F50620 

89F50630 

89F50640 

89F50650 

89F50660 

89F50670 

89F50680 

89F50690 

89F50700 

89F50710 

89F50720 

8 9F50730 

89F 50740 

89F50750 

89F50760 

89F50770 

89F50780 

89F50790 

89F50800 

89F50810 

89F50820 

89F50830 

89F50840 

89F50850 

89F50860 

89F50870 

89F50880 

89F50890 

89 F 50900 

89F50910 

89F50920 

89F50930 

89F50940 

89F50950 

89F50960 

89F50970 

89F50980 

8 9F50990 

89F51000 

89F51010 
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0CD5 2312 


0CD6 3500 


0CD7 3925 


0C08 1329 


0CD9 2713 


OCDA ( 


9 OOOA 


OCDB ( 


5 0106 


OCDC 1 


0307 


OCDO ( 


9 OOOO 


OCDE 


3631 


OCOF 1 


2312 


OCEO 


3500 


OCEl > 


3331 


0CE2 


2900 


0CE3 


3338 


0CE4 


223B 


0CE5 


0007 


0CE6 


OAOA 


0CE7 


0104 


0CE8 


O OOOO 


0CE9 


3435 


OCEA 


1200 


0CE6 


0A20 


OCEC 


033B 


OCED 


OOOE 


OCEE 


OAOl 


OCEF 


OAOl 


OCFO 


OOOO 


OCFl 


1335 


0CF2 


1213 


0CF3 


0027 


0CF4 


3113 


0CF5 


1335 


0CF6 


2925 


0CF7 


2034 


0CF8 


3512 


0CF9 


OOOA 


OCFA 


2001 


OCFB 


05 3B 


OCFC 


0011 


OCFD 


OOOO 


OCFE 


OOOO 


OCFF 


OOOO 


OOOO 


1213 


0001 


2629 


0D02 


3 BOO 


0003 


2729 


0D04 


2613 


0005 


3B00 


0D06 


3239 


0007 


1320 


0008 


1235 


0D09 


2512 


ODOA 


3500 


ODOB 


1216 


OOOC 


3B00 


OOOD 


0A3B 


ODOE 


0011 


ODOF 


OAOl 


ODIO 


0A02 


ODll 


OOOO 


0012 


3525 


0013 


1335 


0D14 


2900 


0D15 


1213 


0D16 


3129 


0017 


1300 


ODia 


3134 



DC 


/2312 


LS 




DC 


/3500 


E 




DC 


/3925 


IN 




DC 


/1329 


TR 




DC 


/2713 


PT 




MSG09 DC 


10 


MESSAGE. 




DC 


/0106 


16 




DC 


/0307 


37 




DC 


/OOOO 






DC 


/3631 


FA 




DC 


/2312 


LS 




DC 


/3500 


E 




DC 


/3331 


CA 




DC 


/2900 


R 




DC 


/3338 


CH 




DC 


/223B 


K. 




MSGIO DC 


7 


MESSAGE. 




DC 


/OAOA 


00 




DC 


/0104 


14 




DC 


/OOOO 






DC 


/3435 


DE 




DC 


/1200 


S 




DC 


/0A20 


0- 




DC 


/033B 


3. 




MSGll DC 


14 


MESSAGE. 




DC 


/OAOl 


01 




DC 


/OAOl 


01 




DC 


/OOOO 






DC 


/1 335 


TE 




DC 


/1213 


ST 




DC 


/0027 


P 




DC 


/3113 


AT 




DC 


/1335 


TE 




DC 


/2925 


RN 




DC 


/2034 


-D 




DC 


/3512 


ES 




DC 


/OOOA 







DC 


/2001 


-1 




DC 


/053B 


5. 




MSG12 DC 


17 


MESSAGE, LINE 


TWO 


DC 


/OOOO 






DC 


/OOOO 






DC 


/OOOO 






DC 


/1213 


ST 




DC 


/2629 


OR 




DC 


/3B00 


• 




DC 


/2729 


PR 




DC 


/2613 


OT 




DC 


/3B00 


• 




DC 


/3239 


BI 




DC 


/1 320 


T- 




DC 


/1235 


SE 




DC 


/2512 


NS 




DC 


/3500 


E 




DC 


/1216 


sw 




DC 


/3B00 


• 




DC 


/0A3B 


0. 




MSG13 DC 


17 


MESSAGE. 




DC 


/OAOl 


01 




DC 


/OA02 


02 




DC 


/OOOO 






DC 


/3525 


EN 




DC 


/1335 


TE 




DC 


/2900 


R 




DC 


/1213 


ST 




DC 


/3129 


AR 




DC 


/1 300 


T 




DC 


/3134 


AD 
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89F51020 

89F51030 

89F51040 

89F51050 

8 9F 5 1060 

89F51070 

89F51080 

89F51090 

89F51100 

89F51110 

89F51120 

89F51130 

89F51140 

89F51150 

89F51160 

89F51170 

89F51180 

89F51190 

89F51200 

89F51210 

89F51220 

89F51230 

89F51240 

89F51250 

89F51260 

89F51270 

89F51280 

89F51290 

89F51300 

89F51310 

89F51320 

89F51330 

89F51340 

89F51350 

89F51360 

89F51370 

89F51380 

89F51390 

89F51400 

89F51410 

89F51420 

89F51430 

89F51440 

89F51450 

89F51460 

89F51470 

89F51480 

89F51490 

89F51500 

89F51510 

89F51520 

89F51530 

89F51540 

89F51550 

89F51560 

89F51570 

89F51580 

89F51590 

a9F51600 

89F51610 

89F51620 

89F51630 

89F51640 

89F51650 

89F51660 

89F51670 

89F51680 

89F51690 



DATE 
EC NO. 
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431319A 
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431321 



PROG ID 
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089F-1 
38 
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EC NO. 



14N0V69 
431319 
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17APR70 
431321 



PROG ID 
PAGE 
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n o c o c 
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0D19 





3429 


ODIA 





3B20 


ODIB 





3435 


ODIC 





1200 


ODID 





0A20 


ODIE 





0105 


ODIF 





3800 


0D20 





0010 


0021 





OAOl 


0D22 





0A03 


0023 





0000 


0D24 





3525 


OD25 





1335 


0D26 





2900 


0027 





3525 


0D2B 





3400 


0D29 





3134 


00 2A 





3429 


0D2B 





3B20 


0D2C 





3435 


0D2D 





1200 


0D2e 





0A20 


0D2F 





0105 


0D30 





3600 


0031 





OOOC 


0D32 





OAOl 


0D33 





0A04 


0D34 





0000 


0035 





2935 


00 36 





1213 


0D37 





2629 


0D38 





3500 


0039 





3435 


0D3A 





1200 


003 B 





0A20 


0D3C 





0105 


0030 





3BO0 


00 3E 





0008 


0D3F 





OAOl 


0040 


G 


0105 


0D41 





0000 


0D42 





3435 


004 3 





1200 


0D44 





3529 


0D45 





2926 


0046 





29 3B 


004 7 





0007 


0D48 





0106 


0D49 





0309 


0D4A 





0000 


004 B 





3114 


004C 





1700 


0D4D 





3529 


0D4E 





29 3B 



MS614 



MSG15 



MSG16 



HSG17 



DC 


/3429 


DR 


DC 


/3B20 


• "* 


OC 


/3435 


DE 


DC 


/1200 


S 


DC 


/0A20 


0- 


OC 


/0105 


15 


OC 


/3BO0 


• 


DC 


16 


MESSAGE. 


DC 


/OAOl 


01 


OC 


/0A03 


03 


DC 


/OOOO 




OC 


/3525 


EN 


DC 


/1335 


TE 


DC 


/2900 


R 


DC 


/3525 


EN 


OC 


/3400 





DC 


/3134 


AD 


OC 


/3429 


DR 


DC 


/3B20 


• "* 


OC 


/3435 


oe 


DC 


/1200 


s 


DC 


/0A20 


0- 


DC 


/0105 


15 


DC 


/3B00 


• 


DC 


12 


MESSAGE. 


DC 


/OAOl 


01 


OC 


/0A04 


04 


OC 


/OOOO 




DC 


/2935 


RE 


DC 


/1213 


ST 


DC 


/2629 


OR 


DC 


/3500 


E 


DC 


/3435 


DE 


DC 


/1200 


S 


DC 


/0A20 


0- 


DC 


/0105 


15 


DC 


/3BO0 


• 


DC 


8 


MESSAGE. 


DC 


/OAOl 


01 


DC . 


/0105 


15 


DC 


/OOOO 




DC 


/3435 


DE 


DC. 


/1 200 


S 


DC 


/3529 


ER 


DC 


/2926 


RO 


OC 


/293B 


R. 


DC 


7 


MESSAGE 


DC 


/0106 


16 


DC 


/0309 


39 


DC 


/OOOO 




DC 


/3114 


AU 


OC 


/1700 


X 


DC 


/3529 


ER 


DC 


/293B 


R. 



* * 

* SUMMARY STORAGE AREA * 

* « 

THE SUMMARY STORAGE AREA HAS THE LOCATIONS 
RESERVED FOR ALL THE ERROR COUNTERS FOR THE 
PATTERN TESTS. 



ANY CHANGE IN THIS STORAGE AREA SHOULD BE 
REFLECTED IN PXK04 OR STRANGE THINGS WILL 
HAPPEN. 



89F51700 

89F51710 

89F51720 

89F51730 

8 9F 5 1740 

89F61750 

89F51760 

89F51770 

89F51780 

89F51790 

89F51800 

89F51810 

89F51820 

89F51830 

89F51840 

89F51850 

e9F51860 

89F51870 

89F51880 

89F51890 

89F51900 

89F51910 

89F51920 

89F51930 

89F51940 

89F51950 

89F51960 

89F51970 

89F51980 

89F51990 

89F52000 

89F52010 

89F52020 

89F52030 

89F52040 

89F52050 

89F52060 

89F5207O 

89F52080 

89F52090 

89F52100 

89F52110 

89F52120 

89F52130 

89F52140 

89F52150 

89F52160 

89F52170 

89F52180 

89F52190 

89F52200 

89F52210 

89F52220 

89F52230 

89F52240 

89F52250 

89F52260 

89F52270 

89F52280 

89F52290 

89F52300 

89F52310 

89F52320 

89F52330 

89F52340 

89F52350 

89F52360 

89F52370 









#*#**«*#»«#«♦«*****«»*««******«***««#**#*****«*#*#* 


89F52380 








♦ 










* 


89F52390 








* 






NUMBER OF WORDS 


OF STORAGE 


89F52400 


004 F 





0054 


PXK04 


DC 


84 


NEEDED FOR EACH 


TEST. 


89F52410 








# 






BASE ADDRESS 


OF 


SUMMARY 


89F52420 


0050 





OCEB 


PXK06 


DC 


PXK20-2- 


-BASE STORAGE TABLE 


! • 


89F52430 








* 






STORAGE AREA 


FOR 


, PATTERN 


89F52440 








* 






BIT FAILURE I 


STORAGE. 


89F52450 


0052 




0001 


PXK20 


BSS 


E 1 


DROP BIT 0. 






89F52460 


0D53 




0001 




BSS 


1 


PICK BIT 0. 






89F52470 


0054 




OOIE 




BSS 


30 


DROP, PICK REST 


OF BITS. 


89F52480 


0D72 




0001 




BSS 


1 


DROP STORAGE 


PROTECT BIT. 


89F52490 


0D73 




0001 




BSS 


1 


PICK STORAGE 


PROTECT BIT. 


89F52500 


0074 




0001 




BSS 


1 


DROP PARITY I 


JIT. 




89F52510 


0D75 




0001 




BSS 


1 


PICK PARITY BIT. 




89F52520 


0076 




0024 




BSS 


36 


BSM 2. 






89F52530 


0D9A 




0024 




BSS 


36 


BSM 3. 






89F52540 


ODBE 




0024 




BSS 


36 


BSM 4. 






89F52550 


00E2 




0024 




BSS 


36 


BSM 5. 






89F52560 


0E06 




0024 




BSS 


36 


BSM 6. 






89F52570 


0E2A 




0024 




BSS 


36 


BSM 7. 






89F52580 


0E4E 




0024 




BSS 


36 


BSM 8. 






89F52590 


0E72 







PXK30 


EOU 


lif 


AODR. LINE FAIL. 


STORAGE. 


89F52600 


0E72 




0008 




BSS 


8 


HI X. 






89F52610 


0E7A 




0008 




BSS 


8 


LO X. 






89F52620 


0E82 




0008 




BSS 


8 


HI Y. 






89F52630 


0E8A 




0010 




BSS 


16 


LO Y. 






89F52640 


0E9A 




0028 




BSS 


40 


BSM 2. 






89F52650 


0EC2 




0028 




BSS 


40 


BSM 3. 






89F52660 


OEEA 




0028 




BSS 


40 


BSM 4. 






89F52670 


0F12 




0028 




BSS 


40 


BSM 5. 






89F52680 


0F3A 




0028 




BSS 


40 
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IBM MAINTENANCE PROGRAM FOR THe 1800 SYSTEM • 
AUX OIAGNQSTtC LOADER (CAROi 

TABLE OF CONTEHTS 
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3.1 CLEARING AUXILIARY STORAGE 
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5.1 BOOTSTRAP-LOADER ROUTINE 
S.i.l FIRSr-CA80 ROUTINE 

5.1.2 SfcCONO-CASO ROUTINE 

5.1.3 CHECKSUM RCUTiNg 

5. 1.* TESHINariNG aOOISTSAP-LOADEJt HOvTlHi 

5.2 AUX DlAGKOSTiC LOADER ROUTf^E 

5.2.1 CHECKSUM ROUTINE 

5.2.2 CARO-<ieAC)ING ROUTINE 

5.2.3 ENTERING AUX PROGRAM 

6. APPENDIX (NONEJ 



1. PURPOSE 

THE PURPOSE OF THE AUX DIAGNOSTIC LOAQE.* IS TO LOAD ITSELF AND PROVIDE A 
PERMANEflT LOAOSNG PROGRAM FOR THE VARIOUS AUX PROGRAMS. 

2. PREREQUISITES 

THE AUX OIAGNOSriC LOACER MUST be LOADED 3Y ^EANS OF A 1442 CARD READ/PUNCH. 

WJTE 

IF THE 1442 OSES A CUSTOMER-ASSIGNED AREA CODE, A NEM FOUR- 
CARD OBJECT DECK MUST SE CRE&TEO. THE PROCEDURE FOR CREATING 
A fSEW 09JECT DECK fS P<?FSENTtD IN IHE OCCUHENTATION OF THE 
AUX PROG. GENERATOR UTitiTY PR0GR&r4. THE 

LOCATIONS IN THE LOAOe.* PRJG^AM THAT MUST BE ALTERED ARE 
SPECIFIED 8Y A STAfEFEHT AT THE BEGINNING OF THE PROGRAM'S 
LISTING. 
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USE PROCEDURE 
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••CAUTION** 
SHOULD THE READER BE ON A CHANNEL SHARED 
WITH ANOTHER DEVICE, NO AUX PRO«flAMS MAY 
BE LOAQED WHILE THE OTHUt OEVICe IS 
OPERATING. 

3.1 CLEARING AUXILIARY STORAGE 

CLEAR THE AUXILIARY STORAGE OF .THE 1801 OP 1802 PROCESSOR-COHTROLLER 
AS FOLLOWS. 

A. PRESS STOP AND RESET KEY OF THF 1800 P-C CONSOLE. 

B. SET ROTARY MODE SH OF 1800 P-C CONSOLE TO HUN. 

C. SET WRITE Srn PRO BITS TOGGLE S.<ITCH OF 1800 P-C CONSOLE TO YES. 
0. SET ALL REMAINING TOGGLE SWITCHES OF 1«0Q P-C CONSOLE TO THEIR 

OFF POSITIONS IDOWNJ. 

E. SET FORCE AUX SWITCH OF CE PANEL ON. 

P. PRESS CLEAR STG KEY OF 1800 P-C CONSOLE AHO MHILF HOLDING 

IT OEPRaSSCO, PRESS STAR.T KEY. AFTER THE CLEAR OPERATION* 

THE INSTRUCTION AND ADDRESS REGISTERS SH9UL0 COHTAIN OOFF IHEXI 

AND OOFF IHEX) RESPECTIVELY. THE AUX STORAGE LIGHT 

WILL BE ON 10 INDICATE THAT we ARE IN AUX STORAajE. 

■ 6. PRESS STOP KEY AND THEN RESET KEY OF THE laOO P-C COWSOLE. 

M. SET WRITE STG PRO BITS TOGGLE SWITCH OF 1300 P-C CONSOLE TO NO. 



3.2 



PROGRAM LOADING 



LOAD THE AUX DIAGNOSTIC LOADER AS FOLLOWS. 



A. 

S. 



C. 

0. 
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E. 

F. 



'"> 



DEPRESS NPRO KEY OF 1442 TO EJECT ANY CARDS LEFT IH« THE MACHINE. 
PLAGE THE FOUR CARDS DF THE AUX DIAGNOSTIC LOADER 
IN THE HOPPER OF THE 1442 THEN ABO A BLANK CARD. EKSURE THAT THE 
CARDS ARE PLACED FACE DOWN WITH THt NIKE EBGt FORWAiLO AND IN THE 
CORRECT ORDER AS SHOWN BELOW, 

THE FIRST TWO CARDS CONTAIN THE BQOrSr»AP-.ROUT INE AMD ARE HUT 
IDENTIFIED. THE THIRQ CARD CDf*TAIN AN II PUNCH IN COLUMN 80, 
AND THE FOURTH CARD COMTAIM A O PUNCH IM COLUMN 80. CARDS 
THREE AND FOUR CONTAIN THE ACTUAL AUX OIAGNOSTIC 
LOADER ROUTINE. 

PRESS 1442 START PUSHBUTTON. READY INDICATOR SHOULD LIGHT. 

LOAD CARDS IN INI TI AL-PKCGRAM-LOAD IIPL) MCOC BY DEPRESSING PR06 

LOAD PUSHBUTTON OF 1800 P-C CONSOLE. 

CHECK POINT 

THE AUX DIAGNOSTIC LOADER WILL STOP AT A WAIT IB REG 3Q001 
INSTRUCTION IF THE LOADER HAS BEEN STOBEO CORRECTLY. 
IF THE LOADER DOES WOT ENCOUPITER A WAIT INSTRUCTION, THE 
LOADER HAS NOT BEEN STORED PROPERLY. THY A«AIN. 

SET FORCE AUX SWITCH OF CE PANEL TO OFF. 
YOU MAY NOW LOAD THE OESIREO AUX PROGRAM a» 
FOLLOWING THE STEPS EELOM- 

1. GET THE CUSTOMER'S PROGRAM RUNNING, 

A, ASSURE THAT CUSTOMER'S PRSCRAM IS REAQY TO RESUME IT'S 

SEQUENTIAL EXECUTION. 
8. IF NO CUSTOMER PROGRAM IS IN CORC TI«N PLACE A ONE 

INSTRUCTION LOOP IN MAIN CORE ANO RUN ON II. A TOFF MAY 

BE USED. 

2. AN AUX PROGRAM MAY NOW BE LOADEO. REFER TO THE LOADING 
PROCEDURE FOR THE DESIRED PROGRAM AND PKOCEEO. 



1^ 
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NOTE 

IF IT SHOULD BECOME DESIRABLE UPON INITIAL INSTALLATI01 OF 
THE SYSTEM TO RON THE AUX PROGRAMS IM MAIN CORE THE FOLLOWING 
PROCEOUPE MUST BE FOLLOWEOi 

A. ASSUME CONTROL OF THE ENTIRE 1800 DATA ACQUISITION AND 

CONTROL SYSTEM. 
It. SET FORCE AUX SWITCH JON CE PANEL) TO OFF. 
C. LOAD THE AUX OIAGNOSTIC LOADER IN iPL MODE. 
0. ENTER A ONE-INSTRUCTION LOOP (TOFF) AT LOCATION 1000, AND 

HUN ON IT. 
e. SET THE INTERRUPT SWITCH (ON CE PANEL! TO THE INTERRUPT 

TO MAIN STOKAGt POSUION. 
F. LOAD THE DESIriEO AUX PROGRAM. 



PRINTOUTS 

THE AUX OIAGNOSTIC LOADER DOES NOT PRODUCE PRINTOUTS. 

INSTEAD, THE LOADER EMPLOYS SEVERAL LOOPING ROUTINES TO INDICATE OPERATING 
CONDITIONS TO THE OPERATO*?. IF ONE OF THESE LOOPING ROUIINtS IS ENCOUNTERED 
WHILE OPEflATING THE LOABER, THfc ADDRESS INDICATED BY THt ADDRESS REGISTER 
SHOULD BE USED IN COI»JIJHCT!OU VI TH rHE PROGRAM LISTING TO DETERMINE WHY THE 
LOOP MAS CNrfSieD. « PROCRAHfEO WAIT IS USED TO INDICATE THAT THE LOAOEJ* HAS 
866N PKOPEBLY LOADED INTO AUXILIARY SIORAGE AHO IS AVAiLASLE FOR USE. 

COMMENTS 

5.1 BOOTSTRAP LOADER ROUTINE 

ASSUMING THAT THE AUXILIARY STORAGE OF THE 1801 OR 1802 PROCESSOR- 
CONTROLLER IS CLEAR, THE CARDS OF THE AUX DIAGNOSTIC 
LOADER ARE IN THE HOPPER OF THE I't'tZ READY TO BE READ, AND 
THE FORCE AUX SWITCH OF THt CE PANEL IS SET 10 ON, DFPRESSIN6 THE 
PROG LOAD PUSHBUTTON OF THE IBOO P-C CONSOLE STARTS THE. BOOTSTRAP- 
LOAOER ROUririE, CAUSING THE FIRST CARD TO BE READ. PARAGI^APH S.l.l 
DESCRIBES THE ROUTINE PKOOUCEO BY READING THE FIRST CAR.O. 

S.Ul FIRST-CARD ROUTINE 

THE FIRST-CARO ROUTINE BEGINS BY SENSING THE DEVICE STATUS WORD (OSW) 
OF THE 1442 ANO DETERMINING WHETHER OR NOT THE 1442 IS READY. 
IF THE 1442 IS NOT READY, THE PROGRAM REMAINS IN A LOOPING ROUTINE 
UNTIL THE PROGRAM OPERATOS MANUALLY INIfcKVENFS. IF THE 1442 IS READY, 
THE PROGRAM ISSUES A COHMAMO TO READ THE SECOND CAKO. WHILE IH6 
SECOND CARD IS BEING READ, THE DSW OF THE 1442 IS CONTINUOUSLY 
SENSED TO DETERMINE IF THE 1442 IS READY. WHEN THE 1442 BECOMES 
READY, THE SECOND-CARD ROUTINE IS STARTED. 

5.1.2 SECOND-CARD ROUTINE 

THE SECCNO-CARO ROUTINE BEGINS BY ISSUING A COMMAND TO READ THE 1 ST 
OF TWO CARDS ITHIRO CARD) CONTAINING THE AUX DIAGNOSTIC 
^LOADER ROUTINE. AFTER THE CARD-READ COMMAND IS GEHERATEO, THE 
PROGRAM ENIERS AhO REMAINS IN A LOOPING ROUTINE UNTIL THE 1442 
BECOMES READY. WHEN THE 1442 IS READY, A SUM-CHECKING ROUTINE IS 
BtGVH* 

9.1.3 CHECK-SUM ROUTINE 

THF CHECK-SUM ROUTINE ADOS UP THE WORDS OF THE CARD READ IN 
PARAGRAPH 5.1.2. IF THE SU« IS NOT CORRECT, THE PROGRAM ENTERS ANO 
REMAINS IN A LOOPING ROUTINE UNTIL THE PROGRAM OPERATOR MANUALLY 
INTERVENES. IF NO ERROR IS DETECTED, THE FOURTH CARD IS READ, AND THE 
PROGRAM ENTERS AND REMAINS IN A LOOPING ROUTINE UNTIL THE 1442 
BECOMES READY. WHEN THE 1442 IS READY, THE CHECK-SUM ROUTINE IS 
REPEATED. IF A SUMMATION ERROR QOES NOT OCCUR, THE PROGRAM IS ALLOWED 
' TO PROCEED. 
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9*1.4 TERMINATING BOOTSTRAP LOADcR ROUTINE 

AFTER THE TWO CARDS CONTAINING THE AUX DIAGNOSTIC LOADER 

ROUTINE ICARDS 3 AND 4) ARE READ INTO AUXILIARY 

STORAGE, ANO THF PROGRAM STOPS AT A WAIT INSTRUCTION. 

THIS WAIT INSTRUCTION INDICATES THAT THE AUX DIAGNOSTIC 

LOADER IS PROPERLY ENTERED INTO AUXILIARY STORAGE ANO IS 

AVAILABLE FOR USE. THE PROGRAM OPERATOR HAY NOW RETURN CONTROL 

TO THE CUSTOMER'S MAIN-LINE PROGRAM BY SETTING THE FORCE AUX SWITCH 

TO Wf, 

S.2 AUX DIAGNOSTIC LOADER ROUTINE 

A PROGRAM MUST BE IN MAIN-CURE STORAGE. ANO MUST SE RUNHIIlG OR READY 
TO START BEFORE AN AUX PROGRAM CAN BE LOADED. «ITM THE AUX 
DIAGNOSTIC LOADER PRESENF IN AUXILIARY STORAGE AND SEVEN CARDS 
W AN AUX PROGRAM IN THE HOPPER OF THE 1442 READY TO BE LOADED, 
DEPRESSING THE CE LEVEL INTERRUPT PUSHSUTrON CAUSES THE LOADER 
ROUTINE TO START LOADING THE PROGRAM. AFTER LOADING, Tue A ANO 
REGISTERS, INDEX REGISTER NO. I, AKO STATUS AKE STORED ANO THE 
ROUTINE DETERMINeS HHeiHER THE 1442 IS REA6Y. IF THE 1442 IS NOT 
READY, THE A AND Q REGISTERS, INDEX REGISTER NO. i, AKO STATUS ARE 
RESTORED AND CONTROL IS REIUKNEO TO THE CUSTOMER. S HAIM-LlNE PKO- 
CRAM. IF THE 1442 IS READY, THE ROUTINE TURNS OM THE C£ MODE ANO 
READS A CARD. UPON READING AN AUX PROGRAn CARD, THE A ANO 
REGISTERS, INDEX REGISTEU NO. 1, ANO STATUS AR& RESTORED, 
AMD CONTROL IS RETURNED TO THE CUSTOMER'S MAIN-LINE PROGRAM. 
THE INTERRUPT FROM THE 1442 RETURNS CONTROL TO THE AUX DIAGNOSTIC 
ANO THE REMAINING CARDS OF THE, AUX PROGRAM ARE LOADED IN ASUVE 
KANNER. 

S.2.t CHECK-SUM ROUTINE 

W«M THE 1442 INTERRUPT IS SERVICED, THE A AND REGISTERS, INCeX 

REGISTER NO. I, ANO STATUS ARE STORED, ANO THE CHECK-SUM ROUTINE IS 

BEGUN. IF THE SUM IS NOT CORRECT, THE CARD-READ COWTROL 

IS INITIALIZED, THE CE MODE IS TURNED OFF, THE A ANO Q 

REGISTERS. INDEX REGISTER NO. I, AND STATUS AKC RESTORED, ANU CONTHOL 

IS RETURNED TO CUSTOMER'S MAIN-LINC UROGRAM. A CARD-READING RQUIINE 

IS STARTED IF THERE IS NO CHECK-SUM ERROR. 

5.2.2 CARD-READING ROUTINE 

IP THERE IS NO CHECK-SUM ERROR, THE ROUTINE DETERMINES WHETHER THE 
LAST CARD HAS BEEN READ. IF NOT, THE NEXT AUX 
PROCRAH CARD IS READ ANO CHECKED IN THE SAME MAltfJEft AS THE FIRST. 
THIS CARD-READING ROUTIWE CONTINUES UNTIL ALL SEVEN CARDS OF THE 
AUX PROGRAM HAVE BEEN READ. THEN, THE ROUTINE MODIFIES AN EXIT 
VECTOR TO ALLOl* ENTRY INIQ THE OIACNOSTIC PROGRAM, INITIALIZES THE 
CARD-READ CONTROL, TURNS OFF THE CE MODE, AND BRANCHES TO THE 
AUX PROGRAM. 

5.2.3 ENTERING AUX PROGRAM 

ENTRY-INTO THE AUX PROGRAM IS ACHIEVED BY RESTORING THE EXIT 

VECTOR IPARAGRAPH 5.2.21 OF THE LOADER ROUTINE AWO ESIABLISHIMG A 

NEW ENTRY POINT (LABELED RFTUR) INTO THE AUX PROGRAM. 

KHFM THE DIAGNOSTIC PROGRAM'S TERMINATOR ROUTINE IS SELECTED, THE 

LOADER ROUTINE'S EXIT VECTOR TO THE AUX PROGRAMIS REPLACED 

BY A SENSE-OSW INSTRUCTION TO ALLOW ANOTHER PROGRAM TO BE 

LOADED. CONTROL IS THEN RETURNED TO THE CUSTOMER'S MAIN-LINE PROGRAM. 

APPENDIX I NONE) 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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JATE 
EC NO. 



0000 



1000 



0000 

0001 
0003 
000*. 
0005 
0007 
0009 
OOOA 
OQOA 
OOOB 
OOOC 
00 OD 



080B 

<^ZOh 0009 

U 0806 

0807 

'►CO'* OOOA 

ACOO 0057 

70FF 

0000 

0050 

1601 

0000 

1703 



00 OE 






0050 




0000 


0050 





0000 


0051 





1703 


0052 





1802 


0053 





1000 


005A 





0000 


0055 





1601 


0056 





0180 



0057 08FC 

0058 08F7 

0059 AC04 0058 



0058 





6126 


005C 





C0F7 


0050 





0004 


005E 





C0F3 


005F 





1802 


0060 





OOFl 



ASS 

OMG 



/OOO 



REA EOU /lOOO 1ST 1442 AREA CODE 

IF THI« PkOG IS TO BE USED FOR A MACHINE 
WITH A uIFF AREA CODE ALL THE LOCATIONS WHICH 
REFER TO THE LABEL AREA IN SYMBOL TABLE VUST 
BE CnANGEO BY HEX CORRECTION CARDS TO OBTAIN A 
MODIFIED AUX 8-8 OBJECT DECK. SEE AUX CE PROG 
GENERATOR wRITE-UP FOR PROCEDURE. (SPECIAL) 



AUX LOADER PROGRAM 



1ST CARD 

THIS CARD IS ENTERED IN IPL MODE 



XIO 
BSC 
XIO 

SELr XIO 

BSC 

BSC 
NOTRY MDX 

BSS 
RDINN OC 

DC 
DSWOO DC 

OC 

* 

* 2N0 CARD 

» THIS C 
» PROGRAM. T 

* THAT BOTH 

* THE PROPER 
* 

ORG 
BSS E 
OC 

OC 
DC 
OC 
DC 
DC 
CEOX OC 

« 
* 

FIRSO XIO 
SELFA XIO 
BSC 
* 
* 
CAM 



DSMOO 

NOTRY, E 

RDINN 

DSWOO 

SELF.E 

FIRSO 

NOTRY 



/0050 

/0601+AR 



/0703+AR 



SENSE READER 

BR NUT READY 

READ CARD 

SENSE REfcOER 

BR READER NOT READY 

BR TU SECOND BOOT CARD 

READER NOT READY LOOP 

AUX LOADER LUADER ADDR 
EA READ CARD lOCC 

t- SENSE READER lOCC 



OSWX 

CEOFX 

ROIX 



ARO READS THE ACTUAL AUX LOADER 
HE DATA ENTERED IS CHECKED TO ASSURE 
CARDS ARE ENTERED CORRECTLY AND IN 
ORDER. 

/050 





/0703+AREA 

/1802 



COUNTER AND 10 



/OOOOfAREA CE OFF lOCC 



/OOOO 
/0601+AREA 

/oieo 



INITIAL READ IN ADDRESS 



READ IN ADDR CONST 



LOX 

LD 

STO 

LO 

SRA 

STO 



:»«««]»«9E««4c««««»«««^«^««4i«^«v#<t««««j^«««« 



ROIX READ CARD 
DSWX SENSE READER 
SELFA, E BR READER NOT READY 

PERFORM DATA CHECK 

33 

ROIX 

CHECZ+l 

CEOFX 

2 

CEOFX 



PART NO. 
PAGE 



BAlOOOOO 
8A100010 
8A100020 
8A100030 
BAIOOOAO 
8A100050 
8A100060 
SAIOOOTO 
8A1U0080 
8A100090 
8A1U0100 
8A100110 
8A1U0120 
8A100130 
8A10014D 
8A1O0150 
8A1U0160 
8A1001T0 
8A1U0180 
8A100190 
8A100200 
8A100Z10 
8A100220 
8A100230 
SAIOOZAO 
8A100250 
8A100260 
8A10U270 
8A100280 
8A100290 
8A100300 
8A10U310 
8A1UO320 
8A100330 
SAIOOBAO 
8A100350 
8A100360 
8A100370 
8A1U03B0 
8A100390 
6A10UA00 
SAIOOAIO 
8A1CQ',20 
8A100A30 
8A 100440 
8A100450 
8A100460 
8A100470 
8A1U0480 
8A100490 
8A1U0S00 
8A1O0510 
8A1U0520 
8A100530 
8A100540 
8A100550 
8A1U0560 
8A100570 
b.nu05B0 
8Aiu0590 
8A100600 
8A100610 
8A100620 
8A100630 
8AIU0640 
8A100650 
8A1U0660 
8A1U0670 



2196419 
1 



28FEB66 
415120 



010CT67 
411875 



r 




t 




a 




d 




4 




a 




f 




€ 




a 




i 




« 


- 


a 




c 


- 


c 


- 


9 


- 


« 


- 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
AUX DIAGNOSTIC LOADER 



I I 

I 
I 



PROG ID 08A1-0 
PAGE 1 



0061 





8500 


0000 


CHECZ 


A 


LI 





0063 





71FF 






MOX 


1 


-1 


0064 





/OFC 






MDX 




CHECZ 


0065 





4820 






BSC 




Z 


0066 





70FF 




A 


MOX 




A 


0067 





741B 


0054 




MOX 


L 


RD1X,27 


0069 





C0E8 






LD 




CcOFX 


006A 





FOEB 






EOR 




CEOX 


0068 





4C20 


006 F 




BSC 


L 


KK.Z 


006D 





3000 




FINIS 


WAIT 






006E 





70Ffc 




• 
« 


MDX 




FINIS 
READ TH 


006F 





08E4 




KK 


XIO 




ROIX 


0070 





080F 




OR 


XIO 




OSWX 


0071 





1004 






SLA 




4 


0072 





4C10 


0070 




BSC 


L 


OR,- 


0074 





70E6 






MOX 




CAM 



0075 
OOO" 



7015 



OOOB OOFA 
OOOC 0800 



0000 2000 
OOOE 6500 0000 

0010 C803 

0011 4CC0 OOOA 



SKIP CARD IN CORE OK 
FAILED TO LOAD AUX LOADER 



BR READ MORE CARDS 
AUX LOADER IN CORE OK 



READ THE SECOND AUX LOADER CARD 
READ CARD 
SENSE READER 

BR NUT OP COMPLETE 

« 

• THE ACTUAL AUX LOADER PROGRAM 

■» 

ORG 
DSHD MDX X SECON-FIR-l 



STORE STATUS 
SAVE A AND 
SAVE INDEX REG 1 



OR BR TO AUX 

SEN READER 

SRA 2 OR MDX SECON PMOl 

8R READEP NOT READY 

THIS INST USED AS AN 

• ADDR FOR INTERRUPT 

* RETURN »HEN AUX IS 
» IN MAIN LINE. 









• 
* 
START 




PROGRAM 


0001 





280B 


STS 


OUT 


0002 





D811 




STO 


AO 


0003 





690B 


* 


STX 


1 SAVEl+1 


0004 





0813 


* 


XIO 


ceoN 


0005 





080C 




XIO 


OSWOQ-1 


0006 





1802 


FIR 


SRA 


2 


0007 





4C04 0034 




BSC 


L NICE-l,E 


0009 





C0F6 




LO 


DSWO 


OOOA 





1000 


KEEP 

« 
« 


NOP 





OK 



STO 
XIO 



FIR 

RDIN 



READ CARD 



PROl 

» EXIT rO MA:s^INt PROGRAM 

* 

OUT LOS 

SAVEl LDX LI 

LDD AQ 

BOSC I /A 



S-* OUT OF CE INT TO MAINL 





0013 1703 


OSWOC 


DC 




0014 0000 




BSS 




0014 0000 


AO 


OC 




0015 0000 




DC 




0016 1802 


CEOFF 


DC 




0017 1000 




OC 




0018 0036 


CEON 


OC 




0019 1001 




DC 




OOIA 0036 


ROIN 


i)C 


DATE 


28FEB66 010CT67 






EC NO. 


415120 41187S 







* THE FOLLOWING WORD MJ T EE AT AN OUO LOC 
/0703+AREA .fcNSfc READER lOCC 




/1 802 CJUNTER AND ID 
/0000+AREA .c OFF lOCC 
/0036 i^cAO IN AODR CONST 
/0001+AREA Cc ON lOCC 
/0036 INITIAL READ IN ADDRESS 
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8A100680 
8A100690 
8A100700 
8A100710 
8A100720 
BA100730 
8A100740 
8A100750 
8A1U0760 
8A100770 
8AIU0780 
8A100790 
8AIUO8O0 
8A1C0810 
8A100820 
8A100830 
8A100840 
8A100850 
eA100860 
8AI00870 
8A100880 
eA100890 
8A1U0900 
8A100910 
8A100920 
8A100930 
eAlU0940 
8A100950 
8A1U0960 
8A100970 
8A100980 
8A1009?0 
8A1U1000 
8A101010 
8A101020 
8A101030 
8A1U1040 
8A101050 
8A101060 
8A10I070 
8A101080 
8A101090 
8A101100 
SAlOlllO 
SAlilllZO 
8A101130 
8A1U1140 
8A101150 
8A101160 
8A101170 
8A1U1180 
8A101190 
8A101200 
8A10121Q 
8A101220 
8A1U1230 
8A1U1240 
8A101250 
8A101260 
8A101270 
8A101280 
8A101290 
8A1013U0 
8A101310 
8A101320 
8A101336 
84101340 
8Ai01350 



PROG ID 
PAGE 



« 

« 
f 

€ 
C 

c 
c 

€ 

c 
c 
c 
f 
c 
c 



08A1-0 
lA 



•i 
J 

J 
'i 
1 
I 
i 
I 

r 
I 

s 

<9 
9 

9 

9 
9 

9 
^ 
■) 

9 
(» 

9 
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DATE 
EC NO. 



OOIB 1601 



OOIC 
0010 
OOIE 
OOIF 
0020 
0021 
0022 
002<> 
0025 
0026 
0028 
002 A 
0028 



0020 
002E 
002F 
0030 
0031 
0032 
0033 
0034 
0035 
0036 



6126 

COFC 

D004 

C0F6 

1802 

D0F4 

8500 OOIA 

71FF 

70FC 

<.C20 002F 

7<tlB OOIA 

COEB 

<tC20 OOOC 



C0F2 
0006 
COFO 
DOE 5 
D004 
C0E5 
00E6 
08E1 
7007 
0036 



NO ERRORS IN ABOVE 



DC 

« 

SECON LDX 
LO 
STO 
LO 

GONE SRA 
STO 

CHECK A 

MOX 

MOX 

BSC 

MOX 

LO 

BSC 

* 

« 

LD 
STO 

INIZA LO 
STO 
STO 
LO 
STO 
XIO 

NICE MOX 
END 

ASSEMBLY 



/0601+AREA 

PERFORM DATA CHECK 
1 38 
ROIN 
CHECK* I 

ceoFF 

2 

CE0F«= 
LI RDIN 
1 -1 

CHECK 
L INIZA.Z 
L R0INi27 

CEOFF 
L OK, 2 



BR CARD IN WRONG 



BR READ MORE CARDS 



ALL CARDS LUAOEU AND CHECKED 

GONE 

NICE PLACE NOP 

GONE RESTORE LOADER 

CEOFF 

FIR • 

CEON • 

RDIN • 

CEOFF * 

OUT 

♦-1 



MDX OUT OR NO OP 
NOT USED 



Pk02 



PROl 



PM02 



28FEB66 
A15120 



010CT67 
411875 
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BA101360 
8A101370 
8A101380 
8A101390 
6A101400 
8A101410 
8A101420 
8A101430 
8A101440 
dA101450 
8A101460 
8A101470 
8A101480 
8A101490 
8A1U1500 
8A101510 
8A101520 
8A101530 
8A1C1540 
SA101550 
8A101560 
8A101570 
8A10158O 
BA101590 
8A101600 
8A101610 
8A101620 
8A101630 
8A101640 
8A101650 
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DATE 
EC NO. 



C R 


S S 


REFERENCE 




NAME 


VALUE 


REFERENCES 




A 


0066 


0066 




AO 


0014 


0002,0010 




AREA 


1000 


OOOB, 0000,0013, 0017, 0019, 0018, 0051 


.0053,0055 


CAM 


005B 


0074 




CEOFF 


0016 


OOIF, 0021, 002A, 0030, 0034 




CEOFX 


0052 


005E, 0060, 0069 




CEON 


0018 


0004,0032 




CEOX 


0056 


006A 




CHECK 


0022 


001E,002S 




CHECZ 


0061 


0050,0064 




OSMO 


0000 


0009 




DSWOO 


OOOC 


0000,0004 




OSHOO 


0013 


0005 




OSWX 


0050 


0058,0070 




FINIS 


006D 


006E 




FIR 


0006 


0000,0008,0031 




FIRSO 


0057 


OOOT 




GONE 


0020 


0020, 002F 




INIZA 


002F 


0026 




KEEP 


CODA 






KK 


006F 


006B 




NICc 


0035 


0007, 002E 




NOTRY 


0009 


0001,0009 




OK 


OOOC 


002B 




OUT 


0000 


0001,0035 




OR 


0070 


0072 




kOIN 


OOIA 


OOOC, 0010, 0022, 0028. 0033 




RDINN 


OOOA 


0003 




ROIX 


0054 


0057, 005C, 0067, 006F 




r.AVEl 


OOOE 


0003 




SEC OK 


OOIC 


0000 




iELF 


0004 


0005 




SELFA 


0058 


0059 




START 


0001 







END OF ASSEMBLY 
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PAGE 
lA 
lA 



2.1 DEVICE AREA CODE 

2.2 CARD INPUT 

2.3 PAPER TAPE INPUT 

3. USE PROCEDURES lA 

3.1 CARD INPUT LOADING PROCEDURE 

3.2 PAPER TAPE INPUT LOADING PROCEDURE 

3.3 PROGRAM OPERATING PROCEDURE 
3.* CE SERVICE STOP 

3.5 TERMINATING PROCEDURE 



4. PRINTOUTS 

5. COMMENTS . 



2A 
3 



5.1 MOVE ONE TRACK IN AND OUT 

5.2- • MOVE OUT ONE TRACK AT A TIME 

5.3 MOVE IN ONE TRACK AT A TIME 

5.4 MRITE-READ-COMPARE 

APPENDIX (NONE) 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FUR THE 1800 SYSTEM 
AUX 1810 EXERCISER 

1. PURPOSE 

THE PURPOSE OF THE AUX 1810 PROGRAM IS TO EXERCISE THE 1810 WITH SEEK, 
WRITE AND READ OPERATION. 

2. PREREQUISITES 

2.1 DEVICE AREA CODE 

IF THE DEVICE TO BE TESTED USES A CUSTOMER ASSIGNED AREA COUE, A NEW 
AUX PROGRAM DECK OR PAPER TAPE MUST BE CREATED. THE PROCEDURE IS 
PRESENTED IN THE DOCUMENTATION OF THE AUX PROGRAM GENERATOR UTILITY 
(PID 08AC - CARD VERSION, PID 08AD - PAPER TAPE VERSION) 
THE PROGRAM LOCATIONS THAT MUST BE ALTERED ARE SPECIFIED BY A 
STATEMENT AT THE BEGINNING OF THE PROGRAM LISTING. 
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2.2 



CARD INPUT 



CAUTION 



2.3 



DO NOT ATTEMPT TO LOAD THIS PROGRAM IF THE CARD 
READER SHARES A CHANNEL WITH ANOTHER DEVICE 
WHILE THAT DEVICE IS OPERATING. 

THE AUX DIAGNOSTIC LOADER (PID 08A1) MUST BE PRESENT IN AUX STORAGE 
BEFORE AN AUX PROGRAM DECK CAN BE LOADED. 

PAPER TAPE INPUT 

THE AUX DIAGNOSTIC LOADER (PAPER TAPE - PID 08A0) MUST BE PRESENT IN 
AUX STOftAGE BEFORE AN AUX PAPER TAPE PROGRAM CAN BE LOADED. 

3. USE PROCEDURE 

CAUTION 

00 NOT RUN THIS PROGRAM IF THE 1810 SHARES A 
CHANNEL WITH ANOTHER DEVICE WHILE THAT DEVICE IS 
OPERATING. 

BEFORE PROCEEDING, A PROGRAM MUST BE IN MAIN-CORE STORAGE RUNNING 
OR AT A WAIT INSTRUCTION READY TO START RUNNING. 

3.1 CARD INPUT LOADING PROCEDURE 

A. BE SURE THE 1442 IS AVAILABLE AND ALL CARDS ARE REMOVED. 
8. ON THE CE PANEL SET THE INTERRUPT SWITCH' TO AUX INTERRUPT 
AND ALL THE CE SWITCHES TO THEIR ON POSITION (UP). 

C. DEPRESS CE INTERRUPT TWO TIMES TO ASSURE THE 1442 IS IN CE MODE. 

D. PLACE THE SEVEN CARDS OF THE AUX 1810 EXERCISER PROGRAM IN 
THE HOPPER OF THE 1442 AND FOLLOW WITH A BLANK CARD. 

NOTE 

EACH PROGRAM CARD HAS A CHARACTER ENTERED INTO COLUMN 80. 
THIS CHARACTER DEFINES THE CARD'S POSITION IN THE DECK 
ACCORDING TO THE FOLLOWING SEQUENCE, X(FIRST), THEN 0, 1, 2, 
3, 4, AND 5. THE CARDS CANNOT BE READ UNLESS THEY ARE PLACED 
IN THE HOPPER IN THE CORRECT ORDER. 

DEPRESS THE 1442 START PUSHBUTTON. READY INDICATOR SHOULD LIGHT. 
SELECT THE DESIRED DEVICE AND ROUTINE FROM TABLE 1. 
DEPRESS CE LEVEL INTERRUPT PUSHBUTTON (ON CE PANEL) TO LOAD THE 
PROGRAM. (IF THE HOPPER OF THE 1442 DOES NOT GO EMPTY THE CHECK- 
SUM ROUTINE IN THE AUX DIAGNOSTIC LOADER MOST LIKELY REJECTED 
THE PROGRAM. CHECK THE CARDS FOR PROPER SEQUENCE AND RETURN TO 
STEP A AND TRY AGAIN). 
GO TO SECTION 3.3 



E. 
F. 
G. 



H. 



DATE 
EC NO. 



28FEB66 
415120 



017Ay66 
415120A 



02 DEC 68 
411961 



PROG ID 08A2-'' 
PAGE 1 



DATE 
EC NO. 
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3.2 PAPER TAPE INPUT LOADING PROCEDURE 



3.3 



ROUTINE 



B. 



E. 
F. 



BE SURE THAT THE 1054 TAPE READER IS AVAILABLE AND THAT THbRfc IS 

NO TAPE IN THE READER, 

ON THE CE PANEL SET THE INTERRUPT SWITCH TO AUX INTERRUPT AND ALL 

THE CE SWITCHES TO THEIR ON POSITION (UP). 

DEPRESS CE INTERRUPT PUSHBUTTON TWO TIMES TU ASSURE THAT THE 1054 

IS PLACED IN CE MODE. 

ric'^fJcl oIm^.J^^^*^"*'**'^^^'* °'' THE PROGRAM DIRECTLY ABOVE 
THE SENSE PINS IN THE 1054 READER. (THE CHECK-SUM ROUTINE OF THE 
AUX DIAGNOSTIC LOADER WILL REJECT THE PROGRAM IF THE AUX TAPE 
IS LOADED INCORRECTLY). 

SELECT THE DESIRED DEVICE AND ROUTINE FROM TABLE I. 
DEPRESS CE LEVEL INTERRUPT TO LOAD THE PROGRAM. TAPE ACTION 
SHOULD START AND CONTINUE UNTIL THE ENTIRE AUX PROGRAM HAS BEEN 
READ. WHEN THE READER STOPS, THE FIRST TAPE FEED HOLE CHARACTER 
FOLLOWING THE AUX PROGRAM DATA SHOULD BE LOCATED DIRECTLY ABOVE 
nm !l,nrcTn'^^L''J^^ ''°'* * CORRECTLY STORED PROGRAM. IF THE TAPE 
DID NOT STOP AT SAID LOCATION, RETURN TO STEP A TO RELOAD PROG. 

OPERATING PROCEDURE 

THE ROUTINE SELECTED WILL AUTOMATICALLY START AFTER THE PROGRAM 
HAS BEEN ENTERED INTO AUX STORAGE. SUBSEQUENT ROUTINES MAY BE 
SELECTED AT ANY TIME USING THE SWITCH SETTINGS LISTED IN TABLE 1. 

TABLE 1. CE PROGRAM SWITCH SETTINGS 

BIT SWITCHES 10 AND 11 WILL SELECT THE DEVICE BY THE FOLLOWING - 

THIS IS NEEDED ONLY ON 1ST PASS 
- <:nu iBio 
11 

FUNCTION 



PROGRAM 
TERMINATOR 



00 OR 01 
10 



1ST 1810 
2ND 1810 
3RD 1810 



MOVE 1 TRK 
IN AND OUT 

MOVE OUT 



MOVE IN 



WRITE-READ 
COMPARE-INOi 



WRITE-READ 
COMPARE-NO 
INDICATION 

CE SERVICE 
STOP 



BIT SWITCHES 

9 10 11 12 13 14 15 







( 
CATE 




1 
1 







THIS ROUTINE MOVES ONE TRACK OUT AND 
THEN ONE TRACK IN. 

THIS ROUTINE MOVES THE HEAD TO THE CENTER 
AND THEN ONE TRACK AT A TIME TO THE EDGE. 

1 THIS ROUTINE MOVES ONE TRACK AT A TIME 

UNTIL IT REACHES THE CENTER AND THEN OUT. 

1 1 THIS ROUTINE WRITES A RECORD AND THEN READS 
IT. AFTER THAT IT IS COMPARED AND IF OK 
GOES TO THE CENTER AND BACK. 

1 1 THIS ROUTINE WRITES A RECORD AND THEN READS 

IT. THIS IS REPEATED WITHOUT GOING TO THE 
CENTER AND BACK AFTER COMPARING. 

1 1 1 THIS SWITCH SETTING CAUSES THE PROGRAM 

TO STOP BUT DOES NOT TERMINATE THE PROGRAM. 
IT IS RECOMMENDED TO USE THIS SETTING 
WHEN ADJUSTING THIS DEVICE. TO START THE 
ROUTINE, SELECT THE CE PROGRAM SWITCH 
SETTINGS AND DEPRESS CE INTERRUPT BUTTON. 



1 1 THIS SWITCH SETTING INITIATES A ROUTINE 
THAT TERMINATES THIS PROGRAM. (ALL 
AUX PROGRAMS USE THE SAME PROGRAM- 
TERMINATOR SETTING.) 

CAUTION 

FOLLOW THE TERMINATING PROCEDURE 
IN SECTION 3.5 



3.4 CE SERVICE STOP 

r';!ncc^TiI'^';I SETTING WILL NOT TERMINATE THE PROGRAM BUT IT WILL 
CAUSE THE DEVICE TO STOP AND STAY IN CE MODE. IT IS RECDMMFNHFn Tfi 
USE THIS SETTING WHEN ADJUSTING THIS DEVICE. TO STAR^ THE ROUTINE 
SELECT THE CE PROGRAM SWITCH SETTINGS AND DEPRESSCE INtIrRUPT. 



3.5 TERMINATING PRICEDURE 



A. SET THE CE PROGRAM SWITCHES TO 00001111 -CE SERVICE STOP 
(THE ONLY REASON FOR USING THIS SETTING IS TO ST(ip ANY DEVICE 
ACTION WHICH MAY CAUSE AN INTERRUPT). 

B. SET THE CE PROGRAM SWITCHES TO 11111111 -TERMINATOR SFTTINr 
nMr.°''?^'c'J"' " INTERRUPT LEVEL PUsiBulTON OnJe AND ONLy' 
ONCE. (A SECOND DEPRESSION OF THE CE INT. PUSHBUTTON WILL 
RESULT IN THE AUX DIAGNOSTIC LOADER TRYING TO LOAD A NEW 
PROGRAM IF THE READER IS READY). 

NOTE 

TO OFFSET THE POSSIBILITY THAT THE INPUT DEVICE MIGHT BE 
?u^^cr?PJ,'°^."^^ ^"^ "^"T TI"^ THE 1800 SYSTEM NEEDS SERVICING 

Js^Nc["u^s^;];:''o^ ErcH^^^s^R^y^^E^^^L^ t'^''' ^'^^^ *^^ "-^^ '^^ '^' 

A. CARD INPUT 

i^^cJrfcuoLi'*?^ "'^'^'^^^ "^^^O EXERCISE PROGRAM (PID 08AA) 
AFTER ASSURING THE PROGRAM IS BY PUNCHING CARDS, CE 
SWITCH SETTING 00000001, SET IN THE FAREWELL OPTION, 
xLc^JTCH SETTING 00000000 AND LEAVE THE SWITCHES AT 
rnJr.ilJ^'^'^' ^^ ENSURE THE GREATEST PROTECTION TO THE 
CUSTOMER. DEPRESS CE INTERRUPT. 

B. TAPE INPUT 

L(JAD THE AUX 1054/55 EXERCISE PROGRAM (PID 08A8). 
AFTER ASSURING THE PROGRAM IS IN BY PUNCHING TAPE, CE 
SWITCH SETTINGS 00000001, SET IN THE FAREWELL OPTION, 
CE SWITCH SETTING 00000000 AND LEAVE THE SWITCHFS AT tuiq 
SETTING TO ENSURE THE GREATEST PROTECtFoN T(^ THE 
CUSTUMER. DEPRESS CE INTERRUPT. 



4. PRINTOUTS 



RnurfL'' THE HEAD WILL MOVE TO THE CENTER AND BACK BEFORE rEPE^TI^GtSe 
ROUTINE. IF THE OPERATION WAS INCORRECT NO HEAD MOVEMENT WRL BE GIVEn! 



DATE 
EC NO. 



2SFEB66 
415120 



017AY66 
415120A 



02DEC68 
411961 
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017AY66 
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020EC68 
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AUX laiO EXERCISER 

5. COMMENTS 

A PROGRAM MUST BE IN MAIN-CORE STORAGE AND MUST BE RUNNING OR READY TO START 
BEFORE THIS PROGRAM CAN BE LOADED. THE AUX LOADER MUST BE PRESENT IN 
AUXILIARY STORAGE. THE PROGRAM WILL START AUTOMATICALLY WITH THE ROUTINE 
SETTING IN THE C E PROGRAM SWITCHES. 

5.1 MOVE 1 TRACK OUT AND IN 

THIS ROUTINE WILL SEEK HOME AND THEN MOVE ONE TRACK TOWARD THE CENTER 
AND THEN MOVES ONE TRACK TOWARD THE EDGE. THIS IS CONTINUED UNTIL 
ANOTHER ROUTINE IS SELECTED OR UNTIL A CE SERVICE STOP IS SENSED. 

5.2 HOVE OUT ONE TRACK AT A TIME 

THIS ROUTINE WILL SEEK HOME AND THEN AN I/O COMMAND WILL BE GIVEN TO 
MOVE 202 TRACKS TOWARD THE CENTER. THEN THE HEAD MOVES TOWARD THE 
EDGE ONE TRACK AT A TIME FOR 202 MOVES. AFTER THAT THE ROUTINE WILL 
BE REPEATED UNTIL A NEW ROUTINE IS SELECTED OR A C E SERVICE STOP IS 
SENSED. 

5.3 MOVE IN ONE TRACK AT A TIME 

THIS ROUTINE WILL SEEK HOME AND THEN MOVE TOWARD THE CENTER. THIS 
WILL CONTINUE FUR 202 MOVES AND THEN AN I/O COMMAND WILL BE GIVEN TO 
MOVE 202 TRACKS TOWARD THE EDGE. THIS WILL BE REPEATED UNTIL A NEW 
ROUTINE IS SELECTED OR A CE SERVICE STOP IS SENSED. 

5.4 WRITE-READ-COMPARE 

THIS ROUTINE STARTS BY SEEKING HOME. ONCE IT IS THERE A WRITE COMMAND 
IS GIVEN AND THEN THE SAME RECORD IS READ. AFTER THAT IT IS COMPARED 
WORD FOR WORD. IF IT COMPARES UNEQUAL IT WILL WRITE AND READ AGAIN. 
IF ALL THE RECORD READ IS THE SAME AS THAT STORED IN THE PROGRAM THE 
HEAD MOVES TO THE CENTER AND BACK TO INDICATE A CORRECT WRITE-READ- 
COMPARE. IF BIT 12 IS ON THE HEAD WILL NOT GO TO THE CENTER AND 
BACK WHEN A CORRECT OPERATION IS PREFORMED BUT WILL CONTINUE WRITINGt 
READING AND CHECKING. THE DATA IS WRITTEN ON TRACK ZERO AND IS PART 
OF THE PROGRAM (SEE LISTING). THIS WILL CONTINUE UNTIL A NEW ROUTINE 
IS SELECTED OR A CE SERVICE STOP IS SENSED. 

6. APPENDIX (NONE) 

LAST PAGE 
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003* 



ABS 

URG /36 

IF THIS PROG IS TO BE USED FOR A MACHINE 
WITH A DIFFERENT AREA CODEf THE LOCATION WHICH 
REFER TO THE LABEL AREA IN SYMBOL TABLE MUST 
BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 
MODIFIED AUX 8-8 OBJECT DECK. SEE AUX CE PROG 
GENERATOR WRITE-UP FOR PROCEDURE. 



CE BIT SW SETTINGS 



OOXXOOOO 
OOXXOOOl 
OOXXOOIO 
OOXXOOU 
OOXXlOll 
00001111 
Ullllll 



MOVE 1 TRK OUT AND IN 
OUT 1 TRK AT A TIME 
IN 1 TRK AT A TIME 
WR-RD-CK INDICATE 
WR-RD-CK-NO INDICATE 
CE SERVICE STOP 
TERMINATE PROGRAM 



0036 
0037 
003« 
0039 
003A 
003C 



1000 
1000 
1000 
1000 

6500 7007 
6D00 0035 



003E 4C00 00D9 



0040 082D 

0041 082E 

0042 0827 



« 

* 

* 
* 
* 

***** *******«********************< *^=******«***^***<c 

* 
* 

* 1810 DISC DRIVE 

* *************** 
* 

* THIS PROG CAN BE LOADED FROM CARDS OK PAPER TAPE 
« 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 

* REFER TO THE PROGRAM DESCRIPTION WRITE-UP. 
*************************************************** 

* 

* AUX PROG ENTRY POINTS 

* **«*«**«*******««**** 

* 

* 1ST PASS ENTRY 
« 

* 

* THE NEXT EIGHT WORDS WILL NOT APPEAR IN CORE WHEN 

* * USING THE AUX PAPER TAPE DIAGNOSTIC LOADER 



NOP 
NOP 
NOP 
NOP 
LDX 
STX 

BSC 



X- SELECT DISC DRIVE- 00 1ST DRIVE 

01 1ST DRIVE 

10 2N0 DRIVE 

11 3RD DRIVE 

ALL OTHER SETTINGS ARE VOID 



LI NNNN 
LI /35 

L SETUP 



RESTORE LOCATION NICE 
* IN AUX LOADER 



************************ *******************vi;.**^;{,«3; 

♦ 

ALL BUT 1ST PASS ENTRY POINT 

V****************l|<*«******** 



DATE 
EC NO. 



28PEB66 
415120 



01MAY66 
415120* 



* 

* 

» 

RETUR XIO 
XIU 
XIO 



01JUL66 
415178 



CEON 

DSW 

SENBI 



010CT67 
41187 5 



SET DEVICE IN CE MODE 

SENSE DSW 

SENSE CE PROG SW TO ACCUM 



02DEC68 
411961 



8A200020 

8A200030 

8A200040 

8A200050 

8A200060 

8A200070 

8A200080 

8A200090 

8A200100 

8A200110 

8A200120 

8A200130 

8A200140 

8A200160 

8A200160 

8A200170 

8A200180 

8A200190 

8A200200 

8A200210 

8A200220 

8A200230 

8A200240 

8A200260 

8A2QO260 

8A20027a 

8A200280 

8A200290 

8A200300 

8A200310 

8A200320 

8A200330 

8A200340 

8A200350 

8A200360 

8A20O370 

8A200380 

8A200390 

8A200400 

8A200410 

8A200420 

8A200430 

8A200440 

8A200450 

8A200460 

8A200470 

BA200460 

8A200490 

8A20050O 

8A200510 

8A200520 

8A200530 

8A200540 

8A200550 

8A200560 

8A200570 

8A200580 

8A200590 

8A200600 

8A200610 

8A200620 

8A200630 

8A200640 

8A200650 

8A200660 

8A200670 

8A200680 

8A200690 



PROG ID 
PAGE 



08A2-1 
1 





0043 





E02 6 






AND 




SENBI 


BLOCK OUT PROG SEL SW 


8A200700 






0044 





F025 






EUR 




SENBI 




8A200710 






0045 





4Cie 


005E 


» 


BSC 


L 


NOTRD, +- 


BR TERMINATE PROGRAM 


8A200720 
8A200730 






0047 





F026 






EOR 




CEON 




8A200740 






0048 





4C18 


0062 


* 


BSC 


L 


SAVE2,+- 


BR CE SERVICE STOP 


8A200750 
8A200760 






004A 





0825 






XIO 




DSW 


SENSE DSW 


8A200770 






004B 





1002 






SLA 




2 




8A200780 






004C 





4C10 


0062 


« 
* 

* 

* 


BSC 


L 


SAVE2,- 

IF BIT 2 
THAT THE 


IS NOT ON IT MEANS 
DISK IS NOT IN CE MODE 


8A200790 
8A200800 
faA2OO810 
8A200820 
8A200830 






004E 





061B 






XIO 




SENBI 




8A200840 






004F 





E019 






AND 




K0003 


SAVE BITS 14 AND 16 


8A200850 






0060 





F020 






EOR 




CESW 




8A200860 






0051 





4C98 


0063 




BSC 


I 


WORK,+- 


GO TO WORK, SAME RTb 


8A200870 






0063 





F02A 






EOR 




CESW 




8A200880 






0054 





DO 29 






STO 




CESW 


SAVE CE PROG SWITCH 


8A200890 






0055 





DOOl 






STU 




GO+1 




8A200900 






0066 





6500 


0000 


GO 


LDX 


LI 


/OOGO 




bA200910 






0058 





4080 


005A 


* 


BSC 


U 


TABLE 


SELECT ROUTINE 


8A200920 
8A200930 






006A 





007F 




TABLE 


DC 




CEGO 


MOVE 1 TRK OUT + IN 


8A200940 






006B 





008C 






OC 




OUT 


OUT 1 TRK AT A TIME 


8A200950 






006C 





00A3 






DC 




IN 


IN 1 TRK AT A TIME 


8A200960 






005D 





00 B9 






DC 




WRIT 


WRITE-READ-CHECK 


8A200970 














********<.* 


4.* **************«****«***<.*» *#*****«**.*** 


eA20O9 80 














* 










&A200990 














.* 










8A201000 














* 






EXIT POINTS TO AUX LOADER 


8A201010 














* 






************************* 


8A201020 














* 










8A201030 














* 






TERMINATE 


EXIT POINT 


8A201040 














* 










8A201050 






006E 





6500 


0813 


NOTRD 


LDX 


LI 


WWWW 




8A201060 






0060 





69A3 






STX 


1 


/04 




8A201070 






0061 





080A 




* 


XIO 




CEOFF 


REMOVE DEVICE FROM Cfc MODE 


8A201080 
8A2Q1090 














* 






NORMAL EXIT POINT 


8A201100 














* 










8A201110 






0062 





70AA 




SAVE2 


MDX 




QOOQ 


EXIT TO AUX LOADER 


8A201120 














♦*****<.*******«*****************««******#*#****»*»* 


8A201130 














« 










8A201140 






0063 





00 7F 




WORK 


DC 




CEGO 


RETURN TO WORK ADDR 


8A201150 






0064 





70FD 






MDX 




SAVE2 




8A201160 














************** *************#*«******».******«****^;*« 


8A201170 














* 










8A201180 






0065 





0027 




WAREA 

* 
* 

* 


DC 




39 

THE WRITE 


WORD COUNT 
DATA WILL BE THE PROGRAM 


8A201190 
8A201200 
BA201210 
8A201220 






0066 





0000 






uc 




/OOOO 


DISC ADDRESS 


8A201230 






0067 





1313 




« 


oc 




/1313 




8A201240 
8A201260 






0068 





0068 




FAST 


DC 




FAST 


IF ZERO FAST ACCESS 


8A201260 






0069 





0003 




K0003 


DC 




/0003 


CONSTANT 


8A201270 














***#******«*********************#****************** 


8A201280 














* 










8A201290 














* 






CONSTANTS 


AND/OR lOCC WORDS 


8A201300 














* 










8A201310 






006A 




0000 






BSS 


E 







8A201320 






006A 





OOFF 




SENBI 


DC 




/DOFF 


CONSTANT 


8A201330 






006B 





0760 






DC 




/0760 


SENSE CE SWITCHES 


8A201340 






00 6C 





70 3B 




CEOFF 


OC 




TTTT 


CONSTANT 


8A201350 






006D 





0000 






DC 




/OOOO 


CE OFF WORD 


8A201360 






006E 





00 FO 




CEON 


OC 




/OOFO 


CONSTANT 


8A201370 




DATE 


2eFEB66 


31MAY66 


01JUL66 


010CT67 02DEC68 


PROG ID 


08A2-1 


EC NO. 


415120 416120A 


415178 


411875 411961 


PAGE 


lA 
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006F e 0001 




DC 




/OOOl 


CE ON WORD 


8A201380 






0070 0000 


DSH 


UC 




/OOOO 


CTR USED FOR IRK COUNT 


^rf "^ «to »# A •^ ^iF ^J 

8A201390 






0071 0701 




DC 




/0701 


RESET DEVICE STATUS 


8A201400 






0072 e 0001 


CENTft 


1 OC 




/OOOl 


1 STEP TOWARDS CENTER 


8A201410 






0073 0400 




DC 




/0400 


lOCC CONTROL WORD 


8A201420 






0074 0001 


EDGE 


DC 




/OOOl 


1 STEP TOWARDS EDGE 


8A201430 






0075 0404 

y\ ^V '9 g tf^ J^ t^ r^ r^ 




OC 




/0404 


lOCC CONTROL WORD 


8A201440 






0076 0008 


READ 


DC 




RAREA 


REFERES COUNT TABLE 


8A201450 






0077 0600 




DC 




/0600 


READ lOCC 


8A201460 






0078 0065 


WRITE 


OC 




WAREA 


REFERES COUNT TABLE 


8A201470 






0079 0500 




DC 




/0500 


WRITE lOCC WORD 


8A201480 






007A OOCA 


1202 


DC 




202 


MOVE 202 TRKS IN 


8A201490 






007B 0400 




DC 




/0400 


lOCC CONTROL WORD 


8A201500 






00 7C 6 OOCA 

#^ JV 'V tf^ J^ ^^ M ^^ a ^ 


0202 


DC 




202 


MOVE 202 TRKS OUT 


8A201510 






0070 0404 




DC 




/0404 


lOCC CONTROL WORD 


8A201520 






007E 0000 


CESW 


DC 




/OOOO 


CE PROGRAM SW SETTING 


KA201 ^■^n 








***^^****'^■|^*^^**^^'^^^^^■»^^^1^^^1^l^■l^^^^(i^^(i^^^l^i^^^^^^^^^^^f^^f^^f'^f,^'^^f^f^^^^ 8A20l540 








4 










8A201550 








% 






IN ONE TRACK AND OUT ONE TRACK 


8A201560 








4( 










8A201570 








♦ 






THIS ROUTINE SEEKS HOME AND MOVES 


8A201580 








* 






TOWARD THE 


CENTER ONE TRACK AND 


BA201590 








♦ 






THEN BACK 


TO HOME. THIS IS REPEATED 


8A201600 








• 






UNTIL THE 


ROUTINE IS CHANGED OR A CE 


8A201610 








* 






SERVICE STOP IS SENSED. 


eA201620 








* 










8A201630 








* 






*•**»«**■(■«****«*», #»4, *;,,», ^:J4;^^^,^,^, 


8A201640 






007E 4050 
OOSO 7400 0068 

0082 7004 

0083 6101 

0084 69E0 
0065 6100 
0086 69ED 


4c 
CE60 


bSI 
MDX 
MDX 
LDX 
STX 
LDX 
STX 


L 

1 
1 
1 
1 


GOHOM 

FAST,0 

CEGOX 

1 

CENTR 



EDGE 


MOVE HEAD TO HOME SC 

INITIALIZE 
INITIALIZE 


8A201650 
8A201660 
8A201670 
6A201660 
8A201690 
8A201700 
8A201710 
8A201720 






0087 -08EA 


CEGOX 


XIO 




CENTR 


MOVE IN ONE TRACK 


^^ »^ ^ *^ & ■ ^ \f 

8A201730 






0088 40DA 




BSI 




WORK 


SET UP RETURN ADDR SC 


8A201740 






0089 08EA 
008A 40D8 


♦ 


XIU 
BSI 




EDGE 
WORK 


SET UP RETURN ADDR SC 


BA201750 
8A2U1760 
8A201770 






008B 70FB 


* 


MDX 




CEGOX 




eA201780 
SA201790 








♦ »»«»*»**»»*»*^*;^#:»:^:^^„;j,,,,,^^^^,,^^^^^^^^^^^^^^^^ 


8A201800 








* 










8A201810 








* 






IN 202 AND 


OUT 1 TRK AT A TIME 


8A201820 








* 










8A201830 








« 






THIS ROUTINE SEEKS HOME AND THEN 


BA201840 








• 






MOVES TO THE CENTER (202 TRACKS) AND 


8A201850 








* 






THEN MOVES 


TOWARD THE EDGE ONE TRACK 


8A20ie60 








* 






AT A TIME. 


THIS IS REPEATED UNTIL 


8A201870 








« 






THE ROUTINE IS CHANGED OR A Cb 


8A201880 








» 






SERVICE IS 


SENSED. 


bA201890 








4t 










8A201900 








Xe 






«*i(.»*»»»*«*******«»**«««»»>!i*»««*«««#<, 


8A201910 






008C 4043 


OUT 


BSI 




GOHOM 


MOVE HEAD TO HOME SC 


8A201920 
8A201930 






0080 08EC 




XIU 




1202 


MOVE 202 TRACKS IN 


8A201940 






008E 4004 




BSI 




WORK 


SET UP RETURN ADDR SC 


8A201950 






008F 6500 OOCA 


* 


LDX 


LI 


202 




8A201960 
8A201970 






0091 690E 

0092 7400 0068 




STX 
MDX 


1 
L 


OSW 
FAST,0 


IS IT FAST 


8A2019eO 
8A201990 






0094 7002 




MDX 




CONT 


* NO 


8A2020UU 






0095 71FF 

0096 69D0 


* 


MDX 
STX 


1 

1 


-1 
EDGE 


* YES 
INITIALIZE 


8A202010 
8A202020 
8A202030 






0097 oeoc 


CONT 


XIO 




EDGE 


MOVE 1 TRK OUT 


8A202040 




( 


0098 40CA 




BSI 




WORK 


SET UP RETURN ADDR SC 


^^ »^ fc* *# ^ ^j ^ ^^ 

8A202050 




' DATE 28FEB66 01MAY66 


01JUL66 


010CT67 02DEC68 


PROG ID 


08A2-1 


EC 

1 


NO. 415120 415120A 


415178 


411875 411961 


PA<,E 


2 



DATE 
EC NO. 



0099 





7400 


0068 


009B 





7002 




009C 





74FF 


0074 


009E 





1000 




009F 





74FF 


0070 


OOAl 





70F5 




00A2 





70 E9 





MDX 


L 


FAST.O 


IS IT FAST 


MDX 




*+2 


* NO 


MDX 


L 


EDGE,-1 


* YES 


NOP 






KEEP THIS NOP 


MDX 


L 


DSW,-1 


REDUCE TRACK COUNT 


MDX 




CONT 




MDX 




OUT 





00A3 
00A4 
00A6 
00A7 
00A9 
OOAA 
OOAB 
00 AC 
OOAD 



40 2C 

6500 OOCA 

69C9 

7400 0068 

7002 

1010 

D0C6 

08C5 

40B5 



* IN 1 TRK AT A TIME AND OUT 202 

* 
* 

* 
* 
* 
* 

* 

IN 

INI 



THIS ROUTINE SEEKS HOME AND THEN 
MOVES ONE TRACK AT A TIME UNTIL IT 
REACHES THE CENTER. THEN A COMMAND 
IS GIVEN TO SEND THE HEAD TO HOME. 
THIS IS REPEATED UNTIL THE ROUTINE 
IS CHANGED OR A CE SERVICE STOP 
IS SENSED. 



IN2 



OOAE 7400 0068 
OOBO 7002 
GOBI 7401 0072 
00B3 74FF 0070 
00B5 70F6 

00B6 08C5 
0067 40AB 

OOBe 70EB 



BSI 
LDX 
STX 
MDX 
MDX 
SLA 
STO 
XIO 
BSI 

MDX 
MDX 
MDX 
MDX 
MDX 

XIO 
BSI 



GOHOM 

LI 202 
1 DSW 

L FAST.O 
IN2 
16 

CENTR 
CENTR 
WORK 



MOVE HEAD TO HOME 



SC 



FASTtO 
*+2 

CENTR, 1 
DSW»-1 
IN2 

0202 
WORK 



IS IT FAST 

* NO 

* YES 

MOVE 1 TRACK 

SET UP RETURN ADDR 

IS IT FAST 

* NO 

* YES 

REDUCE TRACK COUNT 



MOVE 202 TRACKS OUT 
SET UP RETURN ADDR 



SC 



SC 



00B9 4016 
OOBA 08BD 
OOBB 40A7 

ODBC 08B9 
OOBO 40A5 



***** 

* 

* 

* 

« 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

WRIT 



MDX INI 

WRITE AND READ AT HOME POSITION 

THIS ROUTINE WILL WRITE A RECORD AND 
THEN READ IT. IF IT COMPARES OKAY THE 
HEAD WILL MAKE A PASS TO THE CENTER 
AND BACK UNLESS THE NO INDICATE 
SWITCH, BIT 12, HAS BEEN SET. IT 
WILL THEN GO TO REPEAT THE WRITE- 
READ-CHECK WITHOUT GOING TO THE 
CENTER. THIS WILL BE HELPFUL FOR 
INTERMITIANT FAILURES. THIS WILL 
CONTINUE UNTIL A CE SERVICE STOP OR 
A DIFFERENT ROUTINE IS SENSED. 



*«****Jj,***»*«#»»»#^;{C 4; :(,*;(, <,;»^:j;^;j^;j^^^^^ 



2BFEB66 
415120 



01MAY66 
415120A 



BSI 
XIO 
BSI 

XIO 

BSI 



01JUL66 
415178 



GOHOM 
WRITE 
WORK 

READ 
WORK 



010CT67 
411875 



MOVE HEAD TO HOME SC 

WRITE COMMAND 

SET UP RETURN ADDR SC 

READ 

SET UP RETUTN ADDR SC 



02DEC68 
411961 



8A202060 

8A202070 

8A202080 

8A202090 

8A202100 

6A202110 

8A202120 

8A202130 

8A202140 

8A202150 

8A202160 

8A202170 

8A202180 

8A202190 

8A202200 

8A202210 

8A202220 

8A202230 

8A202240 

8A202250 

8A202260 

8A202270 

8A202280 

BA202290 

8A2023O0 

8A202310 

BA202320 

8A202330 

8A202340 

8A202350 

8A202360 

8A202370 

8A202380 

8A202390 

8A202400 

8A202410 

BA202420 

8A202430 

8A202440 

BA202450 

8A202460 

8A202470 

8A202480 

8A202490 

8A202500 

8A202510 

8A202520 

8A202530 

8A20254D 

8A202550 

8A202560 

8A202570 

8A202580 

8A202590 

8A202600 

8A202610 

8A202620 

8A202630 

8A202640 

8A202650 

8A202660 

8A202670 

8A202680 

8A202690 

8A202700 

8A202710 

8A202720 

BA202730 



PROG ID 
PAGE 



08A2-1 
2A 






t If 



\. ji Tf \_> \u«* ^u^ ^-> ^— X . 



( ( c t (, ( ( 1 ( ( ( c ( c ( ( ( c ( c < etc c c; ( 
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008E 61D9 
OOBF C500 0080 
OOCl F500 0100 
00C3 4C20 00B9 

00C5 7101 
00C6 70Fe 

00C7 08A2 
coca 1803 
00C9 4C04 0069 



WRCK 



LUX 
LD 
tUk 
bSC 

MDX 
MUX 

XIU 
SRA 
BSC 



1 -39 

LI lnAREA+40 

LI RAREA+40 

L WRIT,Z 

1 1 
WRCK 

SENBI 
3 
L WRITtE 



USED FOR CHECKING 

STORED DATA 

READ DATA 

BCH ON UNEQUAL. DU 

READ-WRITE AGAIN. 



SENSE BIT SWITCHES 

CHECK BIT 12 

BCH ON NOT INDICATE 



* 

* 



«*** ««**VV **»**« ***#»**V —-■*»■*** **4-*V* 



HEAD TO CENTER AND BACK TO INUICATh 
A SUCCESSFUL OPERATION. 



«*«*»#»******»«***«>^ »#**»»« *-,.^******^ 



OOCB 08AE 
OOCC 4096 

OOCO 08AE 
OOCE 4094 

OOCF 70E9 



XIU 

bSl 

XIU 
BSI 

MDX 



1202 
WORK 



0202 
WORK 



MOVE IN 202 TRACKS 

SET UP RETURN ADDR SC 

MOVE OUT 202 TRACKS 
SET UP RtTUTN ADDR SC 



WRIT 

MOVE HEAD TO HOME 



0000 0000 
OODl 089E 
0002 1004 
00D3 4CA8 OODO 

00D5 08A6 
0006 408C 
00U7 70F9 



0008 0027 



* 
* 

* 

GOHOH DC 
XIO 
SLA 
BSC 

XIO 
BSI 
MDX 



THIS ROUTINE CHECKS FOR THE HEAD 
HOME. IF IT IS NOT, A MOVE UF ONE 
TRACK TOWARD THE OUT SIDE IS GIVEN 
AND CHECKED AGAIN UNTIL IT REACHES 
HOME. 

♦ Ki* **♦**«»»»**»****«*»«**«***#» «.««#^* 

SE 



/OOOO 
DSW 
4 
I GOHOM ,+ Z 

0202 
WORK 
GOHOM+ 1 



RETURN ADDR 

SENSE DSW 

SAVE BIT 4 

RETURN IF HOME SX 

MOVE TO THE EDGE 

SET UP RETURN ADDR SC 



39 READ WORD COUNT 



0009 C0S12 
OOOA 0400 0004 



OOOC 0880 
0000 E019 
OODE 1804 
OOUF 0001 
OOEO 6500 0000 
00 E2 0500 OOF 8 



RAREA DC 

* 

* 

SETUP LD 
STO 

* 

* 

* 

* 

XIU 
AND 
SRA 
STO 
LDX 
LD 



THE INSTRUCTIONS IN THIS READ AREA 

* WILL BE USED ONLY THE FIRST TIME 

* AND WILL BE WIPED OUT BY A READ. 

CEOFF PLACE BRANCH 
/04 * TO RETUR LABEL 

SELECT DISC DRIVE 



GOT 



SENBI 

K0030 

4 

GOT+1 
LI /OOOO 
LI AREA 



SENSE BIT SWITCHES 
SAVE BITS 10 AND 11 



GET AREA CODE OF DRIVE 



8A202740 
8A202750 
BA202760 
bA202770 
8A202780 
BA202790 
bA202800 
8A202810 
bA202820 
8A202B30 
8A202840 
8A202850 
bA202860 
8A202870 
8A202880 
bA202e90 
bA202900 
bA202910 
BA202920 
8A202930 
bA202940 
8A202950 
8A202960 
bA202970 
bA202980 
8A202990 
8A203000 
8A203010 
8A203020 
8A203030 
8A203040 
8A2030b0 
BA203060 
BA203070 
8A203080 
8A203090 
8A203100 
8A203110 
8A203120 
8A203130 
8A203140 
8A203150 
8A2O3160 
8A20317O 
BA203180 
bA203190 
8A203200 
8A203210 
eA203220 
8A203230 
8A2a3240 
8A203250 
8A203260 
8A203270 
8A203280 
8A203290 
8A203300 
8A203310 
8A203320 
8A203330 
bA203340 
8A203350 
8A203360 
8A203370 
bA2033bO 
bA203390 
8A203400 
bA203410 



00E4 





0013 




STU 




AREA 


STORE AREA CODE 


8A203420 








* 






**«**#*«J!!*>|t»>|<:Hlt**!^*!^*>!i***«.*V«**-**>,'--< ** 


8A203430 








* 










8A203440 








* 






ADD AREA 


CODE TO THE I/O CUMMD. 


BA203450 








* 










8A203460 


00E5 





6111 




LDX 


1 


17 




8A203470 


00b6 





C16C 


BUILD 


LD 


1 


CEOFF 


GET lOCC WORD AND 


8A203480 


00E7 





E810 




UR 




AREA 


* OR IN AREA CODE 


8A203490 


00E8 





D16C 




STU 


1 


CEOFF 


* AND PLACE BACK 


8A203S00 


00E9 





71FE 




MDX 


1 


-2 




8A203510 


OOtA 





70FB 




MDX 




BUILD 




8A203520 


OOEB 





6100 




LDX 


1 







8A203530 


OOEC 





0970 




XIO 


1 


DSW 


SENSE DSW 


8A203540 


OOED 





1000 




SLA 




13 


CK FOR FAST 


bA203S50 


OOEE 





4C10 OOFS 




BSC 


L 


END,- 


BCH IF NOT FAST ACC 


8A203560 


OOFO 





C972 




LDD 


1 


CENTR 




8A203S70 


OOFl 





1010 




SLA 




16 


CLEAR CYLINDER COUNT 


8A203S80 


00F2 





0168 




STO 


1 


FAST 


INDICATE FAST ACC 


8A203S90 


00F3 





D974 




STO 


1 


EDGE 




8A203600 


00F4 





09 7C 


* 


STD 


1 


U202 




8A203610 
8A203620 


OOFS 





4C00 0040 


END 

* 


BSC 


L 


RETUR 




8A203630 
8A203640 


00F7 





00 30 


K0030 


DC 




/0030 


CONSTANT AND STORAGE 


8A203650 


00F8 





2000 


AREA 


DC 




/2000 


AREA CODE OF DRIVE SELECT 


8A203660 


00F9 





2000 




DC 




/2000 


1ST 1810 AREA CODE 


8A203670 


OOFA 





4000 




DC 




/4000 


2ND 1810 


8A203680 


OOFB 





4800 


* 
* 


DC 




/4800 


3RD 1810 

* CHANGE THESE VALUES IF 

* 1810 ON ANOTHER AREA 


8A203690 
8A203700 
8A203710 
8A203720 
8A203730 
8A203740 








***««♦»#*♦*«***#»«*»*«#«*****«*#«»###«****#«»**««*« 


8A203750 








* 










8A203760 


OOOD 






QOQQ 


EQU 




/D 


GO TO LOADER AT /D 


8A203770 


7007 






NNNN 


EQU 




/70D7 


FOR CARD LOADER AT /35 


8A203780 


0813 






WWWW 


EOU 




/0813 


SET IN LOADER AT /04 


8A203790 


703B 






TTTT 


EOU 




/7000+RETUR-/4-1 THIS IS EQUAL 


8A203800 








* 








TO THE BCH FROM THE 


8A203810 








* 








LOADER TO RETUR IN 


8A203820 








* 








THIS PROGRAM. 


8A203830 








«*«*«**»#**»«>t*«***«»«*« #***♦»**«*♦#»**»**»»*♦*##»* 


8A203840 


00 FC 




OOFC 




END 




*-l 


END CARD NEVER USED 


8A203850 
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AREA 

BUILO 

CEGO 

CEGOX 

CENTR 

CEOFF 

CEON 

CESM 

CONT 

OSH 

EDGE 

END 

FAST 

60 

6CM0H 

GOT 

IN 

INI 

IN2 

1202 

K0003 

K0030 



NQTKB 
OUT 

0202 

flfiOQ 

KMEA 

KEAO 

KETUft 

SAVE2 

SENS I 

SETUP 

TABLE 

TTTT 

WARE A . 

WORK 

WRCK 

WRIT • 

WRITE 

uwww 

END OF 



00F8 

00E6 

007F 

0087 

0072 

006C 

00 6E 

007E 

0097 

0070 

0074 

OOFS 

0068 

0056 

OODO 

OOEO 

00 A 3 

eeA4 

OOAC 
007A 
0069 
OOF 7 
70 07 

essE 
oesc 

00 7C 

0000 

.0008 

00 76 

0040 

0062 

00 6 A 

0009 

00 5 A 

703B 

0065 

0063 

OOBF 

00B9 

0078 

0813 



O0E2 00E4 00b7 

OOEA 

005A 0063 

0082 008B 

0084 0087 OOAB OOAC 0081 OOFO 

0061 00D9 00E6 00E8 

0040 0047 

0050 0053 0054 

0094 OOAl 

0091 009F 00A6 0063 OODl OOEC 
0096 0097 009C 00F3 



0092 0099 00A7 OOAE O0F2 
00A3 00B9 0003 00D7 
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0086 0089 

OOEE 

0068 0080 

0055 

007F 008C 

OOOF 
00 5C 

00B8 
00A9 00B5 

008D OOCB 

004F 

OODO 

00 3A 

0045 

0058 00A2 

0086 OOCD 0005 00F4 

0062 

0076 OOCl 

OOBC 

OOFS 

0048 004C 00 64 

0042 0043 0044 004E 00C7 OODC 

00 3E 

0058 

006C 

0078 OOBF 

0051 0088 00 8A 008E 0098 OOAD 00B7 OOBB OOBD OOCC OOCE 0006 

005D 00C3 00C9 OOCF 

008 A 

005E 
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5.1 SELECTING KEYBOARD REQUEST IKBD RE8I 

5.2 SELECTING A CHARACTER OR CONTROL FUMCnWi 

5.3 TYPEWRITER-RESPONSE INTERRUPT 

6. APPENDIX (MOKEi 



1. PURPOSE 

THE PURPOSE OF THE AUX 1816 EXERCISER PROGRAS IS TO TEST 
THE OPERATION OF THE 1816 PRINIER-KEVBOARD. 

2. PREREQUISITES 



?.i 



DEVICE AREA CODE 

IF THE DEVICE TO BE TESTED USES A CUSTOMER ASSIGNED AREA CODEt A «E« 
AUX PROGRAM DECK OR PAPER TAPE HUST B£ CREATED. TH6 PROCEDURE IS 
PRESENTED IN THE DOCUMENTATION OF THE AUX PROGRAN GENERATOR UTILITY 
fPlD 06AC - CARD VERSION, PID OBAD - PAPER TAPE VERSIONI 
THE PROGRAM LOCATIONS THAT MUST BE ALTERED ARE SPECIFIED BY A 
STATEMENT AT THE BEGINNING OF THE PROGRAM LISTING. 



2.2 



CARD INPUT 



— CAUTIWS— 



2.3 



00 NOT ATTEMPT TO LOAD THIS PROGRAM IF THE CARD READER SHARES A ' 
CHANNEL KITH ANOTHER DEVICE WHILE THAT DEVICE IS OPCRATINS. 

THE AUX DIAGNOSTIC LOADER IPIO 08A11 MUST BE PRESENT IH AUK STORAGE 
BEFORE AN AUX PROGRAM DECK CAN BE LOADED. 

PAPER TAPE INPUT ' 

THE AUX DIAGNOSTIC LOADER JPAPER TAPE - P!D 08A0I MUST BE PRESENT iW 
AUX STORAGE BEFORE AN AUX PAPER TAPg PROGRAM CAN BE LOADED., 

3. USE PROCEDURES ^ 

I 
BEFORE PROCEEDING, A PROGRAM MUST BE IN MAIN-CORE STORAGE RUNNIftC : 
OR AT A NAIT INSTRUCTION READY TO START RUNNING. 

S.l CARD INPUT LDAOING PROCEDURE 

A. BE SURE THE 1«A2 IS AVAILABLE AND ALL CARDS ARE RCNOVEO. 
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S. ON THE CE PANEL SET THE INTERRUPT SWITCH TO AUX INTERRUPT 

AND ALL THE CE SWITCHES TO THEIR ON POSITION 1UPI. 
C. DEPRESS CE INTERRUPT TWO TIMES TO ASSURE THE 1«42 IS IN CE MODE* 
0. PLACE THE SEVEN CARDS OF THE AUX 1816 EXERCISER PROGRAM IN 
THE HOPPER OF THE 1442 AND FOLLOW WITH A BLANK CARD. 

MOTE 

EACH PROGRAM CARD HAS A CHARACTER ENTERED INTO COLUMN SO. 
THIS CHARACTER DEFINES THE CARD'S POSITION IN THE DECK 
ACCORDING TO THE FOLLOWING SE8UENCE, XIFIRSTI, THEN 0, I, 2e 
3, 4, AND 5. THE CARDS CANNOT BE READ UNLESS THEY ARE PLACES 
IN THE HOPPER IN THE CORRECT ORDER. 

E. DEPRESS THE 1442 START PUSHBUTTON. READY INDICATOR SHOULD LieHT. 

F. PLACE ALL CE PROGRAM SWITCHES IN THEIR OFF POSITION. 

G. DEPRESS CE LEVEL INTESRUPT PUSHBUTTON (ON CE PANEL! TO LOAD THE 
PROGRAM. OF THE HOPPER OF THE 1442 DOES NOT GO EMPTY THE CHECK- 
SUM ROUTINE IN THE AUX DIAG'^OSTIC LOADER MOST LIKELY REJECTED 
THE PROGRSM. CHECK THF CARDS FOR PROPER SEQUENCE AND RETURN TO 
STEP A AND TRY AGAIN). 

H. GO TO SECTION S.l - , 

3.2 PAPER TAPE INPUT LOADING PKOCEmiSE 

A. BE SURE THAT THE 1054 TAPE READER IS AVAILABLE AND THAT Tf«RE IS 
NO TAPE IN THE READER. 

B. ON THE CE PAhEL SET THE INTERRUPT SWITCH TO AUX INTERRUPT *N0 Att 
THE CE SWITCHES TO THEIR ON POSITION JUPI. 

C. DEPRESS CE INTERRUPT PUSHBUTTON TWO TIMES TO ASSURE THAT THE 1054 
IS PLACED IN CE MODE. 

0. PLACE THE FIRST TAPE CHARACTER OF THE PROGRAM DIRECTLY AaOVE 

THE SENSE PINS IN iHfc 1054 READER. ITHE CHECK-SUM ROUTINE OF THE 
AUX DIAONOSTIC LOADER HILL REJECT THE PROGRAM IF THE AUX TAPE 
IS LOADED INCURRECTLYi. 

E. PLACF ALL CE PROGRAM SWITCHES IN THEIR OFF POSITION. 

P. DEPRESS CE LEVEL INTERRUPT TO LOAD THE PPOGRAM. TAPE ACTION 

SHOULD START AND CONTINUF UNTIL THE ENTIRE AUX PROGRAM HAS EEE« 
READ. WHEN THE READER STOPS, THE FIRST TAPE FEED HOLE FKARACTER 
FOLLOWING THE AUX PROGRAM DATA SHOULD BE LOCATED DIRECTLY ABOVE 
THE 1054 SENSE PINS FOR A CORRECTLY STORED PROGRAM. IF THE TAPE 
DID NOT STOP AT SAID LOCATION, RETUPN TO STEP A TO RELOAB PSOS. 

3.3 TYPICAL PROGRAM OPERATING PROCEDURE 

A. ASSURE THAT THE PROCEED LIGHT ON THE KEYBOAftD IS ON. IF THIS IS 
NOT THE CASE THE AUX DIAGNOSTIC LOADER MOST LIKELY REJECTED THE 
PROGRAM AND THE LOADING PROCEDURE SHOULD BE REPEATED. 

B. DEPRESS Tht REQUEST KEY OH I'lE 1B16 KEYBOARD AND THE PROCEED 
LIGHT ON THE KEYBOARD SHOULD REMAIN ON I6UT LIGHT MAY FLICKER!. 

C. USE THE KEYBOARD TO TYPE OHE OR MORE CHARACTFRS AND/OR SELECT OMf 
OR MORE CONTROL FUNCTIONS IFOI EXAMPLE, SPACE, SHIFT, ETC.I. 

NOTE 

A CARRIER COMMAND WILL 8E EXECUTED IF THE 1816 PRINTER- 
KEYBOARD FAILS TO RESPOND PROPERLY WHEN A CHARACTER OR 
CONTROL FUNCTION IS SELECTED. THE ER FLO KEY CONTROLS 
SHIFT-TD-RED. THE ER CHS KEY COtjTROLS THE BACKSPACING 
FUNCTION, THE EOF KEY CONTROLS THE SHIFT-TU-bl ACK 
FUNCTION AND NUMERIC T CONTROLS LINE FEED. 

3.4 CE SERVICE STOP 

THE CE SERVICE STOP ROUTINE STOPS THE 1816 PROGRAM BUT DOES NOT 
TERMINATE THE PROGRAM. IT IS RECOMMENDED TO USE THIS SETTING MHEM 
ADJUSTING THE 1816. 
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»«5 TCRHIWATIHO PROCtOUM -' , - . / 

A. SET THE Ce PROGRAH SWITCHES TO 00001111 -CE SERVICE STOP. 

(THE ONLY REASON FOK USING THIS SETTING IS TO STOP ANY OEVICE 
ACTION WHICH f^AV CAUSE AN INTERRUPTl. > 

8. SET THF Ct PROGRAM SWITCHES TO IIIIUII -TERHINATOR SETTIN&t • 
AND DEPRESS THE CE INTERRUPT ttVEl PUSHBUTTON ONCE AND ONLY 
ONCE. «A SECOND DEPRESSION OF THE CE INT. PUSHBUTTON WU. i " 
RESULT IN THE AUX DIAGNOSTIC LOADER TRYING TO LOAD A WE« ~, -i ' . 
PROGRAM If THE READER IS READY). r *' 

UOTE - , ',i 

TO OffSET THE POSSIBIIITV THAT THE INPUT OEVICE WIGHT 8E 
MALFUNCTIONING THE NEXT TIME IHE 1800 SYSTEM NEEDS SERVtCINS 
THE FOLLOWING PROGRAM SHOULD BE LOADED INTO AUX CORE AT fME 
CONCLUSION OF EACH SERVICE CALL " 

A. CARD INPUT 

LOAD THE AUX 1442 PACKED READ EXERCISE PROGRAM tPID OSAAI ' 
AFTER ASSURING THE PROGRAM IS BY PUNCHING CARDS* CE 
SWITCH SETTING OCOOOOOOi SET IN THE FAREWELL OPTION* 
CE SWITCH SETTING 00000010 AND LEAVE THE SWITCHES AT 
THIS SETTING, TO ENSURF THE GREATEST PROTCCIION 10 THE. 
CUSTOMER. DEPRESS CE INTERRUPT PUSHWJTTON. 

B. TAPE INPUT 

LOAD THE AUX 1054/SS EXERCISER PROGRAM fPIO ORABI. . . 
AFI^ ASSURING THE PROGRAM IS IN BY PUNCHING TAPE* CE 
SWITCH SETTINGS OOOOOOOl. SET IN THE FAREWELL OPTION* 
CE SWIICH SETTING 00000000 AND LEAVE THE SWITCHES AT THIS 
SETTING TO ENSURE THE GREATEST PROTECTION TO THE , , 
CUSTOMER. DEPRESS CE INTERRUPT PUSHBUTTON. 

A. PRINTOUTS ■ . 

IHE PRINTOUTS OF IHE AUX 1816 EXERCISER PROGRAM ARE OETERMINEO '," 

BY THE OPERATOR. USING THE KEYBOARD, THE OPERATOR MAY TYPE ANY 
CHARACTERISi THAT HE DESIRES. A CARRIER COMHAND WILL BE EXECUTED If 
THE 1816 PRINTER-KEYBOARD FAILS TO RESPOND PROPERLY WHEN A CHARACTER OR ' 
CONTROL FUNCTION IS SELECTED. ,, 

5. COMMENTS 

A PROGRAM MUST 6E IN MAIN-CORE STORAGE AND MUST BE RUNNING OR READY TO START 
BEFORE THE AUX 1B16 EXERCISER PROGRAM CAN BE LOADED. 

ASSUMING THAT THE AUX DIAGNOSTIC LOADER IS PRESENT IN AUXILt ARY>5T0RA6E 
AND THE PROGRAM IS READY TO BE READ, DEPRESSING THE CE LEVEt INTERRUPT 
PUSHBUTTON CAUSES THE PRpGRAM TO BE STORED AND STARTED. 

AFTER STARTING, THE PROGRAM SETS THE 1816 PRINTER-KEYBOARD TO THE CE MODE 
AND SENSES THE CE PROGRAM SWITCHES TO DETERHINE WHETHER A PROGRAM TERMINATOR 
Ullltllli HAS BEEN SELECTED. IF A PROGRAM TERMINATOR IS 
SENSED, A TRANSFER ADDRESS IN THE LOADER PROGRAM IS RESTORED TO ITS 
ORIGINAL CONTENTS. IN ADDITION, IHE CE MODE OF THE 1816 PRINTER-KEYBOARD IS 
CLEARED, AND CONTROL IS RtTUKWtD TO THE CUSTUMER'S MAIN-LINE PROGRAM. IF A 
PROGRAM TERHINAIOR IS NOT SENSED, IHE PROGRAM TESTS FDR THE CE. SERVICE STOP 
CONTROL OPTION (OOOOlllli. IF A CE SERVICE STOP IS SENSED. AN XIO COMMAND IS 
ISSUED TO TURN OFF THE KEYBOARD LIGHT. IF A CE SERVICE STOP IS NOT SENSED. 
THE PROGRAM SENSES IHE OSW (DEVICE STATUS WOROI OF THE 1816 PRINTER-KEYBOARD 
AND THEN DETERMINES IF A TYPEWRITER-RESPONSE INTERRUPT IS PRESENT. ASSUMING 
THAT THERE HAS BEEN NO OPERATOR ACTION (THAT IS, NO CONTROL FUNCTION OR 
CHARACTER IS SELECTED). THE PROGRAM CHECKS FOR KEYBOARD-RESPONSE AND 
MANUAL-REOUEST INTERRUPTS AND THEN RETURNS CONTROL TO THE CUSTOH£R*S MAIN- 
LINE PROGRAM. 
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5.1 SELECTING KETBOARO REQUEST IKBO REOI 

A MANUAL-REOUEST INTERRUPT IS GENERATED WHEN THE K'BD REQ KEY IS 
DEPRESSED. WHEN THE PROGRAM SENSES THE INTERRUPT. IT 
TURNS ON THE PROCEED INDICATOR AND THEN RETURNS CONTROL TO THE 
CUSTOMER'S MAIN-LINE PROGRAM. 

5.2 SELECTING A CHARACTER OR CONTROL FUNCTION 

WITH THE PROCEED INDICATOR OH, A KEYBOARD-RESPONSE INTERRUPT IS 
GENERATED WHEN THE OPERATOR SELECTS A CHARACTER OR A CONTROL COMMAND. 
WHEN THE INTERRUPT IS SEkVICEO THE SELECTED CHARACTER 

OR CONTROL FUNCTION IS SENSED AND COMPARED WITH ENTRIES IN A PROGRAM 
TABLE. THIS TABLE CONTAINS ALL OF THE CONTROL-FUNCTION AND CHARACTER 
CODES THAT ARE PECULIAR TO THE 1815. IF A MAICH IS ACHIEVED. A 
CORRESPONDING WORD IS SELECTED FROM A TABLE CONTAINING ALL THE 
CONTROL-FUNCTION AND CHARACTER COOES OF THE PRINTER. THEN THE 
OPERATION INDICATED BY THE WORD IS EXECUTED. AFTERWARDS. CONTROL 
IS RETURNED TO THE CUSTOMER'S MAIN-LINE PROGRAM. IF A MATCH CANNOT BE 
ACHIEVED. A CARRIER COMMAND IS EXECUTED TO INDICATE AN ERROR* AND 
CONTROL IS RETURNED TO THE CUSTOMEI 'S MAIN-LINE PROGRAM. 

5.S TYPEWRITER-RESPONSE INTERRUPT 

A TYPEWRITER-RESPONSE INTERRUPT IS GENERATED WHEN THE TYPEWRITER 
FINISHES EXECUTING A TYPE-CHARACTER OR CONTROL-FUNCTION OPERATION. 
WHEN THE INTERRUPT IS SERVICED, THE PROGRAM TURNS ON 

THE PROCEED INDICATOR. AND ANOTHER CHARACTER OR CONTROL-FUNCTION HAY 
BE SELECTED. 

6. APPENDIX INONEl 'l 
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ABS 




8A400000 


02ec 






ORG 


/36 


8A400010 






****•(•*••**•*••*»*«******«•**»•**•#*»•*••***•***«•» 


8A400020 












8A4OO030 








IF 


THIS PROG IS TO BE USED FOR A MACHINE 


8A4O0040 








WITH A DIFFERENT AREA CODE, THE LOCATION MHICH 


8A400050 








REFER TO 


THE LABEL AREA IN SYMBOL TABLE MUST 


8A4C0060 








BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 


8AA00070 








»«3BIFIED 


AUX 8-8 OBJECT DECK. SEE AUX CE PROG 


8A4C008C 








GENERATOR 


WRITE-UP FOR PROCEDURE. 


8A400090 












8A400t00 






•**•*••«'•*•*•**•«•«*****•••••••**«*•*«*•**•#••**«*• 


SA^fOOllO 












8A<W)(H20 












8A4e0l30 










KEYnCARD TO TYPEWRITER 


8A'«O0140 










«**»'« «»*«»•*****• *••»•« 


8AJ.00150 












6A4C0t60 








THIS PRCC 


CAN RE LOADED FROH Cf^Dv OR PAi'ER TAPt 


eA400lTO 












8&4001KJ 










NOTE 


8A4CCi9e 












8A4O02OO 










END OC FIFLO KEY GIVES SH TO BLACK 


8A400210 










ERfU" FIfcLO KEY GIVES SH TO RED 


8A4©0220 










FRASE CHAP. KEY GIVES BACKSPACE 


8*460239 










NUMERIC T GIVES A LINE FEED 


S&4C)023S 












8A4Q0243 


> 








A CfiWtER RETURN COHHANO IS GIVEN 


8A400250 










• NO CHAR WAS FOUND tN TABLE lElRORl 


8A4£>02eO 












8A4002?e 










CE SW SETTINGS 


8A4A02e0 












8A400290 










0-5001111 CE SERVICE STOP 


8A4C0300 










Ilium TERMINATE Rl»i 


8A«'5031O 












8A4C0320 










ALL OTHER COMBINATIONS INVALID 


8A403SK8 












8A400340 












8A4003SO 








FOR ADDITIONAL INFORHATION ABOUT PROG. OPERATIDS 


8A400360 








REFER TO 


THF PROGRAM DESCRIPTION WRITE-UP. 


8A4003TO 
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8A400380 












8A400390 










AUX PROG ENTRY POINTS 


8A400400 
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8A400410 












8A400420 










1ST PASS ENTRY 


8A400430 












8A400440 








THE NFXT 


EIGHT WORDS WILL NOT APPEAR IN CORE WHEN 


eA*0O450 








» USING THE AUX PAPER TAPE RIACNCSTIC LOADER 


gft4004t0 












e«400«70 


0036 


1000 




NOP 


NO OPERATION 


8A4C0480 


0C37 


1000 




NOP 


NO OPERATIOK 


eA400490 


009S 


1000 




NOP 


NO OPERATION 


BA4O0S00 


0039 


1000 




NOP 


NO OPERATION 


8A400Sie 


003A 


1000 




NOP 


NO OPERATION 


8A4O0520 


C03B 


1000 




HOP 


NO OPERATION 


eA400S30 


003C 


C029 




LD 


HNTPR RESTORE LOG NICE 


8A40054@ 


0030 


OOFT 


« 


STO 


/35 • IN AUX LOADER 


8A400550 
6A400S£O 


Oe3E 


€02 S 




LD 


CEON PLACE BRANCH 


8A4005T0 , 


OOSF 


00C4 




STO 


/C4 • TO RETUR LABEL 


8A400SeO 






•••*••««.*»«•«*•« te************** •*«*••*•»•**•» 


eA4O0590 






• 






8A400600 






• 




ADO AREA CODE TO THE I/O COMMANDS 


eA4006tO 






• 






8A4006S0 


0040 


610B 




LDX 


1 it 


8A4006KI 


0641 


CI60 


BUttC LO 


1 CEOFF GET lOCC WORD AND 


SA400640 


O042 


E82C *• 




OR 


AREA • OR IN AREA ANO 


8A4006S0 


0043 


0160 




STO 


1 CEOFF • PLACE BACK 


8A4OO660 


DATE 


23FEe66 


01MAy66 




PROG ID 08A4-0 


EC NO. 


415120 


415120* 




PAGE t 



) 
) 

i 

■. i n 
■ -) 



1 
\ o 





0044 





71FE 


0045 





70FB 


0046 





081B 


004T 





6A2F 


0046 





0815 


0049 





E014 


004A 





F013 


0048 


00 


4C 1800 TO 


0040 





F020 


004E 


CO 


4C180074 



0050 0813 

0051 OO 4C280093 

0053 1001 

0054 00 4C280079 

0056 lOOl 

0057 00 4C280093 

0059 1000 



005A C002 

005B DOFD 

005C 7036 

0030 701C 



MDX 
MDX 

» 

RETUR XIO 
STX 
XIO 
ANO 
EOR 
BSC 

EOR 
BSC 

XIO 
BSC 

SLA 

BSC 

SLA 
BSC 

HERE NOP 



I -2 

Buao 

ALL BUT 1ST PASS ENTRY POINT 



CEON 
2 SAVE2*1 
SENS I 
SENS! 
SENB! 
NOTRD,*- 



CONE 
IHM,*- 

DSH 
HARES,*Z 



HBRES»»£ 



SEMSE CE SW TO ACCUM 
BLOCK OUT PROG SEL SH 

BR COT Cf PROGRAM 

BR CE SERVICE STOP 

SENSE DEVICE STATUS 
BR T/W RESP INT 

KB RESPONSE INT 



I 

HARES,*Z MANUAL RECU INT 

OR fOX TO SAVE2 
1ST PASS ONLY 



PLACE BR TO SAVE2 



to NOT 

STO HERE 

MDX HARES 

NOT MDX X SAVE2-HERE-1 BUILT IKSTBUCTICN 

• CONSTANTS ANO/OR lOCC hOROS 



005E 




0000 


005E 





OOFF 


005F 





0760 


0060 





OOOO 


0061 





0002 


0062 





7041 


0063 





0003 


0064 





0000 


0065 





0703 


0066 





70D7 


006? 





0402 


0068 





OO&D 


0069 





0202 


006A 





C06C 


006B 





0102 


006C 





0000 


0060 





0000 


C06E 





OOFO 


OO&F 





0800 



BSS 

SENB I DC 

DC 
CEOFF DC 

DC 
CEON OC 

OC 
OSW DC 

OC 
HNTPR OC 

OC 
»^A0 OC 

DC 
HYOU OC 

OC 
HYOUT OC 
HEADC OC 
GONE OC 
AREA DC 
• 





/OOFF 

/0760 

/OOOO 

/0002 

TTTT 

/0C03 

/OOOO 

/0703 

NNNN 

/0402 

HEADC 

/0202 

MYOUT 

/0102 

/OOOO 

/CCOC 

/OOFO 

/0800 



END COHPAND COMPARE 
SENSE CE SWITCHES 

CE OFF lOCC 

CE ON lOCC 

KEY / TYP OSM 

lOCC CONTROL CODE 

lOCC READ CCOE 

lOCC TYPE CCOE 

CHAR TO TYPEWRITER 

CHAR FROM KEYBOARD 

CONSTANT 

1ST 1816 AREA CODE 

• CHANGE THIS VALUE FOR 

• A 1816 ON A.JOTHER AREA 



**•*••«**»«•*«**•*•«••***»»•«*»•»«•«»«»***«*«» 



0070 00 65000813 

0072 6991 

0073 08EC 



OATC 
EC NO. 



2SFEB66 
415120 



NOIRD LDX LI MMHH 
STX I /04 
XIO CEOFF 



C1MAY66 
415120A 



EXIT POINTS TO AUX LCAOER 
TERMINATE EXIT POINT 



eA400670 
SA400680 
8« ^00690 
eA40U7C0 
8A400T10 
8A400rr> 
8A4OJ7 30 
8A400740 
eA400750 
8A*00760 
eA400770 
9A400780 
eA400790 
8A4C0800 
8A4C0810 
8A4O820 
8&400830 
8A4Cs;840 
8A400850 
eA400S60 
8A^00870 
eA400e80 

0A'«!O0B9e 

8A40Q900 
8A40e9IO 
SA4C0920 
8A400930 
8A400940 
8A40095f 
8A4C0960 
SA4C0970 
8A' 00980 
8*#009^ 
eA40lOCO 
8A40t010 
8A40i020 
8A40103O 
8A4C1040 
8A4010Sf 
8A40106U 
8A401S73 
8A4010eO 
86401090 
eA401lCO 
8A40II10 
8A4Q1120 
8A401130 
8A40II40 
8A4011SO 
eA4011&0 
8A401170 
SA401ieO 
8A401190 
8A4O120O 
eA401210 
3A40122O 
8A401230 
eA^1249 
8A4012S0 
eA40i2£0 
8A401/70 
6(401280 
8A40I290 
flA40t300 
QA40131Q 
eA40l320 
8A401330 
8A40134O 



PROG kW 
PAGE 



08A4-0 
lA 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
AUX 1816 EXERCISER 



PART NO. 
FACE 



219642> 

t 















CE SERVICE 


STOP EXIT POINT 


8A401990 


















8A4013CO 


0074 





08F3 


IHN 


XIO 




HEAD 


TURN OFF PROCEED 


8A401370 


0075 





08EE 




XIO 




OSH 




8A401380 
8A401390 














NORMAL EXIT POINT 


8A401400 


















8A401410 


0076 


00 


66000000 


SAVE2 


LDX 


L2 


/OCOO 




8A401420 


0078 





709* 




MOX 




OQOO 


EXIT TO AUX LOADER 


6A401430 








•••****•*»••***•*•«*«•••••*•••••**•••••«•••••• 


8A401440 


















8A401450 


















8A401460 


0079 





08EE 


HBRES 


XIO 




HEAD 


READ CHARACTER 


8A401470 


007A 





6143 




LOX 


1 


67 




8A401480 


0C7B 


00 


C5000095 


HEARC 


LD 


LI 


HBTAB 




8A401490 


0070 





FOEF 




EOR 




HEAOC 




8A401500 


007f 


00 


4C180084 




BSC 


L 


HOHPA,*- 


CHAR COMPARE BRANOI 


8A401510 


0080 





71FF 




MOX 


1 


-1 


JUMP IF XRl GOES TO 


8A401S20 


0081 





70F9 


• 
• 
• 


MOX 




HEARC 
CHARACTER 


NOT FOUND IN TABLE 


eA401S30 
BA401S40 
eA401SS0 
eA401560 


0082 





C056 




LO 




HAB53 


LOAD ERROR CHAIt 


6A4015TO 


0083 





700 C 


• 
• 


MOX 




HOMP 




8A4O15a0 
6A401590 
8A40I600 


0084 





6907 


KIHPA 


STX 


1 


H0S*1 




8A401610 


0085 





C006 




LD 




H0S*1 




8A401620 


0086 





6200 




LDX 


2 







8A401630 


0087 





4804 




BSC 




E 




8A401640 


0088 





6208 




LOX 


2 


• 




8A4016S0 


0089 





1881 




SRT 




1 




8A401660 


008A 





0001 




STO 




HOSi-l 




8A4016'rO 


008B 


00 


65000000 


HOS 


LDX 


LI 


/OOOO 




8A4016M 


0080 


00 


C5OOD0D9 




LO 


•LI 


HABS3 




8A401690 


008F 





1200 




SLA 


2 





SHIFT LEFT OR S 


eA401700 


0090 





00 OB 


HOMP 


STO 




HrOUT 




8A40tT10 


0091 





08DB 




XIO 




HYOU 




8A401720 


0092 





70E3 




MOX 




SAVE 2 




8A401730 








**t***t*t**0*»»*t**i •**••*•***** ****••*•••**•• 


8A401740 








m 










8A401T50 


0093 





0802 


FARES 


XIO 




HNTPR 


TURN ON PROCEED 


6A4017M 


0094 





70E1 




MOX 




SAVE2 




8A40177D 








«*»•«**•»•»**•«•**•*••*•***••••••*••*•••••*••• 


eA401780 








• 










8A401790 








• 










SA401800 


0095 





0500 


HBTAB 


DC 




/0500 


END OF FIELD CHAR 


BA401810 


0096 





9000 




OC 




/9C00 




8A401820 


0097 





8800 




DC 




/BSOO 




8A401830 


0098 





8400 




OC 




/8400 




6A401840 


0099 





8200 




DC 




/B200 




8A401850 


009A 





8100 




OC 




/8100 




BA4018C0 


009B 





8080 




OC 




/8080 


f 


BA401S10 


009C 





8040 




OC 




/B040 




BA4018aO 


009D 





8020 




OC 




/8020 




BA401B90 


009E 





8010 




OC 




/BCIO 




BA401900 


009F 





5000 




OC 




/5000 




8A401910 


OOAO 





4800 




OC 




/4800 




8A401920 


OOAl 





4400 




OC 




/4400 




8A401930 ► 


00A2 





4200 




OC 




/4200 




8A401940 


O0A3 





4100 




OC 




/4100 




8A40t950 


00A4 





4080 




OC 




/4080 




8A401960 


00A5 





4040 




OC 




/4C40 




8A401970 


O0A6 





4020 




OC 




/4020 




8A401980 


OOAT 





4010 




OC 




/4010 




SA401990 


00A8 





2800 




OC 




72800 




8A4020eO 


00A9 





2400 




OC 




/2400 




8A402010 


OOAA 





2200 




OC 




/2200 


U 


8A402020 


DATE 




28FEB66 


01MAY66 








PROG ID 08A4-0 


EC NO. 


415120 


41S120A 








PACE 2 



o 


n 


il 


,-\ 


O 


^ ' o 


t 
' > ' 


1 

1 


-^ 





'-i 





"i 





' 1 





n 




^ j o 


-J ; o 


n o 


n ; 

s 


-^ 
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o 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
AUX 1816 EXERCISER 







'> 


n 


















4^ 


o • 










„4X- 





PART NO. 2196423 
PAGE 2A 



OOAB 





2100 


OC 


/2100 






8A402090 


OOAC 





2080 


OC 


/2C80 






8A402040 


OOAO 





2040 


DC 


/2040 






8A4020SO 


OOAE 





2020 


DC 


/2020 






8A4020eO 


OOAF 





2010 


DC 


/2010 






8A402070 


0080 





0000 


DC 


/OCOO 


SPACE 


8A4C2080 


OOBl 





4220 


DC 


/4220 






eA402090 


0082 





3000 


DC 


/3000 






8A402IC0 


O0B3 





2000 


DC 


/2000 






8A402110 


00B4 





1000 


DC 


/lOCO 






8A402120 


00B5 





0800 


OC 


/0800 






8A402130 


0086 





0400 


DC 


/0400 






eA4C2140 


00B7 





0200 


OC 


/0200 






8A4C2150 


OOBB 





0100 


DC 


/OlOO 






8A402160 


0089 





ooso 


DC 


/0C80 






eA402170 


OOBA 





0040 


OC 


/0040 






8A4C21M 


OOBB 





0020 


DC 


/0020 






8A4O2190 


OOBC 





0010 


OC 


/OOIO 






8A4C2200 


OOBD 





4420 


OC 


/4420 






8A402210 


OOBE 





8420 


OC 


/8420 


s 


" 


8A402220 


OOBF 





2420 


DC 


/2420 


ff 




8A4O2230 


OOCO 





0008 


DC 


/0C08 


END OF FIELD 


8A402240 


OOCl 





0004 


DC 


/0004 


ERASE CHARACTER 


8A402290 


00C2 





0002 


DC 


/0002 


ERASE FIELD 


8A4C2260 


00C3 





OOAO 


DC 


/OOAO 


• 




eA402270 


00C4 





0120 


OC 


/0120 


« 




8A4C22B0 


00C5 





8120 


OC 


/8120 


1 




8A402290 


00C6 





4120 


OC 


/4120 


1 




8A402300 


0OC7 





80A0 


OC 


/8CA0 


♦ 




8A402310 


00C8 





4000 


OC 


/4000 


MINUS SIGN 


8A402320 


0OC9 





6820 


DC 


/8820 


C^NT SIGN 


8A4C2330 


COCA 





8220 


OC 


/e220 


LESS THAN 


8A402340 


00C8 





BO&q 


DC 


/8060 


VERTICAL BAR 


8A4023S0 


OOCC 





8000 


OC 


/8000 


AMPERSAND 


BA402360 


OOCD 





4820 


DC 


/4e20 


EXCLAIMATION 


8A4e2370 


OOCE 





40AO 


OC 


/40A0 


SEMICOLON 


8A4023M 


OOCF 





4060 


OC 


/4060 


CORNER SIGN RT UPPER 


8A402390 


0000 





2220 


OC 


/2220 


PERCENT 


8A402400 


0001 





2120 


OC 


/2120 


UNDERSCORE 


6A402410 


0002 





20A0 


DC 


/20A0 


GREATER THAN 


8A402420 


0003 





2060 


OC 


/2060 


OUESTION MARK 


8A402430 


O0D4 





0820 


DC 


/0820 


COLON 


8A4C2440 


0005 





0420 


OC 


/042r 


NUMBER SIGN 


8A4C2450 


0006 





0220 


OC 


/0220 




SIGN 


8A4024eO 


0007 





0060 


OC 


/0060 


QUOTE MARKS 


eA402470 


0008 





2820 


OC 


/2820 


LINE FEED 


8A402475 


0009 





813E 


HAB53 DC 


/813E 




RETURN* A 


8A402480 


OODA 





lAlE 


OC 


/lAlE 




C 


8A4O2490 


0008 





3236 


OC 


/3236 




E 


8A402S00 


OODC 





1216 


DC 


/1216 






8A402S10 


0000 





2622 


DC 


/2622 






8A402S20 


OODE 





7E5A 


DC 


/7E5A 






8A402530 


OODF 





5E72 


DC 


/5E72 






BA402S40 


OOEO 





7652 


OC 


/7652 






8A4025S0 


OOEl 





5666 


OC 


/5666 






8A4025eO 


00E2 





629A 


OC 


/629A 






eA402570 


00E3 





9E82 


DC 


/9EB2 






8A402580 


DOE 4 





B692 


DC 


/B692 






6A402S90 


DOES 





96A6 


OC 


/9eA6 






8A4026C0 


00E6 





A221 


OC 


/A221 




SPACE 


8A4C2610 


DOE 7 





06BC 


DC 


/06BC 






8A402620 


00E8 





C4FC 


DC 


/C4FC 






8A402630 


00E9 





080C 


OC 


/08DC 






8A402640 


OOEA 





F0F4 


OC 


/F0F4 






8A4026S0 


OOEB 





0004 


OC 


/00D4 






8A4026eO 


OOEC 





E4E0 


OC 


/E4E0 






8A402670 


OOEO 





4000 


DC 


/4CO0 




• 


«A4026eO 


OOEE 





BOOS 


OC 


/BOOS 


f f 


EOF- SHIFT TO BLR 


8A402690 


DATE 




28FE866 


01MAV6« 








PROG ID 0BA4-0 


EC NO. 


415120 


415120A 








PACE 2A 
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IBM MAINTENANCE CIAGNOSTIC PROGRAM FOR THE 1800 SYSTC" 
AUX 1816 EXERCISER 



OOEF 


1109 




DC 


/1 109 


OOFO 


CZE6 




DC 


/C2E6 


OOFl 


FEF6 




DC 


/FEF6 


00F2 


OA8* 




OC 


/DAS* 


OOF 3 


02DE 




DC 


/020E 


0CF4 


C644 




OC 


/Cfc** 


OOFS 


4202 




OC 


/*2D2 


00F6 


F206 




DC 


/F206 


OCFT 


8E*6 




OC 


/BE46 


OOF 8 


8682 




OC 


/8682 


00F9 


C006 




OC 


/ceo* 


OOF A 


E203 


• 
OOQQ 


OC 


/E203 


0000 




EOU 


/D 


7007 




NNNN 


ECU 


/7C07 


081 S 




WWWM 


EQU 


/0813 


70*1 




TTTT 

* 


EQU 


/TOGO* 



OOFC 



OOFA 



•♦»•♦♦♦♦»•»♦••*♦•»•• 
END •-I 



BKSPt SHIFT TO RED 
EQUALS. APOSTROPHE 
(. I 

PLUSt MINUS 
CENT, LESS THAN 
VERTICAL BAR, AMPERSAND 
EXCLAIM, SEPICOLON 
CORNER. PERCENT 
UNDERSCORE, GREAT THAN 
QUESTION, COLON 
NUMBER, AT 
QUOTES, LINE FEED 

GO TO LOADER AT /O 
FOR CARD LOADER AT /35 
SET IN LOADER AT /O* 

RFTUR-/*-l THIS IS EQUAL TO 

THE BRANCH FROM THE LOADER 
TO RETUR IN THIS PROGRAM. 

♦»»••»»••»*••♦•»•••*••••♦ 
END CARD NEVER USED 



PART NO. 2196*23 
PACE S 



8A*02700 
eA*02710 
8A*02720 
8A*02730 
8A*027*0 
8A*02750 
8A*02760 
8A*02770 
8A*02780 
8A*02790 
8A*02800 
8A*02810 
8A*02820 
eA*02830 
8A*028*0 
8A*02850 
8A*028«0 
8A*02870 
8A*02880 
8A*02890 
8A*02900 



a 



DATE 
EC NO. 



28FE866 
*1S120 



ClMAV6ft 
*15120A 



PROG to 
PACE 



0SA4-0 



O 



r, 
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f> : O 
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CROSS REFERENCE LIST INC 
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SYMBOL 


VALUE 


REFERENCES 


AREA 


006 F 


0042 


BUILD 


00*1 


00*5 


CEOFF 


0060 


00*1.00*3,0073 


CEON 


0062 


003E,0C*6 


DSM 


006* 


C0SO,OC75 


CONE 


006 E 


00*0 


HAB53 


C009 


0082, 0C8D 


HARES 


0093 


O05l,OC57,005C 


H6RES 


0079 


005* 


HBTAB 


CC95 


0078 


HEAD 


0068 


007*,0C79 


HEADC 


0060 


C068,0C70 


HEARC 


007 B 


0081 


HERE 


0059 


OOSB.OCSO 


HNTPR 


0066 


00K,OC93 


HOMP 


0090 


0083 


HOKPA 


COS* 


00 7E 


HOS 


C080 


008*,0C85,00S* 


HYOU 


006 A 


0091 


HYOUT 


006C 


G06A,0090 


I MM 


C07* 


00 *E 


NNNN 


7007 


00(6 


NOT 


0050 


DOS A 


NOTRD 


0070 


00 *B 


QQQQ 


GOOD 


0078 


RETUR 


00*6 


00 FB 


SAVE2 


0076 


00 *7 , 0C5D, 0092 ,009* 


SENBI 


005E 


00*8,0C*9,00** 


TTTT 


70*1 


00(2 


HHHM 


C813 


0070 



DATE 
EC NO. 



28FEB66 
*15120 



C1NAY6« 
*15120A 



PROC ID 08A4-0 
PACE 3A 
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B. SEPARATE AND IDENTIFY THE REMAINING THREE DECKS. THE NAMES OF THE 
REMAINING DECKS ACCORDING TO THEIR ORDER IN THE 32-CARD DECK ARE 
AS FOLLOHS- 

1. AUX 2ND 1053 EXERCISER PROG. 

2. AUX 3R0 1053 EXERCISER PROG. 

3. AUX ATH 1053 EXERCISER PROG. 

THE AUX DIAGNOSTIC LOADER (PID 08 Al I MUST BE PRESENT IN AUX STORAGE 
BEFORE AN AUX PROGRAM DECK CAN BE LOADED. 

2.3 PAPER TAPE INPUT 

THE AUX DIAGNOSTIC LOADER IPAPER TAPE - PID 08A01 MUST BE PRESENT IN 
AUX STORAGE BEFORE AN AUX PAPER TAPE PROGRAM CAN BE LOADED. 

USE PROCEDURES 

BEFORE PROCEEDING, A PROGRAM MUST BE IN MAIN-CORE STORAGE RUNNING 
OR AT A WAIT INSTRUCTION READY TO START RUNNING. 

3.1 CARD INPUT LOADING PROCEDURE 

A. BE SURE THE 1'.42 IS AVAILABLE AND ALL CARDS ARE REMOVED. 

B. ON THE CE PANEL SET THE INTERRUPT SWITCH TO AUX INTERRUPT 
AND ALL THE CE SWITCHES TO THEIR ON POSITION lUPI. 

C. DEPRESS TE INTERRUPT TWO TIMES TO ASSURE THE 1*42 IS IN CE MODE. 
0. PLACE THE SEVEN CARDS OF THE AUX 1053 EXERCISER PROGRAM IN 

THE HOPPER OF THE 1442 AND FOLLOW WITH A BLANK CARD. 

NOTE 



1. PURPOSE 

iHt^iF ARE FOLR AUX 1053 EXERCISER PROGRAMS, ONE FOR EACH POSSIBLE 

1053 OH THE 1800 SYSTEM. THE ONLY DIFFERENCES AMONG THE FOUR PROGRAMS 

ARE ThF inCC "^QDIFIFR BITS. EACH PROGRAM TESTS THE MECHANICAL 

PERFijSHA',Ct iF ITS RESPECTIVE 1053 BY CAUSING THE 1053 TO PRINT A 

PRt -PR^-,-AMir, TEST PATTERN. IN ADDITION, THE PROGRAM OPERATOR CAN USE THE 

Ct Pi<OGSAV S..ItChES PRINT ANY DESIkED CHARACTER OR EXECUTE ANY CONTROL 

FUNCTION (F.G., SPACE, TAB, ETC.I. 

2. PREREJUISITtS 

2. 1 DEVICE AREA CODE 

IF THt DEVICE TO BE TESTED USES A CUSTOMER ASSIGNED AREA CODE, A NEW 
Aiix PhO&RAM DECK OR PAPER TAPE MUST BE CREATED. THE PROCEDURE IS 
PKESENTEO IN THE DOCUMENTATION OF THE AUX PROGRAM GENERATOR UTILITY 
(PID 08AC - CARD VERSION, PID 08A0 - PAPER TAPE VERSION) 
The PROGRAM LOCATIONS THAT MUST BE ALTERED ARE SPECIFIED BY A 
STATEMENT AT THt BEGINNING OF THE PROGRAM LISTING. 

2.2 CARD INPUT 

The card DECK SUPPLIED WITH THIS DOCUMENT CONTAINS FOUR OBJECT DECKS. 
EACH OBJECT DECK CONTAINS SEVEN CARDS AND IS FOLLOWED BY A BLANK 
CARD. UPON RECEIPT, SEPARATE AND IDENTIFY THE DECKS AS FOLLOWS- 

A. STARTING AT THE FRONT OF THE 32-CARD DECK, REMOVE THE FIRST EIGHT 
CARDS FROM THE 32-CARD DECK, PLACE A RUBBER BAND AROUND THE EIGHT 
CARDS, ANO IDENTIFY THE FIGHT-CARD DECK AS FOLLOWS- AUX 1ST 1053 
EXERCISER PROG. 



3.2 



EACH PROGRAM CARD HAS A CHARACTER ENTERED INTO COLUMN 80. 
THIS CHARACTER DEFINES THE CARD'S POSITION IN THE DECK 
ACCORDING TO THE FOLLOWING SEQUENCE, XIFIRST), THEN 0, 1. 2, 
3, 4, AND 5. THE CARDS CANNOT BE READ UNLESS THEY ARE PLACED 
IN THt HOPPER IN THE CORRECT ORDER. 

E. DEPRESS THE 1442 START PUSHBUTTON. READY INDICATOR SHOULD LIGHT. 

F. SELECT THE DESIRED ROUTINE FROM TABLE 1. 

G. DEPRESS CE LEVEL INTERRUPT PUSHBUTTON (ON CE PANEL! TO LOAD THE 
PROGRAM. (IF THE HOPPER OF THE 1442 DOES NOT GO EMPTY THE CHECK- 
SUM ROUTINE IN THE AUX DIAGNOSTIC LOADER MOST LIKELY REJECTED 
THE PROGRAM. CHECK THE CARDS FOR PROPER SEQUENCE ANO RETURN TO 
STEP A ANO TRY AGAI Nl . 

H. GO TO SECTION 3.3 

PAPER TAPE INPUT LOADING PROCEDURE 



A. 



C. 



D. 



BE SURE THAT THE 1054 T 
NO TAPE IN THE READER. 
ON THE CE PANEL SET THE 
THE CC SWITCHES TO THEI 
DEPRESS CE INTERRUPT PU 
IS PLACED IN CE MODE. 
PLACE THE FIRST TAPE CH 
THE SENSE PINS IN THE 1 
AUX OIADNOSTIC LOADER W 
IS LOADED INCORRECTLY). 
SELECT THE DESIRED ROUT 
DEPRESS CE LEVEL INTERR 
SHOULD START AND CONTIN 
READ. WHEN THE READER S 
FOLLOWING THE AUX PROGR 
THE 1054 SENSE PINS FOR 
DID NOT STOP AT SAID LO 



APE READER IS AVAILABLE ANO THAT THERE IS 

INTERRUPT SWITCH TO AUX INTERRUPT ANO ALL 
R ON POSITION (UP). 
SHBUTTON TWO TIMES TO ASSURE THAT THE 1054 

ARACTER OF THE PROGRAM DIRECTLY ABOVE 
054 READER. (THE CHECK-SUM ROUTINE OF THE 
III REJECT THE PROGRAM IF THE AUX TAPE 

INE FROM TABLE 1. 

UPT TO LOAD THE PROGRAM. TAPE ACTION 
UE UNTIL THE ENTIRE AUX PROGRAM HAS BEEN 
TOPS, THE FIRST TAPE FEED HOLE CHARACTER 
AM DATA SHOULD BE LOCATED DIRECTLY ABOVE 
A CORRECTLY STORED PROGRAM. IF THE TAPE 
CATION, RETURN TO STEP A TO RELOAD PROC. 



DATE 
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PROG ID 
PAGE 



08A5-0 
1 



DATE 
EC NO. 
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PROG ID 
PAGE 



08A5-0 
lA 
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J. 3 TYPICAL PROGRAM OPERATING PROCEDURE 



A. 

8. 



SELECT ADDITIONAL ROUTINES AS DESIRED FROM TABLE 1. 

TO RELEASE THE DEVICE TO THE CUSTOMER PROCEED TO SECTION 3.5 

TABLE 1. CE PROGRAM SWITCH SETTINGS 



TABLE 2. CHARACTER AND CONTROL-FUNCTION CODES 
I USING TYPING ELEMENT P/N I167769I 



*•***••*** 



ROUTINE 



NORMAL 

PRINT 

PATTERN 



ALTERNATE 

PRINT 

PATTERN 



CE SERVICE 
STOP 



SWITCHES 
8 9 10 11 12 13 14 15 

OOOOOOOl 







1 1 



PROGRAM 
TERMINATOR 



1111 



1 1 



SELECT 

CHARACTER 
OR CONTROL 
FUNCTION 



** CAUTION ** 



REFER TO TABLE 2 FOR 
CHARACTER AND CONTROL 
FUNCTION CODES. 



DATE 
EC NO. 



28FEB66 
415120 



FUNCTION 

THIS SWITCH SETTING INITIATES A ROUTINE 
THAT EXERCISES THE 1053. ALL POSSIBLE 
CHARACTERS ARE PRINTED, AND ALL POSIBLE 
CONTROL FUNCTION ARE EXECUTED. 

THIS SWITCH SETTING INITIATES A ROUTINE 
THAT IS THE SAME AS THE NORMAL PRINT- 
PATTERN ROUTINE EXCEPT A SHIFT-TO-REO OR 
SHIFI-TO-BLACK COMMAND IS EXECUTED BETWEEN 
EACH PRINT-CHARACTER OR" EXECUTE-CONTROL- 
FUNCTION COMMAND. 

THIS SWITCH SETTING CAUSES THE 1053 PROGRAM 
TO STOP BUI DOES NOT TERMINATE THE PROGRAM. 
IT IS RECOKMENOED TO USE THIS SETTING 
WHEN ADJUSTING THIS DEVICE. TO START THE 
ROUTINE, SELECT THE CE PROGRAM SWITCH 
SETTINGS AND DEPRESS CE INTERRUPT 
PUSHBUTTON. 

THIS SWITCH SETTING INITIATES A ROUTINE 
THAT TERMINATES THE 1053 PROGRAM. CALL 
AUX PROGRAMS USE THE SAME PROGRAM- 
TERMINATOR SETTING. 



FOLLOW THE TERMINATING PROCEDURE 
IN SECTION 3.5 



THIS ROUTINE ALLOWS THE PROGRAM 0P6RAT0R TO 
USE THE CE PROG. SWITCHES TO SELECT 
A CHARACTER FOR PRINTING OR A CONTROL 
FUNCTION FOR EXECUTION. 



3.4 



3.5 



PROG ID 08A5-0 
PAGE 2 



DATE 
EC NO. 





tc 


UC 


A 


3C 


3E 


B 


18 


lA 


C 


IC 


IE 





30 


32 


E 


34 


36 


F 


10 


12 


G 


14 


16 


H 


24 


26 


I 


20 


22 


J 


TC 


7E 


K 


58 


SA 


L 


5C 


5E 


M 


70 


72 


N 


74 


76 





50 


52 


P 


54 


56 


Q 


64 


66 


R 


60 


62 


S 


98 


9A 


T 


9C 


9E 


U 


80 


82 


V 


B4 


86 


w 


90 


92 


X 


94 


96 


Y 


A4 


A6 


2 


AO 


A2 






C4 


i 


rc 


2 


D8 


3 


DC 


4 


FO 


5 


F4 


6 


DO 


7 


04 


8 


E4 


9 


EO 


/ 


BC 


- 


84 


f 


80 


$ 


40 


• 


00 


I 


FE 


) 


F6 


• 


D6 


♦ 


DA 


« 


C2 


• 


E6 



SPACE gl 

CAR RETURN 81 
TABULATE 41 

BACKSPACE 11 

SHIFT TO RED 09 
SHIFT TO BLK 05 
LINE FEED . 03 
EXCLAIMATION 42 
QUOTE H'»RKS E2 
NUMBER SIGN CO 
AT SIGN 04 

QUESTION 86 

COLON 82 

UNDERSCORE BE 

GREATER THAN 46 
LOGICAL NOT F2 
PERCENT 06 

SEMICOLON D2 

VERTICAL BAR C6 
AMPERSAND 44 

CENT 02 

LESS THAN DE 



CE SERVICE STOP 

IcfM^L!!'*!?'" "°'' ROUTINE STOPS THE 1053 PROGRAM BUT DOES NOT 
lllV^TlllTr^lTsr- " '' «"0"«ENDED TO USE THIS STOP uTh 

TERMINATING PROCEDURE 

TO TERMINATE THE PROGRAM AND RETURN THE DEVICE TO THE CUSTOMER- 
A. SET THE CE PROGRAM SWITCHES TO OOOOllll -CE SERVICE STOP 

ITHE ONLY REASON FOR USING THIS SETTING IS TO STOP ANY DEVICE 
ACTION WHICH HAY CAUSE AN INTERRUPT*. DEVICE 

SET THE CE PROGRAM SWITCHES TO 11111111 -TERMINATOR SETTING 
AND DEPRESS THE CE INTERRUPT LEVEL PUSHBUTTON ONCE AND ONLY* 
ONCE. (A SECOND DEPRESSION OF THE CE INT. PUSHBUTTON WILL 
RESULT IN THE AUX DIAGNOSTIC LOADER TRYING TO LOAD A NEW 
PROGRAM IF THE READER IS READY). 

NOTE 

TO OFFSET THE POSSIBILITY THAT THE INPUT DEVICE MIGHT BE 
MALFUNCTIONING THE NEXT TIME THE 1800 SYSTEM NEEDS SERVICING 
THE FOLLOWING PROGRAM SHOULD BE LOADED INTO AUX CORE AT THE 
CONCLUSION OF EACH SERVICE CALL - 

A. CARD INPUT 

Acrco^^-/"? ***^ PACKED READ EXERCISE PROCRAfl (P|0 08AAI 
AFTER ASSURING THE PROGRAM IS BY PUNCHING CARDS, CE 
SWITCH SETTING OOOOOOOl, SET IN THE FAREWElt OPTION. 
CE SWITCH SETTING 00000000 AND LEAVE THE SWITCHES AT 

J!^13„^^^^"**^* ^° ENSURE THE GREATEST PROTECTION TO THE 
CUSTOMER. DEPRESS CE INTERRUPT. =«•■ lun lo iHfe 



B, 



28FEB66 
415120 



PROG ID 
PACE 



08A5-0 
2A 



) 

) 

^ 



1 
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LOAD THE AUX t054/5S EXERCISE PROCRAN IPIO 08A8I. 
AFTEK ASSURING THE PROGRAM IS IM Bt PUNCHING TAPEt CE 
SWITCH SETTINGS OOOOOOOl, SET IN THE FAREHEU OPTION. 
CE SWITCH SETTING 00000000 ANO LEAVE THE SNITCHES AT THIS 
SETTING TO ENSURE THE GREATEST PROTECTION TO THE 
CUSTOMER. DEPRESS CE INTERRUPT. 

«. PRINTOUTS 

All FOUR 1053 PROGRAMS PRODUCE THE SAME PRE-PROGRAHEO PRINTOUT (PtCURE II. 
IN AOOITION, THE PROGRAM OPERATOR CAN USE THE CE PROGRAM SWITCHES TO PRINT 
ANY CHARACTER OR EXECUTE ANY CONTROl FUNCTION THAT HE OESIREO. ALL 
ALPHABETICAL CHARACTERS ARE PRINTED IN UPPER CASE. 

5. COMMENTS 

A PROGRAM MUST BE IN MAIN-CORE STORAGE ANO MUST BE RUNNING OR REAOV 

TO START BEFORE A 1053 PROGRAM CAW BE LOADED. ASSUMING THAT THE 

AUX DIAGNOSTIC LOADER IS PRESENT IN AUXILIARY-STORAGE *N0 THE PROCRAH IS IN 

J!:'5.?!*5" *"'* """* ^° ^^ """• DEPRESSING THE CE LEVEL INTERRUPT KEY 
CAUSES THE PROGRAM TO BE STORED AND STARTED. 

UPON BEING ENTERED. THE 1053 PROGRAM TURNS ON THE CE MODE, CLEARS THE 
OSW, ANO SENSES THE CE PROGRAM SWITCHES. IF THE PROGRAM SENSES A 
PROaRAM TERMINATOR IlimiU) IT SETS A BRANCH ADDRESS IN THE 
LOADER TO TERMINATE THE 1053 PROGRAM ANO TURNS OFF THE CE NODE. 
CONTROL IS THEN RETURNED TO THE CUSTOMER S MAIN-LINC PROGRAM. IF THE 
1053 PR08RAM DOES NOT SENSE A PROGRAM TERMINATOR, THE PROGRAM 
EXECUTES ONE OF THE ROUTINES DISCUSSED IN THE FOLLOMING PARAGRAPHS* 

i.l NORMAL PRINT-PATTERN ROUTINE 

THE NORMAL PRINT-PftTTERN ROUTINE EXERCISES THE 1053. ALL POSSIBLE 
CHARACTERS ARE PRINTEO ANO ALL POSSIBLE CONTROL FUNCTIONS ARE 
EXECUTED. CONTROL IS RETURNED TO THE CUSTOMER'S MAIN-LINE PROGRAM 
AFTER EACH CHARACTER IS PRINTED OR CONTROL FUNCTION IS EXECUTED. 

5.2 ALTERNATE PRINT-PATTERN ROUTINE 

THE ALTERNATE PRINT-PATTERN ROUTINE EXERCISES THE 1053 AS OESCRIBEO 
IN PARAGRAPH 5.1 BUT ADDS A SHIFf-TO-REO OR SHIFT-TO-BLACK COMMAND 
BETWEEN EACH PRINT-CHARACTER OR EXECUTE-CONTROL -FUNCTION COMMAND. 
CONTROL IS RETURNED TO THE CUSTOMER'S MAIN-LINE PROGRAM AFTER EACH 
CHARACTER IS PRINTED OR CONTROL FUNCTION IS EXECUTED. 

5.3 SELECT-CHARACTER-CR-CONTROL -FUNCTION ROUTINE 

THE SELECT-CHARACIER-OR-CONTROL -FUNCTION ROUTINE ALLOHS THE PROGRAM 
OPERATOR TO USE THE CE PROGRAM SWITCHES TO SELECT A CHARACTER FOR 
PRINTING OR A CONTROL FUNCTION FOR EXECUTION. CONTROL IS RETURNED TO 
THE CUSTOMER'S MAIN-LINE PROGRAM AFTER EACH CHARACTER IS PRINTED OR 
CONTROL FUNCTION IS EXECUTED. 

6. APPENDIX 



AABBCCDDEEFFG6HHHJJKKLEMMNN00PP(lQRRSSTTUUVVWWXXYYZZl{2*3«»-5)6; 7*8 'g'^O I »-/_-»»« 
AABBCCD0EEFFGGHHIIJJKKLLMMNMOOPPQQRRSSTTUUVVWWXXYYZZl<2*JC»-5»f.;7*«'9"0|#-/_-T,t 
LINE 



LIME. 

TAB 
TAB 



FEED 
FEED 




FIGURE 1 
SAMPLE OUTPUT OF AUX 1053 



DATE 
EC NO. 



28FESA6 
«15120 



PROG ID 
PAGE 



0«AS-0 

3 



DATS 
EC NO. 



28FEB66 
415120 



PROG ID 
PAGE 



08A5-0 
3A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE laOO SYSTF.H 



AUX 1053 EXERCISER 

1ST CHAR AND CTRL EXERCISER 



PART NO. 
PACE 



2196427 
lA 



02BC 



ABS 

ORG /36 

IF THIS PROG IS TO BE USED FOR A MACHINE 
WITH A DIFFERENT AREA CODE, THE LOCATION WHICH 
REFER TO THE LABEL AREA IN SVManL TABLE MUST 
BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN * 
KOOIFlfcO AUX a-8 OBJECT DECK. SEE AUX CE PROC 
GENLRAIOR WKITE-UP FOR PROCEDURE. 

»»»}(»»»»»*♦*»«»»♦»»♦»»♦»»♦»»»»♦•<•»»»»»♦»»♦»»»•♦»* 



1ST 1053 T(rPEV.RITEP DIAGNOSTIC PROG 
THIS PROG CAN HE LOADED FR0I4 CARDS OR PAPER TAPE 



CE BIT SW SETTINGS 



0000000 I 
COOOllOl 



OOOOllll 
ILUUI 1 



NORMAL PRINT PATTEKN 
NORVAL PRtNT PATTERN 
♦ WITH ALTtRNAfE COLOR 

CE SERVICE STQO 
PROGRAM TERMINATOR 



ALL OTHER CE BIT SW COMBINATIONS 
« WILL ACT AS CHAR OR CONTROL 
f COMMANDS. SEE REFEPENCF. MANUALS 
t rCR CHARACTER AND CONTROL CODE 
♦ BIT STRUCTURE 

OTHER OPERATING INSTRUCTIONS 

CLEAR ALL TAD SETTINGS AND 
» PLACE A NEW TAB STOP AT 
» ABOUT 40 

SET MARGINS AT IC AND 90 TO 
* ALLOW EXACTLY 80 PRTNT POS 

THIS PROGRAM WAS WRITTEN TO BE OPERATED WITH 
• AN UPPER CASE/ UPPER CASE TYPE CLEMENT 
» PART NO. 1167969 

FOR ADDITIONAI INFORMATION ABOUT PROG. OPERATION 
REFER TO TKE PROGRAM DESCRIPTION WRITE-UP. 

Al'X PROG ENTRY POINTS 

1ST PASS ENTRY 

THE NEXT EIGHT WORDS WILL NOT APPEAR IN CORE WHEN 
» USING THE AUX PAPER TAPE DIAGNOSTIC LOADER 



0036 





1000 


0037 





1000 


C038 





1000 


003^9 





1000 


C03A 





1000 


003B 


00 


6500700T 


ao3o 





69F7 



NOP 

NOP 

NOP 

NOP 

NOP 

LDX LI NNNN 

STX 1 /35 



003E C033 



LO 



OSM 



NO OPERATION 

NO OPERATION 

NO OPERATION 

NO OPERATION 

NO OPERATION 

RESTORE LOCATION NICE 

» IN AUX LOADER 

PLACE BRANCH 



8A->0000U 

8A400010 

8A'>00020 

BA-VOOOSO 

8A'i00040 

8A'.0OO50 

8A400060 

8A'.O0O7O 

8A4a0080 

8A<.00090 

8A40010t> 

SA'.OOHO 

8A'iOO120 

8A'iOOl30 

8AAOOK0 

BAAOOISO 

8A400160 

8A400170 

8AA001BP 

8A'i0019a 

8A«.CO20O 

8A40O210 

8A400220 

8A«00230 

8A*0O2'.0 

8A<>00250 

8A40O260 

8A40O2 70 

8A400280 

8A<.00290 

eA40O3O0 

8A4OO310 

8A'V0O320 

8A400330 

8 44003*0 

8A400350 

8A400360 

8A4Q0370 

BA'tOOSBO 

8A40039a 

8A<V00400 

8A4004IO 

aA<>0O42a 

8A<.00430 

8A<t00440 

8A400450 

8A400460 

8A'iO0470 

8A400480 

8A400490 

8A400S00 

SA'iOOSlO 

8A400S20 

8A*005dO 

eA'.OOSW 

BA'rOOiSO 

8A'>00S6C 

8AhO05T0 

&A400580 

8A400590 

3A400600 

8A400610 

8A400620 

8A40O630 

SA'>0064a 

8A400650 

8A400660 

8A'.00670 



003F D0C4 



STO /04 * TO RETUR LABEL 



0040 





6107 


0041 





C16E 


0042 





E839 


00 43 





D16E 


0044 


<3 


71FE 


0045 





70FB 


0046 





0829 


0047 





6A21 


0043 





0829 


0049 





0822 


004A 





1008 


a04B 





DO 2D 


004C 





FOIF 


004D 


00 


4C 180064 


004F 





F020 


0050 


00 


4C 180068 



0052 F025 

0053 00 4C18007D 

0055 F018 

0056 00 4C18005A 



0058 
3059 



081B 
700E 



D05A COlO 
005B F015 
005C OOOE 
005D 00 4C04007D 
005F C816 



0060 





DO 18 


3061 





18D0 


3062 





u8l3 


0063 





70F4 



0064 00 66000813 

0066 6A9D 

0067 0806 



0068 00 66000000 
006A 70A2 



ADD AREA CODE TO THE I/O COMMANDS 



LDX 
BUILD LD 
OR 
STO 

MOX 
MDX 

* 



RETUR XIO 
STX 
XIO 
XIO 
SLA 
STO 
EOR 
BSC 



I 7 

I CEOFF 
AREA 

1 CEOFF 

1 -2 
BUILO 



GET lOCC WORD AND 

* OR IN AREA AND 

* PLACE SACK 



ALL BUT 1ST PASS ENTRY POINT 



EOR 
BSC 



EOR 
BSC 



EOR 
BSC 



CEON 
2 SAVE2*l 
DSW 
SENBI 
8 

AID 
SENBI 
L NOTRDt*- 

CEON 
L SAVE2t*- 

CALL 

L NORMA, ♦- 

CEOFF 

L LUMP,»- 



SET CE MODE 

SENSE DEVICE STATUS 
SENSE CE SW 70 ACCOM 



BR SW TERMINATE 

BR CE SERVICE STOP 
BR TO NORMAL ROUTINE 
BR TO SHIFT NORMAL 



EXIT XIO XIOA TYPE CHARACTER 
MDX SAVE2 

RED / BLACK ALTERNATE ROUTINE 



* 




RED / B 


* 






LUMP 


LD 


TEHT-Q 




EOR 


CE0N»1 




STO 


TEMfO 




BSC L NORMA, E 




LOD 


REDBK 




STO 


AID 




RTE 


16 




STD 


REDBK 




MDX 


EXIT 



tttt* ******************************** ******** 

EXIT POINTS TO AUX LOADER 
i,t.*tt********t*********** 

TERMINATE EXIT POINT 

NOTRD LOX L2 UWWU 

STX 2 /G4 

XIO CEOFF 
* 

* NORMAL EXIT POINT 
* 

SAVE2 LDX L2 

MOX QOQQ EXIT TO AUX LOAOEa 
tt********"********** ******************* ****** 



CONSTANTS AND/OR I OCC KORCS 



8A400680 

8A403690 

8A400700 

8A400710 

8A400720 

8A400730 

8A400740 

8A400750 

8A400760 

8A400770 

8A400780 

8A400790 

8A400800 

8A400810 

8 »400820 

8A40083I) 

8A400840 

8A4008S0 

8A400860 

8A400S70 

8A400a80 

8A400890 

8A400900 

8A400910 

8A400920 

8A400930 

8A400940 

8A4009SO 

8A400960 

8A4009rO 

CA400980 

8A40099C 

3A40I00O 

8A4C10tO 

8A401020 

aA40J030 

8A4aiO*0 

8A4010SO 

8A401060 

8A401070 

8A401080 

BA401090 

8A401100 

8A401110 

SA40tl20 

8A401130 

8A401140 

8A401I50 

8A401160 

8A401170 

8A401180 

8A4O1190 

8A4M200 

8A401210 

8A40I220 

8A401230 

8A401240 

8A40t25Q 

8A401260 

8A401270 

8A401280 

SA401290 

8A40130CI 

8A40I310 

8A401320 

8A401330 

8A401340 

8A401350 



OATfc- 
£C NO. 



2(1FEB66 
415120 



PROG ID 
PAGE 



08A5-O 
I 



DATE 
EC NO. 



28FEB66 
415120 



PROG [0 
PAGE 



08A5-0 
lA 



IBM MAlNTENANCt DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 10i3 EXERCISER 

1ST CMAR AND CTRL EXERCISER 



006B 
006C 
006C 
0060 
006E 
006F 
0070 
0071 
0072 
0073 
007* 
0075 
0076 
00 7 7 
0078 
0079 



0000 
0000 
FFOO 
0760 
OCOO 
0000 
FOOO 
0001 
7041 
0701 
0079 
0100 
0500 
0900 
OEOO 
0000 



007A OFFO 
007B FOOF 
007C 080? 



00 70 
007F 
0080 
0081 
0082 
0083 
C08'i 
0085 
0086 
0088 
008A 



00 65000000 
690 7 

C006 

6200 

4804 

6208 

1881 

0001 
00 65000C86 
OC C5OOOOB0 
DOEE 



008B fOEF 

008L 00 4C18009B 

008E COEA 

008F FOEA 

0090 00 4Cie00A3 

0092 C0E6 

009J 00 4CI800AE 



0095 
0096 
0097 



C0E3 
1200 
DOEl 



0098 00 7401007E 
009A 7030 



009 B 
009C 



C800 
18C8 



0090 00 050000BO 
009F 00 65000000 



OOAl 
00A2 



DATE 
EC NO. 



690C 
TOOC 



TEHPQ DC 

BSS 
SENBI OC 

DC 
CEOFF OC 

DC 
CEON DC 

OC 
DSM DC 

DC 
XIOA DC 

OC 
REDBK OC 

DC 
CALL DC 
AID OC 
* 



GTRCH DC 
GBCHA DC 
AREA DC 



* 



NORMA LOX 
HOKPA SIX 
LD 
LDX 
6SC 
LDX 
SRT 
STO 
LOX 
LO 
STO 



/OOOC 



/FFOO 

/0760 

/OCOO 

/OOOO 

/FOOO 

/OOOl 

TTTT 

/OTOl 

AtO 

/OlOO 

/0500 

/0900 

/OEOO 

/OOOO 



/OFFO 
/FOOF 
/n802 



TERMINATE CONSTANT 
SENSE CE SWITCHES 
SHIFT NORMAL COHP 
CE OFF lOCC 
CONSTANT 
CE ON lOCC 

SENSE OSW lOCC 

MRITE lOCC 



OUTPUT CHARACTER 

* THIS LOCATION MUST 
» BE ODD TO LOAD A*0 

♦ THE SAME. 



HOS 



1ST AREA AND MOD BIT 
» CHANGE THIS VALUE FOR A 
» 1053 WITH ANOTHER AREA 
• CODE OR MODIFIER BIT. 

PRINT PATTERN ROUTINE 



LI 

1 H0S*1 
HOS+1 

2 
E 

2 S 

1 

HOS*l 
LI HOS 
LI STAR 

AID 



EOR 

BSC 

LO 

EOR 

BSC 

LD 
BSC 

• 

LO 

SLA 

STO 

MOX 
MDX 

* 



GBCHA 
GBC,*- 

AIO 

GTRCH 
GTR,*- 

AIO 
TEC,»- 



XRl HALF COUNT 



TEST FOR GO BACK CHAR 
* AND BR IF TRUE 



TEST FOR GO THRU CHAR 
• AND 3R IF TRUE 



TERMINATOR BRANCH 
SHIFT LEFT OR 8 



AID 
2 
AID 
L NORMA*l,l 
EXIT 

* CO BACK ROUTINE 

• 

GBC LOO AID 

RTE 8 

STO LI STAR 

POOF LOX LI /OOOO PLACE NEW OIST IN XRl 

STX 1 N0RMA*1 

MDX HONPA 

* 



PART NO. 2196427 
PACE 2 



8A401360 

8A4013rO 

8A40I380 

8A401390 

8A401400 

8A4Ui410 

6A401420 

8A401430 

8A401440 

8A401450 

8A401460 

8A401470 

8A401430 

8A401490 

8A401S00 

8A401S10 

8A401S20 

8A401530 

SA401540 

8A401550 

8A40I560 

8A401570 

8A401530 

8A401590 

8A401600 

8A401610 

8A401620 

8A40t630 

8A401640 

8A40165a 

8A401660 

eA401670 

8A401680 

8A401690 

eA401700 

3A4017I0 

8A40t720 

8A401730 

8A401T40 

8A401T50 

8A40ir60 

8A401770 

8A401T80 

BA401790 

8A401800 

8A401810 

8A401820 

8A401830 

8A401840 

8A4018S0 

8A401860 

8A401870 

8A401880 

8A40I890 

8A401900 

8A40I9I0 

8A401920 

eA401930 

8A401940 

8A40t9S0 

8A401960 

8A401970 

8A40t980 

8A40t990 

8A402000 

8A4020I0 

8A402020 

8A402030 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEN 



AUX 1053 EXERCISER 

1ST CHAR AND CTRL EXERCISER 



00A3 C805 
0OA4 18C8 
0OA5 00 DSOOOOBO 

0OA7 00 7402007E 
00A9 00 6580007E 
OOAB 69F4 
OOAC 6901 
OOAD 7001 



GTR 



GO THRU ROUTINE 



LDO 
RTE 
STO 



ABC 



OOAE 
OOAF 



OOBO 

OOBl 

00B2 

00B3 

00B4 

00B5 

0OB6 

0OB7 

0098 

00B9 

OOBA 

OOBB 

008C 

OOBO 

OOBE 

OOBF 

OOCO 

OOCl 

0OC2 

00C3 

00C4 

00C5 

0OC6 

00C7 

OOCB 

00C9 

OOCA 

OOCB 

OOCC 

OOCD 

OOCE 

OOCF 

OOOO 

OODl 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

OODA 

OODB 

OODC 

OOOO 

OOOE 

OOOF 

OOEO 



28FEB66 
415120 



PROC 10 
PAGE 



08AS-0 
2 



DATE 
EC NO. 



6100 
70FB 

8181 

FOOF 

3C3E 

181A 

ICIE 

3032 

3436 

1012 

1416 

2426 

2022 

7C7E 

S85A 

5C5E 

7072 

7476 

5052 

5456 

6466 

6062 

989A 

9C9E 

B0B2 

B4B6 

9092 

9496 

A4A6 

A0A2 

»^CFE 

D8DA 

DCOE 

F0F2 

F4F6 

0002 

0406 

E4E6 

E0E2 

C4C6 

C0C2 

BCBE 

8486 

8082 

FOOF 

5E20 

7434 

0312 

3434 

3081 

FOOF 



28FEB66 
415120 



MDX 
LOX 
STX 
STX 

MOX 

* 



TEC LOX 

MOX 

STAR DC 
DC 
OC 
DC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 
OC 
DC 
DC 
DC 
DC 
OC 
OC 
OC 
OC 
DC 
DC 
OC 
DC 
DC 
OC 
OC 



AID 
8 
LI STAR 

L NORMAt-lta 

II normal; 

1 POOF* I 
1 N0RKA*1 
HOMPA 
****** ***»********^*t****»**m***^^^t 

INITIALIZATION FOR ADDITIONAL 
♦ PRINT PATTERNS 



ABC 
****** **********»t*»t*********^t^^^^ 



/8iei 

/FOOF 

/3C3E 

/181A 

/ICIE 

/3032 

/3436 

/1012 

/1416 

/2426 

/2022 

/7C7E 

/585A 

/5C5E 

/7072 

/7476 

/5052 

/54S6 

/6466 

/6062 

/989A 

/9e9E 

/B0B2 

/B4B6 

/9092 

/9496 

/A4A6 

/A0A2 

/FCFE 

/D80A 

/DCOE 

/F0F2 

/F4F6 

/D002 

/0406 

/E4E6 

/E0E2 

/C4C6 

/C0C2 

/BCBE 

/8486 

/8082 

/FOOF 

/5E20 

/7434 

/0312 

/3434 

/3081 

/FOOF 



CRt CR 

CO BACK, CO THRU 

A 

B 

C 

D 

E 

F 

6 

H 

I 

J 

K 

L 

H 

H 



P 



R 

s 

T 
U 
V 

w 

X 
V 
2 
I 
2 
3 
4 
S 
6 
7 
8 
9 




CO BACK. GO THRU 

t,l 

N,E 

LINE FEEO.F 

E,E 

O.CR RETURN 

CO BACK, GO THRU 



PART NO. 2196427 
PAGE 2A 



8A402040 

8A40M50 

8A402060 

8A402070 

8A402080 

8A402090 

8A402100 

8A4021I0 

BA402120 

8A402130 

8A402I40 

8A402150 

8A402160 

8A402170 

8A4Q21S0 

8A402190 

8A402200 

8A402210 

8A402220 

8A402230 

8A40;240 

8A402250 

8A402260 

8A402270 

8A4022B0 

8A402290 

8A402300 

8A4023I0 

8A402320 

8A402330 

8A402340 

8A402350 

8A402360 

8A4023T0 

8A402380 

8A402390 

8A402400 

8A402410 

BA402420 

SA402430 

8 A402440 

8A402450 

8A402460 

6A402470 

8A402480 

8A402490 

eA<>02500 

8A402510 

8A402S20 

8A402530 

8A402S40 

8A402S50 

8A402560 

8A402570 

8A402580 

8A402590 

8A402600 

8A402610 

8A402620 

8A402630 

8A402640 

8A402650 

8A402660 

8A402670 

8A402&8a 

8A402690 

8A402700 

aA402710 



PROG ID 
PAGE 



08A$-0 
2A 



O O O O O O O O O O () O O O O O O {) C O f) O O O O () o o o o o o 



O O O c c c c C C O O o c c o c o c o c c c c c c c c o o o o 



F 

L 



I6M MAINftfjANCt OIAGNOSTIC PROGRAM FOR THE 1800 SrSTEM 



AUX 105} tXERCISER 

1ST CHAR A';D CKL LXERCISER 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1053 EXERCISER 

1ST CHAR AND CTRL EXERCISER 



PART NO. 2196427 
PAGE 3A 



OOEl 





9E3C 




DC 


/9E3C 


T.A 




8A402720 


0OE2 





IS-,! 




DC 


/10*1 


B.TAS CHAR 




8A402730 


1.0E3 





'.'.09 




DC 


/'i',09 


♦,SH RED 




8A402740 


0OE<. 





<.605 




DC 


/-ieos 


,SH BLK 




8A402750 


00E5 





'i009 




OC 


/'.009 


».SH RED 




8A'i02760 


00E«, 





'•205 




DC 


/'i20 5 


,SH BLK 




8A402770 


OOEl 





0-^09 




DC 


/0409 


•,SH RED 




8A4027aO 


0OE8 





0605 




DC 


/0605 


.SH BLK 




8A402790 


00E9 





0009 




DC 


/0009 


. ,SH RED 




8A402800 


OOEA 





0205 




OC 


/02o5 


,SH BLK 




8A4028ta 


30EB 





2181 




DC 


/2181 


SPACE, CR RETURN 




8A402820 


OOEC 





FOOF 




OC 


/FOOF 


GO BACK, GO THRU 




8A402830 


OOED 





<•! lA 




DC 


/'•tlA 


TAB CHAR.B 




8A402840 


OOEE 





3C1C 




OC 


/3C1C 


A.C 




8A4028S0 


OOEF 





5821 




DC 


/5a21 


K, SPACE 




8A40286a 


OOFO 





9A21 




DC 


/9A21 


S, SPACE 




8A402870 


OOFl 





5'.21 




OC 


/5*2l 


P. SPACE 




8A4023aO 


0OF2 





3C21 




DC 


/3C21 


A, SPACE 




8A402890 


OOF 3 





1C21 




OC, 


/1C21 


C, SPACE 




BA4029U0 


CCF* 





3<.2l 




DC 


/3<.21 


E, SPACE 




8A4029ia 


DOF 5 





2203 




DC 


/2203 


I.LF 




8A'«02920 


30F6 





117* 




DC 


/tl74 


OK SP.N 




8A402930 


COF 7 





0311 




DC 


/0311 


LF,BK SP 




8A402940 


OOFS 





300 3 




DC 


/300 3 


D.LF 




8A'>02950 


00r9 





I13<. 




DC 


/1134 


BK SP,E 




8A462960 


OOFA 





0311 




DC 


/03H 


LF.BK SP 




8A402970 


OOFB 





968 1 




DC 


/9681 


X,CR RETURN 




eA4029aO 


30FC 





FOOF 




DC 


/FOOF 


GO BACK, GO THRU 




8A402990 


OQFD 





0000 


* 


DC 


/OOOO 


TERMINATOR 




8A403000 
8A403010 


OOOD 






i-OO 


tou 


/O 


GO TO LOADER AT 


/D 


8A'tO3020 


7037 






H'WH 


FUU 


/70D7 


FOR CARD LOADER 


AT /35 


8A403030 


S I 3 






wwww 


EOU 


/0813 


SET IN LOADER AT 


/0« 


8A403040 


70<tl 






ITTT 

• 


EOU 


/7000H 


9ETUR-/4-1 THIS IS 
THE BRANCH FR01 
10 RtlUR IN THIS 


EQUAL TO 

THE LOADER 

PROGRAM. 


8A'*03050 
8A403060 
8A403070 










8A403080 


nOFE 




OOFO 




END 


»-l 


END CARD NEVER USED 


8A403090 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


ABC 


OOAB 


AID 


0079 


AREA 


007C 


BUILD 


0041 


CALL 


0078 


CEOFF 


006E 


CEON 


00/0 


OSH 


0072 


EXIT 


0058 


G8C 


009B 


GBCHA 


007B 


GTR 


0CA3 


GTRCH 


007A 


HOf PA 


007F 


HOS 


0086 


LUMP 


005A 


NNNN 


7007 


NORMA 


007D 


NOTRD 


0064 


POOF 


009F 


0000 


0000 


REDBK 


00 76 


RETUR 


0046 


SAVE2 


0068 


SENBI 


006C 


STAR 


ODBC 


TEC 


OOAE 


TEMPO 


006 B 


TTTT 


7041 


wwww 


0813 


XIOA 


0074 



REFERENCES 
GOAF 

0048,0060, 0074, 008 A, 008E, 0092, 0095, 0097, 009B,OOA3 

0042 

0045 

00:2 

0041,0043,0055,0067 

0046, 004F, 0058 

O03E,0O48 

0063, 009A 

008C 

0088 

0090 

008F 

00A2,OOAO 

007F, 0080, 0085, 0086 

00 56 

003B 

0053,OC50,OC98,OOA1,OOA7,OOA9,OOAC 

0040 

OOAB 

006A 

005F,0062 

OOFE 

0047,0050,0059 

0049, 004C 

0088,009D,00A5 

0093 

005A,005C 

0072 

0064 

0058 



DATE 
EC NO. 



28f EB66 
415120 



PROG ID 
PAGE 



08A5-0 
3 



DATE 
EC NO. 



2aFEB66 
415120 



PROG ID 
PAGE 



08A5-0 
3A 



IBM MAINTENANCE 01 AGNOSTIC PROGRAM I'OR THE 1800 SYSTEN 



AUX 1033 EXERCISER 

2N0 CHAR AND CTRL EXERCISER 
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IBM MAINTENANCE OlAGNOiTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 10S3 EXERCISER 

2N0 CHAR AND CTRL EXERCISER 



PART NO. 2196427 
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02BC 



0036 





1000 


0037 





1000 


0038 





1000 


0039 





1000 


003A 





1000 


003B 


00 


65007007 


0030 





69F7 



003E C033 



ABS 

ORG /36 

IF THIS PROG IS TO 66 USED FOR A MACHINE 
WITH A DIFFERENT AREA CODE, THE LOCATION WHICH 
REFfcR TO THE LABEL AREA IN SYMBOL TABLE MUST 
BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 
MODIFIED AUX 8-8 OBJECT DECK. SEE AUX CE PROG 
CENCRATOR MRITE-UP FOR PROCEDURE. 

******* ***•***<-«•*•**•••**•*•**• •*••*••*•**••***•* 



2N0 1053 TYPEWRITER DIAGNOSTIC PROG 

»*««**«****»•**••*•*«••*«••*•»•••*« 

THIS PROG CAN BE LOADED FROM CARDS OR PAPER TAPE 

CE BIT SW SETTINGS 

00000001 NORMAL PRINT PATTERN 
OOOOUOl NORMAL PRINT PATTERN 

• WITH ALTERNATE COLOR 
OCOOlllI CE SERVICE STOP 
llUllll PROGRAM TERMINATOR 

ALL OTHER CE BIT SW COMBINATIONS 

» WILL ACT AS CHAR OR CONTROL 

> COMMANDS. SEE REFERE-^CE MANUALS 

* HCR CHARACTER AND CONTROL CODE 

* BIT STRUCTURE 

OTHER OPERATING INSTRUCTIONS 

CLEAR ALL TAB SETTINGS AND 
» PLACE A NEW TAB STOP AT 
* Ai>OUT 40 

SET MARGINS AT 10 AND 90 TO 
» ALLOW EXACTLY 80 PRINT POS 

THIS PROGRAM WAS WRITTEN TO BE OPERATED WITH 

♦ AN UPPER CASE/ UPPER CASE TYPE ELEMENT 

• PART NO. 1167969 

FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 
REFER TO THE PROGRAM DESCRIPTION WRITE-UP. 

A'lX PROG ENTRY POINTS 

1ST PASS ENTRY 

THE NEXT EIGHT WORDS WILL NOT APPEAR IN CORE WHEN 
» USING THE AUX PAPER TAPE DIAGNOSTIC LOADER 



NO OPERATION 

NO OPERATION 

NO OPERATION 

NO OPERATION 

NO OPERATION 

RESTORE LOCATION NICE 

* IN AUX LOADER 

PLACE BRANCH 



NOP 




NOP 




NOP 




NOP 




NOP 




LDX 


LI NNNN 


STX 


1 /35 



LD 



DSW 



DATE 
EC NO. 



28FE866 
'.15120 



8A40>t00 

8A403110 

8A403I20 

8A403130 

8A403140 

8A40)150 

8A403160 

8A403I70 

8A4031S0 

8A403190 

8A403200 

8A403210 

8A403220 

8A403230 

8A40324O 

8A403250 

8A403260 

8A4032 70 

8A403280 

8A403290 

8A403300 

8A403310 

8A403320 

8A403330 

8A403340 

8A4033S0 

8A403360 

8A403370 

8A403380 

8A403390 

8A403400 

8A403410 

8A403420 

8A4034 30 

8A433440 

eA403450 

8A403460 

8A4034 70 

8A4O3480 

8A'i03490 

8A403SOO 

8A403510 

8A403S20 

8A403S30 

8A403S43 

8A403550 

8A403560 

8A403570 

8A403580 

8A403590 

8A403600 

8A403610 

8A403620 

8A403630 

eA403640 

8A40365C 

8A403660 

8A403670 

8A403680 

8A403690 

8A403700 

8A403710 

8A403720 

8A403730 

8A403740 

eA4037S0 

8A403T60 

8A'.03770 



PROG ID 
PAGE 



08A5~0 

4 



003F 


D0C4 




STO 




/04 


• TO RETUR LABEL 


8A403780 








****<i****«***«i **••***•**«>••«>••*••••••* *••**•*• 


8A40)790 








« 










8A403800 








• 






ADD AREA 


CODE TO THE t/0 COMMANDS 


8A403810 








♦- 










8A403820 




0040 


6107 




LDX 


1 


7 




8A403830 




0041 


C16E 


BUILD 


LO 


1 


CEOFF 


GET TOCC WORD AND 


8A403840 




0042 


E839 




OR 




AREA 


* OR IN AREA AND 


8A403850 




0043 Q 


016E 




STO 


1 


CEOFF 


• PLACE BACK 


8A403860 




0044 


71FE 




MDX 


1 


-2 




8A403870 




004S 


70FB 


* 


HDX 




BUILD 




8A403880 
8A403890 








* 






ALL BUT 1ST PASS ENTRY POINT 


8A403900 








• 










8A403910 




0046 


0829 


KETUR 


XIO 




CEON 


SET CE MODE 


8A403920 




0047 


6A2I 




STX 


2 


SAVE2*l 




8A403930 




0048 


0829 




XIO 




DSW 


SENSE DEVICE STATUS 


8A4n3940 




0049 


0822 




XIO 




SENBI 


SENSE CE SW TO ACCUH 


8A403950 




004A 


1008 




SLA 




8 




8A403960 




0048 


0020 




STO 




AID 




8A403970 




004C 


FOIF 




FOR 




SENBI 




8A403980 




004D 00 


4C 180064 


* 


BSC 


L 


NOTRD, ♦- 


BR SW TERMINATE 


8A403990 
8A404000 




004 F 


F020 




EOR 




CEON 




8A404010 




0050 00 


4C180068 


• 


BSC 


L 


SAVE2,+- 


BR CE SERVICE STOP 


8A404020 
8A404030 




0052 


F025 




EOR 




CALL 




8A404040 




0053 00 


4C180070 


* 


BSC 


L 


NORMA, ♦- 


BR TO NORMAL ROUTINE 


8A4040S0 
8A404060 




0055 


F018 




EOR 




CEOFF 




8A404070 




0056 00 


4C18005A 


* 


BSC 


L 


LUMP,*- 


BR TO SHIFT NORMAL 


aA404080 
8A404090 








*******•********•**••***••**•**»****•***•**»«* 


&A404100 








* 










8A404110 




0058 


081B 


EXIT 


XIO 




XtOA 


TYPE CHARACTER 


8A404120 




0059 


700E 




MDX 




SAVE2 




8A404130 








**•*••****••*********•*•«**•*••*••*•*••*••**•• 


8A404140 








• 










8A404150 








* ' 






RED / BLACK ALTERNATE ROUTINE 


8A404160 








• 










8A404170 




OOSA 


COlO 


LUMP 


LO 




TEMPO 




8A404180 




005B 


F015 




EOR 




CEON»l 




8A404190 




005C 


DOOE 




STO 




TEMPO 




8A4042C0 




005D 00 


4C040070 




BSC 


L 


NORMA, E 




8A404210 




005F 


C816 




LDO 




REOBK 




8A404220 




0060 


0018 




STO 




AID 




8A404230 




0061 


1800 




RTE 




16 




8A404240 




0062 


0813 




STD 




REOBK 




8A404250 




0063 


70F4 




MDX 




EXIT 




8A404260 








• ******» **«#«****»*****4,*««*4,**,*^«««*««,«,^,« 


8A404270 


















8A404280 














EXIT POINTS TO AUX LOADER 


8A404290 














************************* 


8A404300 


















8A404310 














TERMINATE 


EXIT POINT 


8A404320 
8A404330 




0064 00 


66000813 


NOTRD 


LDX 


L2 


WWWW 




8A40434a 




0066 


6A9D 




STX 


2 


/04 




8A404350 




0067 


0806 


* 


XIO 




CEOFF 




8A404360 
8A404370 








* 






NORMAL EXIT POINT 


8A404380 








• 










8A404390 




0068 00 


66000000 


SAVE2 


LDX 


L2 







8A404400 




006A 


70A2 




MOX 




OQOO 


EXIT TO AUX LOADER 


8A404410 








»t*t ***«*«**« t*tit*»********»t»»**tt**»****t** 


8A404420 








* 










8A404430 








* 






CONSTANTS 


AND/OR lOCC WORDS 


8A404440 








* 










8A404450 




DATE 


28FEB66 












PROG 10 


08AS-0 


EC NO. 


415120 












PAGE 


** 



O O O O O O O O O O O O O O o o o o o o o o o o o o o o o o 
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IBM MAINTENANCE OIA&NOSriC PROGRAM FOR THE 1800 SYStEM 

AUX 1053 EXERCISER 

2N0 CHAR AND CTRL EXERCISER 



PART NO. 219642T 
PAGE S 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1053 EXERCISER 

2ND CHAR AND CTRL EXERCISER 



PART NO. 2196427 
PAGE SA 



0068 
006C 
006C 
0060 
006E 
006F 
GOTO 
00 71 
0072 
0073 
0074 
00 75 
0076 
0077 
0078 
0079 



0000 
0000 
FFOO 
0760 
OCOO 
0000 
FOOD 
0001 
7041 
0701 
0079 
0100 
0500 
0900 
OEOO 
0000 



007A OFFO 
0078 FOOF 
007C 0804 



007D 00 

00 7F 

0080 

0081 

00b2 

0093 

00S4 

0085 

0086 00 

0O88 00 

008A 



65('00000 

b^(7 

C006 

6200 

4804 

6208 

1381 

0001 

65000086 

C50000B0 

DOEE 



0088 FOEF 
0O8C 00 4C1S0098 

0O8E COEA 
Q08F FOEA 
0090 00 4C1800A3 

0092 C0E6 

0093 00 4C1800AE 

0095 C0E3 

0096 1200 

0097 DOEl 

0098 00 7401007? 
009A 70BD 



C09B C30D 
009C 18C8 
0090 00 D50000BO 
009F 00 65000000 
OOAl 690C 
00A2 70DC 



TEMPO 


DC 


/OOOO 






8SS 


E 




SENBI 


DC 


/FFOO 


TERMINATE CONSTANT 




DC 


/0760 


SENSE CE SWITCHES 


CEOFF 


DC 


/OCOO 


SHIFT NORMAL COMP 




DC 


/OOOO 


CE OFF lOCC 


CEON 


DC 


/FOOD 


CONSTANT 




DC 


/OOOl 


CE ON lOCC 


OSW 


DC 


TTTT 






DC 


/0701 


SENSE OSW lOCC 


XIOA 


DC 


AID 






DC 


/OlOO 


WRITE lOCC 


REOBK 


DC 


/0500 






DC 


/C900 




CALL 


DC 


/OECO 




AID 


DC 


/OOOO 


OUTPUT CHARACTER 


• 






* THIS LOCATION MUST 


* 






* BE ODD TO LOAD A*Q 


♦ 






* THE SAME. 


GIRCH 


DC 


/OFFO 




G8CHA 


DC 


/FOOF 




AREA 


DC 


/0804 


1ST AREA AND 2ND MOO 



tl*tt*t*tttl*tt****t*tttt 



* CHANGE THIS VALUE FOR A 

* 1053 WITH ANOTHER AREA 
» COOE OR MaoIFIER BIT. 



PRINT PATTERN ROUTINE 



LI 

1 K0S*1 
H0S»1 

2 
E 

2 8 

1 

H0S*1 
LI HOS 
LI STAR 

AID 

GBCHA 
L GBCf*- 

AIO 
GTRCH 
L GTR,+- 

AID 
L TEC,*- 

AtD 
2 C 

AID 
L NORMAtl.l 
EXIT 



NORMA LDX 
HOMPA STX 

LO 

LDX 

6SC 

LDX 

SRT 

STO 
HOS LOX 

•-0 

STO 

EOR 
BSC 

• 

LD 

EOR 

BSC 

* 

LD 
BSC 

* 

LD 

SLA 

STO 

MDX 
HDX 

************** *»»»*tt*t****^ttt*t*t*»*i ***»»*»* 

* 

♦ CO BACK ROUTINE 

* 

G8C 100 AID 

RTE 8 

STO LI STAR 

POOF LOX LI /OOOO 

STX 1 NORMA*! 

MOX HOIiPA 
**************** t»»*ttt *»******», ttt ***»«***»* 
» 



XRl HALF COUNT 



TEST FOR GO BACK CHAR 
» AND BR IF TRUE 



TEST FOR GO THRU CHAR 
• AND 8R IF TRUE 



TERrllNATOR BRANCH 
SHIFT LEFT OR 8 



PLACE NEW 01 ST IN XRl 



DATE 
EC NO. 



28FEB66 
415120 



8A404460 

8A404470 

8A404480 

8A404490 

8A404500 

aA404510 

8A404520 

3A404530 

8A40454a 

8A404S50 

8A404560 

8A404570 

eA404580 

8A404590 

8A404600 

8A404610 

8A404620 

8A404630 

8A404640 

8A404650 

8A404660 

8A4O4670 

8A4046S0 

8A404690 

8A40470a 

8A404710 

8A404720 

8A404730 

8A404740 

8A404750 

8A404760 

8A404770 

8A404780 

8A404790 

8A404800 

8A404810 

8A404820 

8A404830 

8A404840 

SA404850 

8A404860 

8A4C4870 

8A404883 

8A404890 

8A404900 

8A404910 

8A404920 

8A404930 

8A404940 

8A404950 

8A404960 

8A404970 

8A404980 

8A404990 

8A405000 

8A405010 

8A405020 

eA405030 

8A405040 

8A405050 

8A405060 

8A4Q50 70 

8A405080 

8A405090 

8A405100 

8A40511O 

8A40512Q 

8A405130 



PROG ID 
PAGE 



08A5-0 
5 





* 


GO THRU 


ROUTINE 


00A3 C805 


GTR LOD 


AID 




0OA4 18C8 


RTE 


8 




00A5 00 D50000B0 


STO 

* 

MOX 


LI STAR 




00A7 00 7402007E 


L NORHAfl 


>2 


0OA9 00 6580007E 


LOX 


11 NORMA»I 




OOAB 69F4 


ABC STX 


1 P00F*1 




00 AC 6901 


STX 


1 NUKMA»l 




OOAO 7001 


MOX 


HOMPA 






*******t*********0**^t****m»*******»t^*0 

* 




* 


INITIALIZATION FOR ADOITIO 




* 

41 


♦ PRINT 


PATTERNS 


OOAE 6100 


TEC LDX 


1 




GOAF 70FB 


MOX 


ABC 






**************** t*»t*«**********00mtt^tt 


OOBO 8181 


STAR DC 


/8181- 


CR, CR 


OOBl FOOF 


DC 


/FOOF" 


GO BACKfGO THRU 


0062 3C3E 


DC 


/3C3E 


A 


00B3 181A 


DC 


/181A 


B 


0OB4 ICIE 


DC 


/ICIE 


c 


00B5 3032 


DC 


/3032 





00B6 3436 


DC 


/3436 


E 


00B7 1012 


DC 


/1012 


f 


0OB8 1416 


DC 


/1416 


G 


00B9 2426 


DC 


/2426 


H 


OOBA 2022 


DC 


/2022 


1 


OOBB 7C7E 


DC 


/7C7E 


J 


ODBC 585A 


OC 


/585A 


K 


OOBO 5C5E 


DC 


/5C5E 


L 


OOBE 7072 


DC 


/7072 


M 


OOBF 7476 


DC 


/747fr 


H 


OOCO 5052 


DC 


/5052 





OOCl 5456 


OC 


/5456 


P 


0OC2 6466 


DC 


/6466 


Q 


O0C3 6062 


DC 


/6062 


R 


00C4 989A 


OC 


/989A 


s 


0OC5 9C9E 


OC 


/9C9E 


T 


0OC6 B0B2 


DC 


/B0B2 


U 


0OC7 8486 


DC 


/B4B6 


V 


00C8 9092 


DC 


/9092 


H 


00C9 9496 


DC 


/9496 


X 


OOCA A4A6 


OC 


/A4A6 


Y 


OOCB A0A2 


DC 


/A0A2 


I 


OOCC FCFE 


DC 


/FCFE 


I 


OOCD D8DA 


OC 


/D8DA 


2 


OOCE DCOE 


DC 


/DCOE 


3 


OOCF F0F2 


DC 


/EOF 2 


4 


OOOO F4F6 


DC 


/F4F6 


5 


0001 D0D2 


DC 


/00D2 


6 


0002 0406 


DC 


/0406 


7 


00D3 E4E6 


DC 


/E4E6 


8 


.0004 E0E2 


OC 


/E0E2 


9 


0005 C4C6 


DC 


/C4C6 





00D6 C0C2 


OC 


/C0C2 


* 


0007 O BCBE 


DC 


/BCBE 


/ 


0008 8486 


DC 


/8486 




0009 8082 


OC 


/8082 




OODA FOOF 


DC >■ 


/FOOF 


GO BACK. GO THRU 


OODB 5E20 


DC 


/5E20 


i-.l 


OOOC 7434 


DC 


/7434 


NtE 


OODD 0312 


DC 


/0312 


LINE FEEOtF 


OODE 3434 


DC 


/3434 


E.E 


OOOF 3081 


OC 


/308I 


OtCR RETURN 


OOEO FOOF 


DC 


/FOOF 


GO BACK, GO THRU 


3ATE 28FEB66 








EC NO. 415120 









8A40S140 

8A405150 

8A40S160 

8A405170 

8A40S180 

8A405190 

8A405200 

8A405210 

8A405220 

8A405230 

8A405240 

8A40S2S0 

8A40S260 

8A405270 

8A405280 

8A405290 

8A405300 

8A405310 

8A405320 

8A405330 

8A405340 

8A405350 

8A405360 

8A40S370 

8A405380 

8A40S390 

eA405400 

8A405410 

8A405420 

8A40543a 

8A4a5440 

8A405450 

8A40S460 

8A4054 70 

SA405480 

8A405490 

8A405500 

8A405510 

8A405520 

8A405530 

8A405540 

8A405550 

8A405560 

8A405570 

8A405580 

8A405590 

SA405600 

8A405610 

eA405620 

8A4Q5630 

8A405640 

8A405650 

8A405660 

8A405670 

SA405680 

8A405690 

8A405700 

8A405710 

8A405720 

8A405730 

8A405740 

8A405750 

8A40S760 

8A405770 

8A4057a0 

8A405790 

8A405800 

8A405810 



PROG 10 
PAGE 



08AS-0 
iA 



IBM MAINTENANCE DIAGNOSTIC PROCRAN FOR THE 1800 SYSTEH 



AUX 1053 EXERCISER 

2ND CHAR AND CTRL EXERCISER 



DC 

DC 

DC 

OC 

DC 

DC 

DC 

OC 

DC 

OC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

OC 

DC 

DC 



QOEl 





9E3C 


00E2 





1841 


OOEJ 





',',09 


0OE4 





AAOS 


0OE5 





<>009 


00E6 





4205 


0OE7 





0409 


GOES 





0605 


DOE? 





0009 


OCEA 





0205 


OOEB 





2181 


OOEC 





FOOF 


OOEO 





4I1A 


OOEE 





3C1C 


OOEF 





5821 


OOFO 





9A21 


OOF I 





5421 


00F2 





3C21 


0UF3 





1C21 


OOF* 





3421 


OOFS 





2203 


00F6 





1174 


cor/ 





0311 


OOF 8 





3003 


00F9 





1134 


OOFA 





0311 


OOFB 





9681 


OOFC 





FOOF 


OOFD 





0000 


0000 






70D7 






08U 






70*1 







QQOa 
NN\N 
WWMW 
TTTT 



ECU 
EQU 

EOU 
EOU 



OOFE 



OOFD 



END 



/9E3C T,A 

/1841 a, TAD CHAR 

/4409 ♦.SH RED 

/460S ,SH BLIC 

/4009 $,SH RED 

/4205 ,SH BLK 

/0409 SSH RED 

/0605 ,SH BLK 

/0C09 .,SH RED 

/0205 ,3H BLK 

/2181 SPACE, CR RETURN 

/FOOF GO BACK, GO THRU 

/411A TAB CHAR.B 

/3C1C A,C 

/5821 K, SPACE 

/9A21 S, SPACE 

/5421 P, SPACE 

/3C21 A, SPACE 

/1C21 C, SPACE 

/3421 E. SPACE 

/2203 I.LF 

/U74 BK SP.N 

/0 311 LF,BK SP 

/3003 0,LF 

/1134 BK SP,E 

/03U LF,BK SP 

/9681 X.CR RETURN 

/FOOF GO BACK, GO THRU 

/OOOO TERMINATOR 

/D GO TO LOADER AT /O 

/700 7 FOR CARD LOADER AT /35 

/0813 SET IN LOADER AT /04 
/7C00*RETUR-/4-l THIS |S EQUAL TO 

THE BRANCH FROM THE LOADER 
10 RETUR IN THIS PROGRAM. 
********** *»**tt»*tt*»***»*^*tt9tt 

•-1 ENO CARD NEVER USED 



PART NO. 2196427 
PACE 6 



aA405820 

8A405830 

8A405fl40 

8A40S850 

8A405860 

8A405870 

8A405880 

8A405890 

8A405900 

8A405910 

8A405920 

8A403930 

8A405940 

8A405950 

8A405960 

8A405970 

8A40S980 

8A405990 

8A406000 

8A406010 

8A406020 

8A406030 

8A406040 

8A4060S0 

8A406060 

8A406070 

8A406080 

8A406090 

8A406100 

8A406110 

8A406120 

8A406130 

8A406140 

8A4061S0 

8A406160 

8A406170 

8A406180 

8A406190 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEH 



PART NO. 
PAGE 



2196427 
6« 



AUX 1053 EXERCISER 

2ND CHAR AND CTRL EXERCISER 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 


ABC 


OOAB 


GOAF 


AID 


0079 


004B,0060t0074,008A,008Et0092t0095 


AREA 


007C 


0042 


BUILD 


0041 


0045 


CALL 


00 7S 


0052 


CEOFF 


006E 


004-1.0043,0055,0067 


CEON 


0070 


0046, 004F, 0056 


OSM 


0072 


003E,0048 


EXIT 


0058 


0063, 009A 


GBC 


009 B 


008C 


GBCHA 


007B 


0088 


GTR 


00 A 3 


0090 


GTRCH 


00 7 A 


008F 


HOMPA 


007F 


00A2,0OAO 


HOS 


0086 


007F, 0080, 008 5, 0066 


LUMP 


005A 


0056 


NNNN 


70D7 


0036 


NORMA 


007D 


0053, 0050, 0098. 0OAi,O0A7,OOA9,OOAC 


NOTRD 


0064 


0040 


POOF 


009F 


OOAB 


QQOO 


OOOD 


006A 


REDBK 


0076 


005F,0062 


RETUR 


0046 


OOFE 


SAVE2 


0066 


0047,0050,0059 


SENBI 


006C 


0049, 004C 


STAR 


OOBO 


0088, 0090, 00A5 


TEC 


OOAE 


0093 


TEMPO 


006B 


005A,005C 


TTTT 


7041 


0072 


WWMH 


0813 


0064 


XiOA 


0074 


0056 



DATE 28FEB66 

EC NO. 415120 



PROG 10 OBAS-O 
PAGE 6 



DATE 
EC NO. 



28FEB66 
41S120 



PROG 10 OBAS-a 
PAGE 6A 



O O O O O O O O O O O O O O O O O O O O O O O O O OOOO 



c c c c c c c c o c c c c o c 



F 
L 



o o c o 



o c c c c c c o c c c c 



IB* MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1300 SYSTEH 



AUX I05J EXERCISER 

3R0 CHAR AND CTRL EXERCISER 



PART NO. 

PACE 



2196427 
7 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1053 EXERCISER 

3RD CHAR AND CTRL EXERCISER 



PART NO. 2196427 
PACE 7A 



02BC 



0036 





1000 


00J7 





1000 


0038 





1000 


0039 





1000 


003A 





1000 


0038 


00 


65007007 


0030 





69F7 



003E C033 



ABS 

ORG /36 

» »t*** »t * t *»** tt»t<f*«,0tt ********** t***^ *********** 

IF THIS PROG IS TO BE USED FOR A MACHINE 
WITH A DIFFERENT AREA CODE, THE LOCATION WHICH 
REFER TO THE LABEL AREA IN SYMBOL TABLE MUST 
BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 
MODIFIED AUX 3-8 OBJECT DECK. SEE AUX CE PROG 
GENERATOR WRITE-UP FOR PROCEDURE. 

**i'*r ******** i*************t******* ************** 



3RD 1053 TYPEWRITER DIAGNOSTIC PROG 
**tt*****t**t**********t40t0^t^p^^^ 

THIS PROG CAN BE LOADED FROM CARDS OR PAPER TAPE 

CE BIT SH SETTINGS 

OOOOOOOl NORMAL PRINT PATTERN 
OOOOUOl NORMAL PRINT PATTERN 

» WITH ALTERNATE COLOR 
OOO&lUl CE SERVICE STOP 
Ilium PROGRAM TERMINATOR 

ALL OTHER CE BIT SW COMBINATIONS 

* WILL ACT AS CHAR OR CONTROL 

» COMMANDS. SEE REFERENCE MANUALS 

* FOR CHARACTER AND CONTROL CODE 

* BIT STRUCTURE 

OfHFR OPERATING INSTRUCTIONS 

CLEAR ALL TAB SETTINGS AND 
» PLACE A NEW TAB STOP AT 
• ABOUT 40 

SET MARGINS AT 10 AND 90 TO 
» ALLOW EXACTLY 80 PRINT POS 

THIS PROGRAM WAS WRITTEN TO BE OPERATED WITH 
♦ AN UPPER CASE/ UPPER CASE TYPE EtEMENI 
» PART NO. 1167969 

FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 
REFER TO THE PROGRAM DESCRIPTION WRITE-UP. 
•*'********* tt»***********ttt **************** 

AUX PROG ENTRY POINTS 
»> '■*»»**♦♦»»*»♦»♦»»»• 

1ST PASS ENTRY 

THE NEXT EIGHT WORDS WILL NOT APPEAR IN CORE WHEN 
» USING THE AUX PAPER TAPE DIAGNOSTIC LOADER 



NO OPERATION 

NO OPERATION 

NO OPERATION 

NO OPERATION 

NO OPERATION 

RESTORE LOCATION NICE 

* IN AUX LOADER 

PLACE BRANCH 



NOP 




NOP 




NOP 




NOP 




LDX 


LI NNNN 


STX 


I /35 



LO 



DSW 



DATE 
EC NO. 



28FEB66 
415120 



8A406200 
8A406210 
» 8A40622O 
8A406230 
8A40624O 
8A406250 
8A406260 
aA4062iO 
8 A406280 
8A406290 
8A406300 
' 8A406310 
8A406320 
8A406330 
8A406340 
8A406350 
8A406360 
8A406370 
8A406380 
8A406390 
8A406400 
8A406410 
8A406420 
8A4064 30 
8A406440 
8A406450 
8A406460 
8A't06470 
8A4064aO 
8A406490 
8A406S00 
8A406StO 
8A406520 
8A406530 
8A406540 
8A406550 
8A406560 
8A406570 
8A406580 
8A'.06590 
8A406600 
8A406610 
8A406620 
8A406630 
8A406640 
8A406650 
8A406660 
8A4O66 70 
8A406680 
8A406690 
8A406700 
8A406710 
8A406720 
8A406730 
8A406740 
8A406750 
8A406760 
8A406770 
8A406780 
8A406790 
8A406800 
8A406810 
8A406820 
8A406830 
8A406840 
8A406850 
8A406860 
8A406870 



PROG 10 
PAGE 



003F 00C4 



STO /04 * TO RETUR LABEL 



0040 





6107 


0041 





C16E 


0042 





E839 


0043 





D16E 


0044 





71FE 


0045 





70FB 


0046 





0829 


0047 





6A2t 


0C48 





0829 


0049 





0822 


004A 





1008 


0048 





D020 


004C 





FOIF 


004D 


00 


4C 180 064 


004F 





F020 


0050 


00 


4C180068 



0052 F025 

0053 00 4C18007D 

0055 F018 

0056 00 4C18005A 



0058 

0059 



08IB 
700E 



005A COlO 
005& F015 
005C DOOE 
005D 00 4C040070 
005F C816 



0060 





D018 


0061 





1800 


0062 





0813 


0063 





70F4 



0064 00 '•6000813 

0066 6A90 

0067 0806 



0068 00 66000000 
006A 70A2 



ADD AREA CODE TO THE I/O COMMANDS 



LDX 
BUILD LO 
OR 
STO 

MDX 
MOX 

* 



RETUR XIQ 
STX 
XiO 
XIO 
SLA 
STO 
EOR 
BSC 



1 7 

1 CEOFF 
AREA 

1 CEOFF 

1 -2 
BUILD 



GET lOCC MORO AND 

* OR IN AREA AND 

♦ PLACE BACK 



ALL BUT 1ST PASS ENTRY POINT 



EOR 
BSC 



EOR 
BSC 



EOR 
BSC 



CEON 
2 SAVE2*l 

osw 

SENS I 
8 

AID 
SEN3I 
L NQTRD,*- 

CEON 
. SAVE2,+- 

CALL 

. NORMA, ♦-- 

CEOFF 

LUMP,+- 



SET CE MODE 

SENSE DEVICE STATUS 
SENSE CE 5W TO ACCOM 



BR SW TERMINATE 

BR CE SERVICE STOP 
BR TO NORMAL ROUTINE 
BR TO SHIFT NORMAL 



****** ***.*****************t^t***m*»*******,*** 

* 

EXIT XIO XIOA TYPE CHARACTER 

MOX SAVE2 
**************** ***********H,************t***t 

* . 

RED / BLACK ALTERNATE ROUTINE 



• 






LUMP 


LO 


TEMPO 




EOR 


CEON* J 




STO 


TEMPO 




BSC L NORMA, E 




LDD 


REOBK 




STO 


AID 




RTE 


16 




STD 


REDBK 




MDX 


EXIT 



*************** ***********t***********tt^^0tt^ 

EXIT POINTS TO AUX LOADER 
*************t*^t»*****»* 

TERMINATE EXIT POINT 

NOTRO LDX L2 WWWM 
STX 2 /04 
XIO CEOFF 

• NORMAL EXIT POINT 

* 

SAVE2 LDX L2 

MDX OQQO EXIT TO AUX LOADER 
********************* *****t**************^,tt* 



CONSTANTS AND/OR lOCC WORDS 



08A5-0 

7 



DATE 
EC NO. 



2eFEB66 
415120 



8A4068aO 

8A406890 

8A406900 

8A406910 

8A406920 

eA406930 

8A406940 

8A406950 

8A406960 

8A406970 

8A406980 

8A406990 

8A407000 

8A407010 

8A407020 

8A407030 

8A407040 

8A407050 

8A407060 

8A407O70 

8A407080 

8A407090 

8A407100 

8A407110 

8A407120 

8A407130 

8A407140 

8A407150 

SA407160 

8A407170 

8A407180 

8A407190 

8A407200 

8A4O7210 

8A407220 

8A40T230 

8A407240 

8A407250 

8A407260 

8A407270 

8A407280 

8A407290 

8A407300 

8A407310 

8A407320 

8A407330 

8A407340 

8A407350 

8A407360 

8A407370 

8A407380 

8A407390 

8A407400 

8A407410 

8A407420 

8A407430 

8A407440 

8A407450 

8A407460 

8A407470 

8A40T480 

8A407490 

8A407500 

8A407S10 

8A407520 

8A407530 

8A407540 

8A40TS50 



PROG ID 
PAGE 



08A5-0 
7* 



I8H MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSFEH 



AUX 1053 EXERCISER 

3R0 CHAR AND CTRL EXERCISER 



PART NO. 2196«2T 
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IBM MAINTENANCE DIAGNnSTIC PROGRAM FOR THE 1800 SVSTEN 



006B 

006C 

006C 

3060 

006E 

006P 

0070 
0071 
0072 
0073 
C07« 
0075 
0076 
0077 
0078 
007S 

















0000 

0000 

FFOO 

0760 

OCOO 

0000 

FOOO 

0001 

70*1 

0701 

0079 

0100 

0500 

0900 

OEOO 

0000 



007A OFFO 
0078 FOOF 
007C 0808 



007D 
007F 
0080 
0081 
0082 
0083 
008 '« 
0085 
0086 
3C88 
008A 



00 65000000 
6907 

C006 

6200 

480* 

6208 

1881 

0001 
00 65000086 
00 C5000OB0 
DOEE 



008B FOEF 
008C 00 <.C18009B 

0086 COEA 
008F FOEA 
0090 00 4C1800A3 

0092 C0E6 

0093 00 *C1800AE 



0095 

0096 

0097 



C0E3 
1200 
OOEl 



0098 00 7401007E 
009A 70BD 



009B C8DD 
009C 18C8 
0090 00 050000B0 
009F 00 65000000 
OOAl 690C 
00A2 70DC 



OAIE 
EC NO, 



26FEB66 
*15120 



TEMPO DC 

BSS 
SENBI OC 

DC 
CEOFF OC 

OC 
CEON OC 

OC 
OSW DC 

OC 
XIOA DC 

OC 
REOBK OC 

OC 
CALL DC 
AID OC 



&TRCH OC 
GBCHA OC 
AREA DC 



/OOOO 



/FFOO 

/0 760 

/OCOO 

/OOOO 

/FOOO 

/OOOl 

TTTT 

/0701 

AID 

/OlOO 

/0500 

/0900 

/OEOO 

/OOOO 



/OFFO 
/FOOF 
/0B08 



TERMINATE CONSTANT 
SENSE CE SWITCHES 
SHIFT NORMAL COMP 
CE OFF lOCC 
CONSTANT 
CE ON tOCC 

SENSE DSW lOCC 

WRIiE lOCC 



OUTPUT CHARACTER 

* THIS LOCATION MUST 

* BE ODD TO LOAD A*Q 

* THE SAME. 



1ST AREA AND 3RD MOO BIT 

♦ CHANGE THIS VALUE FOR A 

• 1053 WITH ANOTHER AREA 

* COOE OR MODIFIER BIT. 

* PRINT PATTERN ROUTINE 



HOS 



NORMA LOX 
HOHPA STX 
LO 
LOX 
BSC 
LDX 
SRT 

sro 

LDX 

LD 

STO 

EOR 
BSC 

LO 

EOR 

BSC 

LO 
BSC 



LI 

1 HOS* I 
HOS* I 

2 
E 

2 8 
1 

Has*i 

Ll HOS 
Ll STAR 
AID 

GBCHA 
L CBC , ♦- 

AID 
GTRCH 
L GTR,*- 

AIO 
L TEC,*- 



XRl HALF COUNT 



TEST FOR GO BACK CHAR 
• AND BR IF TRUE 



TEST FOR GO THRU CHAR 
* AND BR IF TRUE 



TERMINATOR BRANCH 
SHIFT LEFT OR 8 



LO AID 

SLA 2 

STO AID 

MOX L N0RMA*1,1 

HOX EXIT 

CO BACK ROUTINE 



* 

Gac 



LOO AID 
RTE a 

STO Ll STAR 

POOF LDX Ll /OOOO 

STX 1 NORMA*! 
HDX HOMPA 



PLACE NEW DIST IN XRl 



8A407560 

8A407570 

8A407S80 

8A407S90 

8AV67600 

8A4076tO 

8A407620 

8A407630 

8A407640 

8A407650 

8A407660 

8A407670 

8A'>07680 

8A407690 

8A407700 

8A407710 

8A<i07720 

8A407730 

8A407740 

8A407750 

8A407760 

8A407770 

8A*077aO 

8A*07790 

8A407800 

8A407aiO 

8A407820 

8A407830 

8A407840 

8A4078S0 

8A407S60 

8A407870 

8A407880 

8A407890 

8A4079O0 

8A407910 

8A407920 

8A407930 

8A4079VO 

8A407950 

8A407960 

8A407970 

8A407980 

8A407990 

8A408000 

8A408010 

8A408020 

8A408030 

8A408040 

8A408050 

8A408060 

8A408070 

eA408080 

8A408090 

8A408100 

8A4081I0 

8A408120 

8A408130 

8A408140 

BA^VOaiSO 

8A408160 

8A408t70 

8A408130 

8A*0ai90 

8A408200 

8A408210 

8A408220 

8A408230 



AUX 1053 EXERCISER 

3RD CHAR AND CTRL EXERCISER 



GO THRU ROUTINE 



00A3 C8DS 

00A4 isca 

00A5 00 050000B0 

00A7 00 7402007E 
00A9 00 6580007E 
OOAB 69F4 
OOAC 6901 
OOAO 7001 



GTR 



ABC 



OUAE 
OOAF 



OOBO 

OOBl 

0OB2 

0OB3 

DOB* 

00B5 

0086 

00B7 

00B8 

0089 

OOBA 

OOBB 

OOBC 

OOSD 

OOBE 

OOBF 

OOCO 

OOCl 

00C2 

00C3 

00C4 

00C5 

0OC6 

00C7 

0OC8 

00C9 

OOCA 

OOCB 

OOCC 

OOCO 

OOCE 

OOCF 

OOOO 

0001 

0002 

00D3 

0004 

0005 

0006 

O0D7 

00D8 

00D9 

OOOVt 

OODB 

OODC 

OODD 

OODE 

OOOF 

OOEO 








O 
























































o 













PROG ID 
PAGE 



08A5-0 
8 



DATE 
EC NO. 



6100 
70FB 

8181 

FOOF 

3C3E 

ISIA 

ICIE 

3032 

3436 

1012 

1416 

2426 

2022 

7C7E 

585A 

5C5E 

7072 

7476 

5052 

5456 

6466 

6062 

989A 

9C9E 

BO 82 

B4B6 

9092 

9496 

A4A6 

A0A2 

FCFE 

08 OA 

OCDE 

F0F2 

F4F6 

00 02 

0406 

E4E6 

E0E2 

C4C6 

C0C2 

BCBE 

8486 

8082 

FOOF 

5E20 

7434 

0312 

3434 

3081 

FOOF 



28FEB66 
415120 



LOO 




AID 


RTE 




8 


STO 


Ll 


STAR 


MOX 


L 


NORMA* 1,2 


LDX 


11 


NORMA*! 


STX 


1 


POOF*! 


STX 


1 


NORMA*! 


MOX 




HOHPA 



»*********t*^*t^t*»0**^»m 



••♦*♦♦*•••*♦»»♦♦*♦•» 

INITIALIZATION FOR ADDITIONAL 
» PRINT PATTERNS 



TEC LDX 

MOX 

STAR DC 
OC 
OC 
OC 
OC 
OC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 
DC 
OC 

DC 

OC 

OC 

OC 

OC 

DC 

DC 

DC 

OC 

OC 

DC 

OC 

DC 

OC 

DC 

OC 

OC 

DC 

DC 



1 
ABC 

♦*♦••«*♦»♦♦»»♦*•»♦ 

/8181 CR 

/FOOF 60 

/3C3E A 

/IBIA B 

/ICIE C 

/3032 D 

/3436 E 

/1012 F 

/1416 G 

/2426 H 

/2022 I 

/7C7C J 

/585A K 

/5C5E I 

/7072 M 

/7476 H 

/5052 

/5456 p 

/6466 Q 

/6062 R 

/989A S 

/9C9E T 

/B0B2 U 

/B4B6 V 

/9092 H 

/9496 X 

/A4A6 V 

/A0A2 I 

/FCFE ! 

/DBDA 2 

/DCOE 3 

/F0F2 4 

/F4F6 5 

/D0D2 6 

/04D6 7 

/E4E6 8 

/E0E2 9 

/C4C6 
/C0C2 

/BCBE / 
/8486 

/8082 , 
/FOOF 
/5E20 
/7434 
/0312 
/3434 
/3081 
/FOOF 



CR 
BACK, GO THRU 



GO BACK, GO THRU 

L,l 

N.E 

LINE FEEOiF 

E,E 

D.CR RETURN 

CO BACK, CO THRU 



PART NO. 2196427 
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8A408240 

8A40a250 

8A408260 

8A4082TO 

8A408280 

8A408Z90 

eA408300 

8A408310 

8A408320 

8A408330 

8A408340 

8A408350 

8A40a360 

8A408370 

8A408380 

8A408390 

8A408400 

8A408410 

8A408420 

8A408430 

8A408440 

8A4084S0 

8A40B460 

8A408470 

8A408480 

8A408490 

BA408SO0 

8A40aS!0 

6A408S20 

8A408530 

BA40SS40 

8A408SS0 

8A408560 

8A408S70 

8A408S80 

8A408S90 

8A408600 

8A408610 

8A408620 

8A408630 

8A408640 

8A403650 

8A408660 

8A4086T0 

8A40a680 

8A408690 

8A408700 

8A40B710 

8A408720 

8A408730 

aA408740 

8A408750 

8A408760 

8A40a770 

8A4087aO 

8A408790 

8A408800 

BA40a8!0 

8A408820 

8A408830 

8A408a40 

8A40SaSO 

8A408860 

8A40a870 

8A408880 

8A408S90 

8A408900 

8A408910 



PROG ID 
PAGE 
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c o c o c c c C C C O C O C C C C C C C C O C O c c c C C C c 



F( 
L 
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IB1 MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 10'j3 EXERCISER 

3RD CHAR AND CTRL EXERCISER 



PART NO. 
PAGE 



2196V2T 
9A 



OOEl 





9E3C 




DC 


/9E3C 


T,A 


8A408920 


00E2 





18*1 




DC 


/1841 


B.TAS CHAR 


8A408930 


00E3 





4409 




DC 


/4409 


' ,SH RED 


8A408940 


00E4 





4605 




DC 


/4605 


,SH BLK 


8A408950 


00E5 





4009 




OC 


/4009 


$, SH RED 


8A408960 


ODE 6 





4205 




DC 


/4205 


.SH BLK 


,8A408970 


DOE 7 





0409 




DC 


/0409 


',SH REO 


8A408980 


00E8 





0605 




DC 


/0605 


,SH BLK 


8A408990 


0'JE9 





0009 




DC 


,'0009 


..SH REO 


8A409000 


OOEA 





0205 




DC 


/0205 


,SH BLK 


8A409010 


OOCB 





2I8I 




DC 


/2iai 


SPACE. CR RETJRN 


8A409020 


OOEC 





FOOF 




OC 


/FOOF 


GO BACK, GO THRU 


8A409030 


COED 





41IA 




DC 


/411A 


TAB CHAR.B 


8A409040 


OOEE 





3C1C 




DC 


/3C1C 


A.C 


8A40g050 


OOEF 





5321 




DC 


/5821 


K, SPACE 


8A409060 


OOFO 





9A21 




OC 


/9A21 


S, SPACE 


8A409070 


OOF I 





5421 




DC 


/5421 


P, SPACE 


8A4090SO 


0OF2 





3C21 




DC 


/3C21 


A, SPACE 


8A409090 


OOF 3 





1C21 




DC 


/1C21 


C, SPACE 


8A409100 


OOF* 





3421 




DC 


/3421 


E, SPACE 


8A409110 


OOFS 





2203 




DC 


/2203 


I. IF 


8A409120 


oor6 





1174 




DC 


/1174 


BK SP,N 


8A409130 


OOF 7 





0311 




DC 


/0311 


LF,8K SP 


SA409140 


OOFd 





3003 




DC 


/3003 


O.LF 


8A409150 


00F9 





1134 




OC 


/1134 


PK SP,E 


8A409160 


OOFA 





0311 




DC 


/0311 


LF.BK SP 


8A409170 


OOFB 





9681 




OC 


/9681 


X.Crt RETURN 


8A409180 


30FC 





FOOF 




DC 


/FOOF 


GO BACK, GO THRU 


8A409190 


OOFD 





0000 


* 


OC 


/OOOO 


TERMINATOR 


8A409200 
8A409210 


COOO 






QQQQ 


EQU 


/O 


GO TO LOADER AT /O 


8A409220 


7007 






NNNN 


ECU 


/70D7 


FOR CARD LOADER AT /35 


8A409230 


0813 






HWWW 


EQU 


/0813 


SET IN LOADER AT /04 


8A409240 


704.1 






TTTT 

* 
• 


EQU 


/7000»l 


<ETUR-/4-l THIS IS EQUAL TO 
THE BRANCH FROM THE LOADER 
TO REIUR IN THIS PROGRAM. 


8A409250 
8A409260 
8A409270 








»»♦»«»«.»«»»»»«»»»»**»»*«»»», ,»,^»»»,,,,i,, J, ,» 


8A409280 


OOFE 




OOFO 




END 


»-l 


END CARD NEVER USED 


8A409290 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


ABC 


OOAB 


AID 


0079 


AREA 


00 7C 


BUILD 


0041 


CALL 


0078 


CEOFF 


006E 


CE3N 


0070 


OSW 


0072 


EXIT 


0058 


GBC 


0098 


GBCHA 


0C7B 


GTR 


00A3 


GTRCH 


007A 


HOSfA 


00 7F 


HOS 


0086 


LUMP 


005 A 


NNNN 


7007 


NORMA 


0070 


NOTRO 


0064 


POOF 


009F 


0030 


0000 


REOBK 


00 76 


RETUR 


0046 


SAVE2 


0068 


SENBI 


006C 


STAR 


0080 


TEC 


OOAE 


TEMPO 


006 8 


TTTT 


7041 


WMMM 


0813 


XIOA 


0074 



REFERENCES 
OOAF 

O04B,006O,0C74,0>68A,008Ef0C92i0095,009 7,009B,0OA3 

0042 

0045 

0052 

0041,0043,0055,0067 

0046, 004F, 0058 

00)E.0048 

0063, 009A 

008C 

008B 

0090 

008F 

00A2,O0AO 

00 7F, 0080, 008 5, 0086 

0056 

003B 

0053, 0050, 0098, 0OAl,O0A 7, 00A9,00AC 

0040 

OOAB 

006A 

005F,0062 

OOFE 

0047,0050,0059 

0049, 004C 

0088,0090, 00A5 

0093 

005A,005C 

0072 

0064 

0058 



DATE 
EC NO. 



28FEB66 
415120 



PROG ID 
PAGE 
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9 



DATE 
EC NO. 



28FEB66 
415120 



PROG ID 
PAGE 



0SA5-0 
9A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



02BC 



ABS 

ORG /36 



IF THIS PROG IS TO BE USED FOR A MACHINE 
WITH A DIFFERENT AREA CODE, THE LOCATION WHICH 
REFER to THE LABEL AREA IN SYMBOL TABLE MUST 
BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 
MODIFIED AUX 8-8 OBJECT DECK. SEE AUX CE PROG 
GENERATOR WRITE-UP FOR PROCEDURE. 



•4TH 1053 TYPEWRITER DIAGNOSTIC PROG 

THIS PROG CAN BE LOADED FROM CARDS OR PAPER TAPE 

CE BIT SW SETTINGS 

00000001 NORMAL PRINT PATTERN 
00001 101 NORMAL PRINT PATTERN 

* WITH ALTERNATE COLOR 
OOOOilU CE SERVICE STOP 
lllllUl PROGRAM TERMINATOR 

ALL OTHER CE BIT SW COMBINATIONS 

• WILL ACT AS CHAR OR CONTROL 

♦ COMMANDS. SEE REFERENCE MANUALS 

* FOR CHARACTER AND CONTROL CODE 

* BIT STRUCTURE 

OTHER OPERATING INSTRUCTIONS 

CLEAR ALL TAB SETTINGS AND 
» PLACE A NEW TAB STOP AT 

* ABOUT 40 

SET MARGINS AT 10 AND 90 TO 

* ALLOW EXACTLY 80 PRINT POS 

THIS PROGRAM WAS WRITTEN TO BE OPERATED WITH 
♦ AN UPPER CASE/ UPPER CASE TYPE ELEMENT 
» PART NO. 1167969 

FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 
REFER TO THE PROGRAM DESCRIPTION WRITE-UP. 

AUX PROG ENTRY POINTS 
♦♦*'♦•»*•••♦*»»*•»»♦« 

1ST PASS ENTRY 

HE NEXT EIGHT WORDS WILL NOi APPEAR IN CORE WHEN 
USING THE AUX PAPER TAPE DIAGNOSTIC LOADER 



0036 





lOUO 


0037 





1000 


0038 





1000 


0039 





1000 


003 A 





1000 


003B 


00 


65007007 


003O 





69F7 



NOP 
NOP 

NOP ^, 
NOP 
NOP 

LOX LI NNNN 
1 /« 



STX 



003E C033 



to 



OSM 



NO OPERATION 

NO OPERATION 

NO OPERATION 

NO OPERATION 

NO OPERATION 

RESTORE LOCATION NIC£ 

• IN AUX LOADER 

PLACE BRANCH 



DATE 
EC NO. 



28FE066. 
41S120 



8A409300 

8A409310 

8A409320 

8A40933a 

8A409340 

8 A VO 93 50 

8A409360 

8A4093T0 

8A409330 

8A409390 

8A't09400 

8A409410 

8A409420 

8A4094 30 

8A409440 

BAAOg-iSO 

8A409460 

8A409470 

8A409480 

8A409490 

8A409500 

8A409510 

8A409520 

8A409S30 

8A409540 

8A409S50 

8A409560 

8A409570 

8A409580 

8A409S90 

8A409600 

8A409610 

8A409620 

RA409630 

BA409640 

8A4096S0 

aA't096&0 

8A4096 70 

8A409680 

8A409690 

BA409700 

8A409710 

8A'»09720 

8A409730 

8A409740 

8 4409750 

8A409760 

8A4O9770 

8A'.097aO 

8A409790 

8A409800 

8A409810 

eA409B20 

8A409B30 

8A409840 

8A409850 

aA409860 

8A409870 

•A4098a0 

8A409890 

8A409900 

8A409910 

8A409920 

8A409930 

8A4099VO 

8A4099$0 

BA409960 

8A409970 



PROC 10 
PAGE 



AUX 1053 EXERCISER 

4TH CHAR AND CTRL EXERCISER 



003F 00C4 



STO /04 * TO RETUR LABEL 

**♦*•♦***♦»*♦***♦♦*♦♦•♦»»*•♦»♦•♦♦♦•♦♦♦♦»♦»♦»»» 

* 

* ADD AREA CODE TO THE I/O COMMANDS 



0040 





6107 


0041 





C16E 


0042 





E839 


0043 





01 6E 


0044 





71FE 


0045 





70FB 


0046 





0829 


00*7 





6A21 


0048 





0829 


0049 





0822 


004A 





1008 


004B 





0020 


004C 





FOIF 


0040 


00 


4C 180064 


004F 





F020 


0050 


00 


4C1 80068 



0052 F025 

0053 00 4C180070 

0055 F018 

0056 00 4C18005A 



LOX 
BUILD LO 
OR 
STO 
HDX 
HOX 
* 

* 

kETUR XIO 
STX 
XIO 
XIO 
SLA 
STO 
EOR 
BSC 

* 

EOR 
BSC 

* 

EOR 
BSC 



1 7 

1 CEOFF 

AREA 
I CEOFF 
I -2 

BUILD 



GET lOCC WORD AND 
• OR IN AREA AND 
« PLACE BACK 



ALL BUT 1ST PASS ENTRY »»OINT 



EOR 
BSC 



CEON 
2 SAVE2«'l 
DSW 
SENBI 
8 

AID 
SENBI 
L NOTRD,*- 

CEON 
. SAVE2,*- 

CALL 

. NORMA, ♦- 

CEOFF 
. LUMP,*- 



SET CE MODE 

SENSE DEVICE STATUS 
SENSE CE SW TO ACCUM 



BR SW TERMINATE 

BR CE SERVICE STOP 
BR TO NORMAL ROUTINE 
BR TO SHIFT NORMAL 



0058 

0059 



081B 
700E 



EXIT XIO XIOA TYPE CHARACTER 
MDX SAVE2 

* 

RED / BLACK ALTERNATE ROUTINE 







* 




RED / 


C05A 


COlO 


LUMP 


LO 


TEMPO 


005B 


F015 




EOR 


CEON*l 


005C 


OOOE 




STO 


TEMPO 


0050 00 


4C04007D 




BSC L NORMA. 


005F 


C816 




LOO 


REOBK 


0060 


0018 




STO 


AID 


0061 


18D0 




RTE 


16 


0062 


0813 




STO 


REOBK 


0063 


70F4 




MDX 


EXIT 



0064 00 66000813 

0066 6A9D 

0067 0806 



0068 00 66000000 
006A 70A2 



EXIT POINTS TO AUX LOADER 
♦»••♦♦*♦»•♦••«♦«•♦♦♦»♦»♦» 

TERMINATE EXIT POINT 

NOTRO LOX L2 KriWU 

STX 2 /04 
XIO CEOFF 

* 

• NORMAL EXIT POINT 

SAVE2 LOX L2 

MDX OQOO EXIT TO AUX LOADER 

♦ 

* CONSTANTS AND/OR I OCC UOROS 



PART NO. 2196427 
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8A409980 

8A409990 

8A410000 

8A410010 

8 A4 10020 

8A410C30 

8A410040 

8A410050 

8A4ia060 

8A410070 

8 A4 10080 

8A4<0090 

8A410100 

8A410U0 

8A410120 

8A410I30 

8A410140 

8A410150 

8A410160 

8A4110170 

8A410180 

8A410190 

8A410200 

8A410210 

8A410220 

8A410230 

8A410240 

8A410250 

8A4ia260 

8A410270 

8A410280 

8A410290 

8A410300 

8A410310 

8A410320 

8A410330 

8A410340 

8A410350 

8A410360 

8A410370 

8A410380 

8 A4 10390 

8A410400 

8A410410 

8A<»10420 

8 A4 10430 

8A410440 

8A410450 

8 A4 10460 

8 A4 10470 

8 A4 10480 

8 A4 10490 

8A410S00 

8A410510 

8A410520 

8A410i30 

8A410540 

8A410550 

8A410S60 

8A410S70 

8A4I0S80 

8A410S90 

8 A4 10600 

8A410610 

aA410&20 

8A4t0630 

8A410640 

8A41065e 
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D06B 





0000 


005C 




0000 


006C 





FFOO 


0060 





760 


006E 





OCOO 


006F 





0000 


0070 





FOOO 


0071 





0001 


00 72 





70'H 


0073 





0701 


0074 





0079 


0075 





0100 


0076 





0500 


0077 





0900 


00 78 





OEOO 


3 3 79 





0000 


007A 





OfFO 


0078 





FOOF 


007C 





0810 



007D 00 

007F 

0080 

3031 

0082 

0033 

008'. 

3085 

0086 00 

3088 00 

008A 



65000000 

690 7 

C006 

6200 

-iBO* 

6208 

1881 

0001 

65000086 

CSOOOOhO 

DOEE 



008B FOEF 

308C 00 'VC18009B 

008E COEA 

003F FOEA 

0090 do <>C1800A3 

0092 C0E6 

0093 00 <iC1800AE 

0095 C0E3 

30?6 1200 

0097 DOEl 

3098 00 7'.01007E 

009A 70BD 



TEMPO 


DC 


/oooo 




BSS 


E 


SEN8I 


DC 


/FFOO 




DC 


/0760 


CEOFF 


DC 


/OCOO 




DC 


/OOOO 


CEON 


DC 


/FOOO 




DC 


/OOOl 


OSM 


DC 


TTTT 




DC 


/0701 


XIOA 


DC 


AID 




DC 


/OlOO 


REDBK 


DC 


/O5C0 




DC 


/0900 


CALL 


DC 


/OECO 


AID 

* 


DC 


/OOOO 


GTRCH 


DC 


/OFFO 


GUCHA 


DC 


/FOOF 


A'^EA 


DC 


/0810 



TERMINATE CONSTANT 
SENSE CE SWITCHES 
SHIFT NORMAL COMP 
CE OFF lOCC 
CONSTANT 
CE ON IQCC 

SENSE OSW lOCC 

WRITE lOCC 



OUTPUT CHARACTER 
» THIS LOCATION MUST 
» BE ODD TO LOAD A»0 
* THE SAME. 



1ST AREA AND 'fTH MOD BIT 

• * CHANGE THIS i/ALUE FOR A 

• » 1053 WITH ANOTHER AREA 

• » CODE OR HOOIFIER BIT. 

u 

• PRINT PATTERN ROUTINE 



HOS 



M3RMA LDX 
HO-IPA STX 
LO 
LOX 
8SC 
LDX 
SRT 
STO 
LDX 
LD 
STO 

EOR 
BSC 

LO 

EOR 

BSC 

LD 

BSC 

LD 

SLA 

STO 

HDX 
MDX 



LI 
1 



LI 

LI 





H0S*1 

HOS* I 



E 

8 

1 

HOSt-1 

HOS 

STAR 

AID 



XRl HALF COUNT 



GBCHA 
G8C,»- 

AIO 

GTRCH 

GTR,«- 

AID 

TEC,+- 

AIO 



AID 

N0RMA*1,1 

EXIT 



TEST FOR 

* AND BR 



TEST FOR 

♦ AND BR 



GO BACK CHAR 
IF TRUE 



GO 
IF 



THRU CHAR 
TRUE 



TERMINATOR BRANCH 



SHIFT LEFT OK 8 



» 

• GO BACK ROUTINE 



PLACE NEW OIST IN XRl 






ou9a 


C8DD 


GBC 


LOO 




AID 


009C 


13C8 




RTE 




8 


009D 00 


D50000BO 




STO 


LI 


STAR 


009F 00 


65000000 


POOF 


LOX 


LI 


/OOOO 


OOAl 


690C 




STX 


1 


N0RMA»1 


0OA2 


700C 




MOX 




HOMPA 



DATE 
EC NO. 



28FEB66 
415120 



SA<V10660 

8A410670 

8A410680 

8A410690 

8A'HO7O0 

8A*10710 

8A'H0720 

8A'.10730 

8A410740 

8A'V10750 

8A410760 

8A'H0770 

8A*10780 

8A410790 

8A410800 

8A410810 

8A410820 

8A410830 

BA'ilOB^a 

8A<.10a50 

8A410860 

8A410870 

8A410a80 

8A'H0890 

8A410900 

8A410910 

3A410920 

8 A* 10930 

8 A4 10940 

8A*10950 

8A410960 

8 A4 10970 

8A410980 

8A410990 

8A411000 

8A411010 

8A411020 

8 A4 11030 

8A411040 

8A411050 

8A41t060 

8A411070 

8A411080 

8 A4 11090 

8A411100 

8A411110 

8A411120 

8A411130 

8A411140 

8A411150 

8A411160 

BA'.lllTO 

8A411180 

8A411190 

8A411200 

8A411210 

8A411220 

8A411230 

8A411240 

8A411250 

8A411260 

8A411270 

8A411280 

8A*I129a 

a A4 11 300 

8A4tl310 

8A411320 

8A411330 



PROG ID 
PAGE 



0OA3 





C8D5 


00A4 





18C8 


00A5 


00 


D50000BO 


0OA7 


00 


7402007E 


00A9 


00 


65a0007E 


OOAB 





69F4 


OOAC 





6901 


OOAO 





7001 



OOAE 
OOAF 



OOBO 

OOBl 

00B2 

00B3 

00B4 

0085 

00B6 

00S7 

00B8 

00B9 

OOBA 

OOBB 

OOBC 

OOSD 

OOBE 

OOBF 

OOCO 

OOCl 

00C2 

0OC3 

0OC4 

0OC5 

00C6 

O0C7 

DOC 8 

0OC9 

OOCA 

OOCB 

OOCC 

OOCO 

OOCE 

OOCF 

OOOO 

OODl 

0002 

0003 

00D4 

00D5 

0OD6 

0007 

0008 

0009 

OOOA 

OOOB 

OODC 

OODD 

OODE 

OODF 

OOEO 































































o 














08A5-0 

11 



DATE 
EC NO. 



6100 
70FB 

8181 
FOOF 
3C3E 
181A 
ICIE 
3032 
3436 
1012 
1416 
2426 
2022 
7C7E 
585A 
5C5E 
7072 
7476 
5052 
5456 
6466 
6062 
989A 
9C9E 

e,)B2 

e4B6 

9092 

9496 

A4A6 

A0A2 

FCFE 

08DA 

DCOE 

F0F2 

F4F6 

D0D2 

0406 

E4E6 

E0E2 

C4C6 

C0C2 

8CBE 

8486 

8082 

FOOF 

5E20 

7434 

0312 

3434 

3081 

FOOF 



28FEB66 
415120 



* GO THRU ROUTINE 

♦ 

GTR LDD AID 
RTE 8 

STO LI STAR 

* 

MDX L NORMA* I, 2 

LDX II NORMA*l 

ABC STX I POOF+l 

STX 1 NORMA*! 

MDX HOMPA 

************* ttl'^t^^ti^t^t:*****:*.^********,*^^ 

INITIALIZATION FOR ADDITIONAL 
* PRINT PATTERNS 

I 

ABC 
******************* ^t^^,tti 



EC LDX 
MOX 
********^^* 

STAR DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

OC 

DC 

DC 

DC 

DC 

DC 

DC 

DC ■ 

DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 
DC 
OC 
OC 
DC 
DC 
DC 
DC 



/8181 

/FOOF 

/3C3E 

/181A 

/ICIE 

/3032 

/3436 

/1012 

/1416 

/2426 

/2022 

/7C7E 

/585A 

/5C5E 

/7072 

/7476 

/5052 

/5456 

/6466 

/6062 

/989A 

/9C9E 

/B0B2 

/B-.B6 

/9092 

/9496 

/A4A6 

/A0A2 

/FCFE 

/D8DA 

/DCOE 

/F0F2 

/F4F6 

/00D2 

/04D6 

/E4E6 

/E0E2 

/C4C6 

/C0C2 

/BCBE 

/8486 

/8082 

/FOOF 

/5E20 

/7434 

/0312 

/3434 

/3081 

/FOOF 



•»»»»**♦» 



CR, CR 

GO BACK, GO THRU 

A 

8 

C 

D 

E 

F 

G 

H 

J 
K 
L 
M 
N 

P 

R 
S 
T 
U 
V 

w 

X 
Y 
I 
I 

2 
3 
4 
5 
6 
7 
8 
9 




GO BACK, CO THRU 

L.I 

N,E 

LINE FEED.F 

E,E 

D,CR RETURN 

GO BACK, GO THRU 



8A4II340 

8A411350 

8A411360 

8A411370 

8A41138a 

8A411390 

8A411400 

8A411410 

8A41I420 

6A411430 

8A411440 

8A411450 

8A411460 

8A411470 

8A411480 

8A411490 

SA411500 

8A411510 

8A411520 

8A411530 

8A411S40 

8A4115S0 

8A411560 

8A411570 

8A411580 

8A41I590 

8A411600 

8A4116I0 

8A4I1620 

8A411630 

8A411640 

8A41I650 

6A411660 

8A4I1670 

8A411680 

8A411690 

8A411700 

8A4117t0 

8A411720 

8A4117)0 

8A4H740 

8A411750 

8A411T60 

8A411770 

8A4I1780 

8A411790 

BA41I800 

8A411810 

8A4I1820 

8A411830 

8A411840 

8A411850 

8A4I1860 

8A41I870 

aA41l880 

8A411890 

8A4I1900 

BA4119I0 

8A411920 

8A411930 

8 A4 I 1940 

8A411950 

8A411960 

8A41I970 

8A411980 

8A411990 

8A412000 

8A412010 
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PART NO. 2196427 
PA&E 12 



IBM MAINTENANCE DIAGNOSTIC PXOGRAH tOR THE 1800 SYSTEM 



AUX 1053 EXERCISER 

4TH CHAR AND CTRL EXERCISER 



PART NO. 2196427 
PAGE 12* 



OOEt 


9E3C 




DC 


/9E3C 


T.A 




8A412020 


00E2 


1841 




DC 


/1841 


B.TAB CHAR 




8A412e30 


00E3 


4409 




DC 


/4409 


♦,SH RED 




8A412040 


0OE4 


4605 




DC 


/4605 


.SH BLK 




8A4120S0 


00E5 


4009 




DC 


/4O09 


»,SH RED 




8A412060 


aOE6 


4205 




DC 


/4205 


•SH BLK 




8A412070 


00E7 


0409 




DC 


y0409 


'.SH RED 




8A4t2080 


0OE8 


0605 




DC 


/0605 


•SH BLK 




8A412090 


00E9 


0009 




DC 


/0009 


.tSH RED 




8A412100 


OOEA 


0205 




DC 


/0 205 


tSH BLK 




8A412110 


OOEB 


2181 




DC 


/2181 


SPACE, CR RETURN 




8A412120 


OOEC 


FOOF 




DC 


/FOOF 


CO BACK, 60 THRU 




8A412130 


OOEO 


4I1A 




DC 


/411A 


TAB CHAR.B 




8A412140 


OGEE 


JCIC 




DC 


/3C1C 


A,C 




8A4121S0 


OGEE 


5821 




DC 


/5821 


K, SPACE 




8A412160 


OOFO G 


9A21 




DC 


/9A21 


S, SPACE 




8A412170 


OOF I 


5421 




DC 


/5421 


P. SPACE 




8A«12180 


00F2 


K21 




DC 


/3C21 


A, SPACE 




8A41219a 


J0F3 


1C21 




DC 


/1C21 


C, SPACE 




8A<.I2200 


0OF4 


J421 




DC 


/3421 


E, SPACE 




8A412210 


OOFS 


2203 




DC 


/22C3 


I.LF 




8A412220 


00F6 


1174 




DC 


/1174 


BK SP,N 




8A4t2230 


OOF 7 


Gill 




DC 


/0311 


LF.BK SP 




8A412240 


OOFB 


300 3 




DC 


/3G03 


D,LF 




8A412250 


00F9 


1134 




DC 


/U34 


BK SP,E 




8 A4 12260 


OOFA 


0311 




DC 


/03:i 


LF.BK SP 




8A412270 


OOFB 


9681 




DC 


/9681 


X,CR RETURN 




8A412280 


aorc 


FOOF 




JC 


/FOOF 


CD BACK, GO THRU 




8A4t2290 


30F0 


0000 


* 


OC 


/OOOG 


TERMINATOR 




8A412300 
8A4123I0 


0000 




0800 


r:QU 


/O 


GO TO LOADEP AT 


/D 


8A412320 


7007 




•WHH 


EOU 


/7007 


FOR CARD LOADER 


AT /35 


8A412)30 


0813 




MWWW 


EQU 


/0S13 


SET IN LOADER AT 


/04 


8A412340 


7041 




ITTT 


£00 


/7000»l 


»ETUR-/4-l THIS IS 


EQUAL TO 


8A412350 






« 






THE BRANCH F^DS 


THE LOADER 


8A41236a 






* 






TO RETUR IN THIS 


PROGRAM. 


8A412370 


. 




*«***»»*****»*» f***«»*t»^^t*»***»*»»»t»**»**' 


8A412380 


OOFE 


OOFO 




END 


»-l 


END CARD NEVER USED 


8A412390 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


ABC 


OOAB 


AID 


0079 


AREA 


00 7C 


BUILD 


0041 


CALL 


0078 


CEOFF 


006E 


CEON 


0070 


OSW 


0072 


EXIT 


0058 


GBC 


009B 


GBCHA 


007B 


GTR 


00A3 


GTRCH 


007A 


HOMPA 


00 7F 


HOS 


0086 


LUMP 


005A 


NNNN 


7007 


!40RMA 


0070 


NOTRD 


0064 


POOF 


009F 


QQOQ 


0000 


REDBK 


0076 


RETUR 


0046 


SAVE2 


0068 


SENBI 


006C 


STAR 


00 BO 


TEC 


OOAE 


TEMPO 


006 B 


TTTT 


7041 


wwww 


0813 


XtOA 


0074 



REFERENCES 

OOAF 

0048,0060, 0074, OOSA.OOBE, 0092 ,0095, 0097, 009B,00A) 

0042 

0045 

0052 

0041,0043,0055,0067 

0046,004F,005B 

003E,004a 

0063, 009A 

0G8C 

008B 

0C90 

008F 

00A2,00A0 

GO 7F, 0080,0085.0086 

0056 

003B 

0053, 0050, 0098, 00A1,00A7,00A9,00AC 

0040 

OOAB 

006A 

005F,0062 

OOFE 

0047,0050.0059 

0049. 004C 

0088. 0090. 00A5 

0093 

005A.005C 

0072 

0064 

0058 
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EC NO. 
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01 

01 
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PURPOSE 

IhE MAIN PuRPQiE OF THE AUX 1627 REGISTRATION EXERCISER 

PKOCRAM IS TC TtST VARIOUS HOVEMtMTS OF THE PLOTTER USING THE CE 

PR0CRA>1 SWITCHES TO INITIATE COMMANDS. IN AOOITIONi THE GENERAL MECHANICAL 

PthfCRMANCt Of IHE PLOTTER MAY BE TESTED BY SELECTING A REGISTRATION-PATTERN 

ROUT I -^E. 

RECUIRbMENTS 

2.1 DEVICE AREA CODE 

IF THE DEVICE TO BE TESTED USES A CUSTOMER ASSIGNED AREA CODE. A NEW 
AUX PROGRAM DECK OR PAPER TAPE MUST BE CREATED. THE PROCEDURE IS 
PRESENTED IN THE DOCUMENTAT ICit OF THE AUX PROGRAM GENERATOR UTILITY 
<PIO 03AL - CARD VkRSIONt PID CCAD - PAPER TAPE VERSION) 
THE PROGRAM LOCATIONS THAT MUST BE ALTERED ARE SPECIFIED BY A 
STATEMENT AT THE BEGINNING OF THE PROGRAM LISTING. 

2.2 CARD INPUT 

THE AUX DIAGNOSTIC LOADER tPID 06A1I MUST BE PRESENT IN AUX STORAGE 
BEFORE AN AUX PROGRAM DECK CAN BE LOADED. 

2.3 PAPER TAPE INPUT 

THt AWX DTAGHOSTtC LCAOtft (PAPER TAPE - PIO 08A0I MUST BE PRESENT IN 
AUK STORAGE GCFORE: AN AU PAPE^R TAPE PROCPAH CAN 0£ LOADED. 

USE PROCEDURES 

eEFORE PHOCCEOIN<;t A PROGRAM MUST BE IN MAIN-CORE STORAGE RUNNING 
OR AT A riAIT INSTRUCT ICN READY TO START RitNNING. 



3.1 CARD INPUT LOADING PROCEDURE 

A. BE SURE THE 1442 IS AVAILABLE ANC ALL CARDS ARE REMOVED. 

B. ON THE CE PANEL SET THE li^TERRUPI SWITCH TO AUX INTERRUPT 
AND ALL THE CE SKITCHES TO THEIR ON POSITION lUPt. 

C. DEPRESS CE INTERRUPT TWO TIHCS TO ASSURE THE 1442 IS IN CE MODE. 

D. PLACE THE SEVEN CARDS OF THE AUX 1627 EXERCISER PROGRAM IN 
The HOPPER OF THE 1442 AND FOLLOW WITH A SLANK CARD. 

NOTE 

EACH PROGRAM CARD HAS A CHARACTER ENTERED INTO COLUMN 80. 
THIS CHARACTER DEFINES THE CARD«S POSITION IN THE DECK 
ACCORDING TO THE FOLLOWING SEQUENCE. XIFIRST), THEN 0, I, 2. 
3. 4, AND 5. THE CARDS CANNOT BE READ UNLESS THEY ARE PLACED 
IN THE HOPPER IN THE CORRECT ORDER. 

E. DEPRESS THE 1442 START PUShBLTTON. READY INDICATOR SHOJLD LIGHT. 

F. SET POWER ON/CFF SWITCH OF lt2? PLOTTER TO ON. 

G ENSURE THAT A CLEAR PLOTTING SPACE IS AVAILABLE ABOVE THE 
HCRUONTAL PEN-CARRIAGE KAILS. 

H. SELECT THE DESIRED ROUTINE FROM TABLE 1. 

I. DEPRESS CE LEVEL INTERRUPT PUSHBUTTON ION CE PANEL! TO LOAD THE 
PROGRAM. CIF THE HOPPER OF THE 1442 DOES NOT GO EMPTY THE CHECK- 
SUM ROUTINE IN THE AUX DIAGNOSTIC LOADER MOST LIKELY REJECTED 
THE PROGRAM. CHECK THE CARDS FOR PROPER SEQUENCE AND RETURN TO 
STEP A AND TRY ACAINi. 

J. GO TO SECTION 3.3 

3.2 PAPER T'PE INPUT LOADING PROCEDURE 

A. BE SURE THAT THE 1054 TAPE READER IS AVAILABLE AND THAT THERE IS 
NO TAPE IN THE READER. 

B. ON THE CE PANEL SET THE INTERRUPT SWITCH TO AUX INTERRUPT AND ALL 
THE CE SWITCHES TO THEIR ON POSITION lUPI. 

C. DEPRESS CE INTERRUPT PUSHBUTTON TWO TIMES TO ASSURE THAT THE 1054 
IS PLACED IN CE MODE. 

D. PLACE THE FIRST TAPE CHARACTER OF THE PROGRAM DIRECTLY ABOVE 
THE SENSE PINS IN THE 1C54 READER. C THE CHECK-SUM ROUTINE CF THE 
AUX OIACNlSTiC LCADEK WILL REJECT THE PROGRAM IF THE AUX TAPE 

IS LOADED INCORRECTLY!, 
t. SET POWER ON/OFF SWITCH OF 16^7 PLOTTER TO ON. 

F. ENSURE THAT A CLEAR PLOTTING SPACE IS AVAILABLE ABOVE THE 
HORIZONTAL PEN-CARRIAGE RAILS. 

G. SELECT TFE DESIRED ROUTINE FROM TABLE 1. 

H. DEPRESS CE LEVEL INTERRUPT TO LOAD THE PROGRAM. TAPE ACTION 

SHOULD START AND CONTINUE UNTIL THE ENTIRE AUX PROGRAM HAS BEEN 
READ. WHEN THE READER STOPSt THE FIRST TAPE FEED HOLE CHARACTER 
FOLLOWING THE AUX PROGRAM DATA SHOULD BE LOCATED DIRECTLY ABOVE 
THE 1054 SENSE PINS FOR A CORRECTLY STORED PROGRAM. IF THE TAPE 
DID NUT STOP AT SAID LOCATION. RETURN TO STEP A 10 RELOAD PROG. 

3.3 TYPICAL PROGRAM OPERATING PROCEDURE 

THE ROUTINE SELECTED WILL AUTOMATICALLY START AFTER 
THE PROGRAM HAS BEEN ENTERED INTO AUXILIARY STORAGE. SUBSEQUENT 
ROUTINES MAY BE SELECTED AT ANY TIME USING THE SWITCH SETTINGS 
LISTED IN TABLE 1. 
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ROUTINE 



TABLE I. CE PROGRAM SWITCH SETTINGS 

FUNCTICN 



SWITCHES 

8 9 10 11 12 13 14 15 



REGISTRATION 
TEST 



SELECT 

COMMAND 



PEN DOWN 

DRUM DOWN ... 

DRUM UP 

CARRltP KlGhT.,, 
CARRlfcR LEFT.... 
PEN UP 



C 



INITIALUt y 

REGISTRATION 

TEST 



Ct SERVICE 
STOP 



PROGRAM 
TERMINATOR 



1 1 



1 1 



11111 



♦•CAUTION** 



THIS SWITCH SETTING INITIATES A ROUTINE 
ThAT CAUSES A REGISTRATION-TEST PATTERN TO 
b£ PLOTTED. (SEE StCT. 5. 1 FOR DETAI LS OF 
Tut PLOTTING ROUTINE.) THIS ROUTINE WILL 
CCNTINUE UNTIL ANOTHER ROUTINE IS SELECTED. 

THIS SI.ITCH SETTING INITIATES A ROUTINE 
That PLACES THE INFOKMATION CONTAINED IN 
THE CE PROGRAM SWITCHES 8 THRU 13 INTO AN 
XIO CCKMAND WOUU. AN XI WRITE COMMAND IS 
IhrN ISSUrJ. ANY COMBINATION OF COMMANDS 
CAN bE SELECTED ST KULTANEOUSLY. IF THE 
FIRST SIX 8IT SWITCHES ARE OFF, A 
PRCGR4f:ME0 PEN-UP COMMAND IS GIVEN TO AVOID 
LOSING THE PLOTTER INTERRUPT. THE ROUTINE 
IS REPtATED UNTIL ANOTHER ROUTINE IS 
SELECTED. 



THIS SWITCH SETTING STOPS WHATEVER ROUTINE 
IS IN PROGRESS AND INITIALIZES AND STARTS 
THE REGISTRATION-TEST ROUTINE. THE 
IMTIALIZE-REGISTRATION-TEST ROUTINE IS 
IMERLDCKtU WITH THE REGISTRATION-TEST 
ROUTINE. THUS, AFTER THE ROUTINE IS FIRST 
ENTtRfct, THE PROGRAM FLOW IS IDENTICAL TO 
The flow of THE REGISTRATION-TEST ROUTINE. 
IN OkULR TO RtSELfcCT THE INITIALUE- 
RLGISTPATICN-IEST ROUTINE, THE CE PROGRAM 
SWITCHES MUST BE FIRST SIT TC OOOOCOOO 
(REGISTRATION-TEST ROUTINE) AND THEN SET 
TC OOOLCOIO ( IMTIALIZE-REGISTRATION-TEST 
RLlUIINt). THIS ROUTINL WILL CONTINUE UNTIL 
ANCThER ROUTINE IS SELECTED. 

THIS SWITCH SETTING CAUSES THE 1«>27 PLOTTER 
TC STOP PLOTTING BUT DOES NOT TERMINATE THE 
DIAGNLSIIC PRUCRAH. THIS ROUTINE ALLOWS 
KfCHAMCAL ADJUSTMENTS TO BE MADE TO THE 
16?7 PLOTTtR. TO RESTART THE PLOTTER, 
StLtLT A DESIRED TEST ROUTINE AND DEPRESS 
THE CE LEVEL INTERRUPT PUSHBUTTON. 

THIS SWITCH SETTING INITIATES A ROUTINE 

THAT TlRMINATES THE 1627 PLOTTER 

RtGISTFATION AUXILIARY-STORAGE DIAGNOSTIC 

PROGRAM. THIS SWITCH SETTING 

MUSI ALWAYS BE USED UPON COMPLETION 

OF THE SERVICE CALL TO RELEASE THE DEVICE 

TC THE CUSTOMER. 

FCLLOW THE TERMINATING PROCEDURE 
IN SECTION 3.5 . 



3.4 CE SERVICE STOPS 

THIS STOP IS RECOMMENDED WHEN MAKING ADJUSTMENTS. 
NOT BE TERMINATED. 



THE PROGRAM HILL 



3.5 TERMINATING PROCEDURE 

10 TERMINATE THE PROGRAM AND RETURN THE DEVICE TO THE CUSTOMER- 

A. SET THE CE PROGRAM SWITCHES TO OOOOIUI -CE SERVICE STOP. 
ITHE ONLY REASON FOR USING THIS SETTING IS TO STOP ANY DEVICE 
ACTION WHICH KAY CAUSE AN INTERRUPT). 

B. SET THE CE PROGRAM SWITCHES TO 11111111 -lERMINATOR SETTING. 
AND DEPRESS TFE CE INTERRUPT LFVEL BUTTON ONCE AND ONLY ONCE. 
(A SECOND DEPRESSION OF THE CE INT. KEY WILL RESULT IN THE 
AUX DIAGNOSTIC LOADER TRYING TO LOAD A NEW PROGRAM IF THE 
READER IS READY. I , ■ nc 

NOTE 

TO OFFSET THE POSSIBILITY THAT THE INPUT DEVICE MIGHT BE 
MALFUNCTICNiNG THE NEXT TIME THE 1800 SYSTEM NEEDS SERVICING 
The F0LLCWI,JG program SHOULD BE LOADED INTO AUX CORE AT THE 
CONCLUSION OF EACH SERVICE CALL - 

A. CARD INPUT 

LOAD THE AUX 1442 PACKED READ EXERCISE PROGRAM JPID 08AA) 
AFTER ASSURING THE PROGRAM IS BY PUNCHING CARDS, CE 
SWITCH SETTING OCCOGOtl, SET IN THE FAREWELL OPTION, 
Ct SWITCH SETTING OOOOtOOO AND LEAVE THE SWITCHES AT 
THIS SETTING, TO ENSURE THE GREATEST PROTECTION TO THE 
CUSTOMER. DEPRESS CE INTERRUPT. 

B. TAPE INPUT 

LOAD THE AUX 1054/55 EXERCISE PROGRAM (PIO 08A8). 
AFTER ASSURING THE PROGRAM IS IN BY PUNCHING TAPE, CE 
SWITCH SETTINGS OOOCOOOl, SET IN THE .-AREWELL OPTION, 
CE SWITCH SETTING OOOCOCCO AND LEAVE THE SWITCHES AT THIS 
SETTING TO ENSURE THE GREATEST PROTECTION TO THE 
CUSTOMER. DEPRESS CE INTERRUPT. 

4. PRINTOUTS 

lo, ^^'"TOUT OF THE REGISTRATION-TEST ROUTINE IS SHOWN IN FIGURE 1. THIS 
PRINTOUT IS PRODUCED BY PLOTTING * FIGURES AS THE CARRIAGE MCVES LEfI TO 

R GHT tTlFF?"thF Ll'TIl^.". ''" °' '-^ * •^"^"•'" « THE CARRIER MOVES 
RIGHT TO LEFT. THE PEN IS RAISED AFTER PLOTTING EACH SEGMENT CF THF FTiioP 

RETURNED TO THE CENTER OF THE FIGURE, AND LOWERe' tS START I NEW sIgMENt! * 

5. CCPMENTS 

apcroc^rH-c^nl ^^ "^ HAIN-CORE STORAGE AND MUST BE RUNNING OR READY TO START 
nf^r^Ll!:"^ PROGRAM CAN BE LOADED. ASSUMING THAT, (II THE AUX 
DIAGNOSTIC LOADER IS PRESENT IN AUXILIARY-CORE STORAGE, (2) VHE PROGRAM IS 
IN THE READER AND READY TO BE READ, AND (3) A ROUTINE HAS BEEN SE^EC^Fn 
STORF^'Inh I?L^'.n''''^ INTERRUPT PUSHBCTTON CaSsES Le PRO^RAmS'o"""' 
STORED AND STARTED. AFTER STARTING, THE PROGRAM SETS THE 1627 PLOTTER 
TO THE CE MODE. TO DETERMINE THE ROUTINE THAT IS SELECTEot THE PRnrlA* 
SENSES THE DSW AND THE CE PROGRAM SWITCHES. IF A PROGrIm TeJmINaJSr ts 
SENSED, A TRANSFER-VECTOR ADDRESS IN THE LOADER PROGRAM IS REsIS^St^ 
inLc"'^'^**- CONTENTS. IN ADDITION, THE CE MODE OF THE 627 ""^TER Js 

I PROGRAM ;ESM?NA?nI"?!- IVIT'''° '" ^"^ CUSTCMER.S HAlNLifrPROcSAli! If 
,,^„ ^5 ?/^ ''"^*^°'' '^ '^"^ SENSED, THE PROGRAM SENSES FOR A Cc SERVICF 
ST CP ROUTINE. IF CE SERVICE STOP IS SELECTED. CONTROL IS RETURNED T^ THE 
CUSTOMER'S MAINLINE PROGRAM. If CE SERVICE STOP IS NOT SELECTeS THF 
PROGRAM EXECUTES LNE OF THE ROUTINES DISCUSSED IN THE fOL LOWING JaJaCRAPHS. 
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5.1 



REGISTRATION-TEST ROUTINE 



TO ESTA&LISH A STARTING POINT FOR THE FIRST ♦ FIGURE, THE PROGRAM 
HItL RAISE AND MOVE THE PEN 1/2 INCH FROM THE LEFT SIDE, AND MOVE 
THE PAPER UP 1/2 INCH. THE ROUTINE THEN GENERATES COMMANDS FROM A 
COMMAKO GENERATOR TO PRODUCE THE FIRST ♦ FIGURE. THE COMMANDS 
ARE GENERATED IN THE FOLLOMING ORDER, 



LEFT 1/4 INCH. 
RIGHT l/« INCH. 
DRUM UP 1/4 INCH. 
DRUM DOWN 1/4 INCH. 
RIGHT !/♦ INCH. 
LEFT 1/4 INCH. 
DRUM DOWN 1/4 INCH. 
DRUM UP 1/4 INCH. 

HAS BEEN EXECUTED AND THE ♦ FIGURE IS 
DETERMINES WHETHER 21 ♦ FIGURES HAVE BEEN 
CENTER OF THE NEXT ♦ FIGURE IS LOCATED BY 
PEN RIGHT 1/2 INCH. WHEN THE CENTER OF THE 
NEXT ♦ FIGURE IS PLOTTED IN THE SAME MANNER AS 
IGURES ARE PLOTTED, THE PROGRAM SETS UP AN X- 
R. THESE X FIGURES ARE SUPERIMPOSED ON THE ♦ 
ROM ilGHT TO LEFT IN A MANNER SIMILAR TO THAT 

FIGURES. THE COMMANDS REQUIRED TO PRODUCE 
ATED IN THE FOLLOWING ORDER 



A. LOWER AND MOVE PEN 

B. RAISE AND MOVE PEN 

C. LCwER PEN AND MOVE 
0. KAISE PEN AND MOVE 

E. LCWER AND MOVE PEN 

F. RAISE AND MOVE PEN 

G. LCWER PEN AND MOVE 
H. RAISE PEN AND MOVE 

AFTER THE LAST COMMAND 
COMPLETED, THE ROUTINE 
GENERATED. IF NOT, THE 
RAISING AND MOVING THE 
FIC'JRE IS LOCATED, THE 
THE FIRST. AFTER 21 ♦ F 
FIGURE COKMANO GENERATO 
FIGURES AND ARE DRAWN F 
WHICH IS USED TO PLOT ♦ 
EACH X FIGURE ARE GENER 

A. LOWER PEN, MOVE 

8. RAISE PEN, MOVE 

C. LOWER PEN, MOVE 

0. KAISE PEN, MOVF 

E. LCWER PEN, HOVE 

F. RAISE PEN, MOVE 

G. LOWER PEN, MOVE 
M. RAISE PEN, MOVE 

AFTER 21 X FIGURES ARE PLOTTED, THE ROUTINE CLEARS 1/2 INCH OF PAPER, 
AND • FIGURES ARE AG»»N PLOTTED. THE REGISTRATION-TEST ROUTINE IS 
KEPEATED UNTIL A NEW llOUTINF IS SELECTED. 

5.2 INITIALUE-REGISTRATION-TEST ROUTINE 

THE IMTIALIZE-REGISTRATION-TEST ROUTINE STOPS WHATEVER ROUTINE IS IN 
PROGRESS AND INITIALIZES AND STARTS THf REGISTRATION-TEST ROUTINE. 
THE INITIAL IZE-RfGISTRATION-TFST ROUTINE IS INTERLOCKED WITH THE 
REGISTRATION-TEST ROUTINE SO THAT AFTER THE ROUTINE IS FIRST ENTERED. 
THE PROGRAM FLOW IS IDENTICAL WMH THE FLOW OF THE REGISTRATION- 
TEST ROUTINE. IN ORDER TO REPEAT THE INIT I AL IZE -REGISTRAT ION ROUTINE, 
THE REGISIRATION-TESI ROUTINE MUST BE SEIECTED FI^ST BEFORE THE 
INITIALIZE-REGISTRATION ROUTINE. 

■j-a SEltCT-COMMANO ROUTINE 

THE SELECT-COMMAND ROUTINE PLACES THE INFORMATION CONTAINED IN CE 
PROGRAM SWITCHES 8 THRU 13 INTO AN XIO COMMAND WORD AND THEN 
EXECUTES AN XIO WRITE INSTRUCTION. THE ROUTINE IS REPEATED 
UN'IL ANOTHER ROUTINE IS SELECTED. ANY COMBINATION OF COMMANDS CAN BE 
SELtCTED SIMULTANEOUSLY. IF CE PROGRAM SWITCHES 8 THRU 13 ARE ALL 
OFF, A PROGRAMMED PEN-UP COMMAND IS GIVEN TO AVOID LOSING THE 
PLOTTER INTERRUPT. 

APPENDIX 



PEN 


RIGHT 


, AND MOVE ORUN UP. 


PEN 


LEFT, 


AND MOVE ORUN OOUN. 


PEN 


LEFT, 


AND MOVE DRUM UP. 


PEN 


RIGHT 


AND MOVE DRUM DOWN 


PEN 


LEFT, 


AND MOVE DRUM DOWN. 


PEN 


RIGHT 


AND MOVE DRUM UP. 


PEN 


RIGHT 


AND MOVE DRUM DOWN 


PEN 


LEFT, 


AND MOVE DRUM UB. 
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ABS 

ORG /36 

IF THIS PROG IS TO BE USED FOR A MACHINE 
WITH A DIFFERENT AREA CODE, THE LOCATION WHICH 
REFER TO THE LABEL AREA IN SVMaOL TA&IE MUST 

BE CHANCED BY HEX CORRECTION CARDS TO OBTAIN A 
MODIFIED AUX 8-8 OBJECT DECK. SEE AUX CE PROG 
GENERATOR MRITE-UP FOR PROCEDURE. 



PLOTTER REGISTRATION AND 
• PEN UP/DOWN TEST 

THIS PROG CAN BE LOADED FROM CARDS OR PAPER TAPE 



CE SWITCH SETTINGS 



XXXXXXOO 
XXXXXXIO 



XXXXlllI 
UUIUI 
CCCCCCOt 
I73'.56 
PEN DOWN 1 23456 
DRUM DOWN 22 3456 
DRUH UP 333 456 
CARRIER RT 4444 56 
CARRIER LT 55555 6 
PEN UP 666666 



REGISTRATION TEST 
IN!TALI2E REGISTRATION 

• TEST. SU TO XXXXXXOO 
» AFTER TEST STARTS 

CE SERVICE STOP 
TERMINATE RUN 
SELECT COMMANDS BY 

• BIT SW SETTINGS 

• AS SHOWN 

» IF ALL CO'IHAND BITS 

• FOUND TO 9E OFF A 

• PROGRAMMED PEN UP 

» COMMAND WILL BE GIVEN 

• TO AVOID LOSING 

• PLOTTER INTERRUPT 



ARE 



NOTE 



THE X SYMBOL MEANS 
* DOES NOT MATTER 



ao36 


1000 


0037 


1000 


0038 


1000 


003^ 


1000 


003A 


1000 


00 3B 


1000 


303C 


C027 


003D 


00F7 


0O3E 


C027 


003F 


D0C4 


DATE 


28FEB&6 


EC NO. 


415120 



FDR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 
REFER TO THE PROGRAM DESCRIPTION WRITE-UP. 

AUX PROG ENTRY POINTS 

1ST PASS ENTRY 

THE NEXT EIGHT WORDS WILL NOT APPEAR IN CORE WHEN 
• USING THE AUX PAPER TAPE DIAGNOSTIC LOADER 



NO OPERATION 
NO OPERATION 
NO OPERATION 
NO OPERATION 
NO OPERATION 
NO OPERATION 
RESTORE LOC NICE 

• IN AUX LOADER 

PLACE BRANCH 

• TO RETUR LABEL 



NOP 




NOP 




NOP 




NOP 




NOP 




NOP 




LD_ 


CEOFF 


STO 


/35 


LO 


CEON 


STO 


/04 



8A601)Q0O 

»A600Qtfr 

8A600a20 

SA6000SO 

SA600040 

8A6000SO 

8A600O«ff 

8A600OT0 

8A600080 

8A600090 

•A6O0t00 

8A6O0tl0 

eA60012» 

8A600t30 

8A600I40 

8A600I$0 

8A600I60 

8A600170 

8A600ieO 

8A60019O 

8A600200 

8A60&2I0 

8A600220 

8A600230 

8A600240 

8A600250 

8A600260 

8A600270 

S^A60028a 

8A600290 

SA600300 

8A600310 

8A60032S 

8A600330 

eA6003«0 

8A6003SO 

8A60036a 

8A600370 

8A600380 

8A601>390 

8A600400 

8A600410 

8A600420 

8A600*30 

8A600440 

8A600450 

8A600460 

8A600470 

8A600480 

8A6U0490 

8A600500 

8A600S10 

8A600S20 

8A600S3a 

8A600S40 

8A60055a 

eA600560 

8A600570 

8A600580 

eA600S90 

8A600600 

8A6006tO 

8A600620 

eA600&30 

SA600640 

eA600650 

8A600660 

8A600670 



PROG 10 
PAGE 









• 
• 
• 






ADD AREA 


0O4O 





6ior 


LDX 


1 


7 


31.41 





C164 


BUILD 


LO 


1 


CEOFF 


0042 





E8IE 




OR 




AREA 


304 3 





0164 




STO 


1 


CEOFF 


0044 





7IFE 




MOX 


1 


-2 


0C4S 





70FB 


• 


MOX 




BUILD 












AIL BUT 


0046 





081F 


RETUR 


XIO 




CEON 


0047 





6A41 




STX 


2 


SAVE241 


0048 





6842 




STX 


3 


SAVE3+1 


0049 





08IE 




XIO 




osw 


004A 





0817 




XIO 




SENBI 


004B 





E016 




AND 




SENBI 


004C 





OOIB 




STO 




DSW 


004D 





F0I4 




EQR 




SENBI 


004E 


00 


4C I 8008 3 


• 
XXI 


BSC 


L 


NOTRO,*- 


0050 


00 


65000001 


LDX 


LI 


I 


0052 


00 


C6000000 


XX2 


LDX 


L2 





0054 





C013 




LO 




DSH 


0055 





1882 




SRT 




2 


0056 





1010 




SLA 




16 


0057 





1082 




SLT 




2 


0058 





0001 




STO 




CAH4^1 


0059 


00 


67000000 


CAM 


LDX 


L3 





005B 


00 


4F8000SD 




BSC 


13 


KALS 



ADD AREA CODE TO THE I/O COMMANDS 



GET lOCC WORD AND 

* OR IN AREA AND 

* PLACE BACK 



1ST PASS ENTRY POINT 



SENSE DEVICE STATUS 
SENSE CE SU '.0 ACCOM 
BLOCK OUT PROG SEL SW 



BR OUT OF PROGRAM 



0050 0099 

DOSE 008D 

005F 0075 

3060 0088 



0061 2800 



KALS DC QSA REGISTRATION TEST 

DC COMAO SELECT COMMAND 

DC INIT INIT REGISTRATION TEST 

DC SAVE2 CE SERVICE STOP 

* 

AREA DC /2800 1ST 1627 AREA CODE 

• ♦ CHANGE THIi VALUE FOR^ 

* 'A DEVICE ON ANOTHER AREA 



08A6-0 
1 



0062 




0000 


0062 





OOFF 


0063 





0760 


0064 





7007 


0065 





0000 


0066 





7041 


0067 





0001 


0068 





0000 


0O69 





0701 


006A 


O 


0068 


006B 





0100 


006C 




0000 


006C 





8000 


0060 





0400 


006E 





A409 


006F 





4210 


0070 





2D34 


0071 





D2CB 


0072 





00O8 


0073 





OOIS 


0074 





7025 


0075 





1000 


0076 





6100 


0077 





6200 


DATE 




28FEB66 


EC NO. 


VISI20 



* 




CONSTANTS 


AND/OR lOCC WORDS 




BSS 


E 




SENBI 


DC 


/OOFF 


TERMINATE CONSTANT 




DC 


/0760 


SENSE CE SWITCHES 


CEOFF 


DC 


NNNN 






DC 


/OOOO 


CE OFF lOCC 


CEON 


DC 


TTTT 






DC 


/OOOl 


CE ON lOCC 


DSW 


DC 


/OOOO 






DC 


/0701 


PLOTTER OSM 


WORKQ 


DC 


DSW 






DC 


/OlOO 


lOCC WORD WR PLOr 




BSS 


E 




PEEUD 


OC 


/8000 






DC 


/0400 




WORDR 


OC 


/A409 






DC 


/4210 




XXXX 


OC 


/2034 






OC 


/02CB 




FLUTE 


OC 


8 






DC 


21 






MOX 


HOUT-1 




INIT 


NOP 




NO OP OR MOX TO HOUT 




LDX 


1 






LOX 


2 





8A600fr*0 

8A600fr90 

eA600T00 

8A600TtO 

8A600720 

8A60O730 

8A60074a 

8A&00T50 

8A600T60 

8A600770 

8A600780 

8A600790 

8A600800 

8A6(K>810 

8A600820 

8 A600830 

8A600840 

BA60Q850 

6A600860 

8A600870^ 

BA60088O 

8A600890 

8A600900 

8A600910 

8A600920 

8A60093O 

8A600940 

8A600950 

8A600960 

8A6009T0 

8A60098a 

8A600990 

8A601000 

8A60t0t0 

8A6O1020 

8A601030 

8A6ai040 

8A601050 

8A60LC60 

8A601070 

8A6&1080 

8A6O1090 

8A60110e 

8A601110 

8A601120 

8A601130 

8A601140 

8A601150 

8A601160 

8A601170 

eA601180 

8A60119Q 

8A601200 

8A601210 

8A601220 

8A601230 

8A601240 

8A601250 

8A601260 

8A60127O 

SA601280 

8A601290 

6A60t 300 

8A601310 

8A60L320 

8A601330 

BA601340 

8A601350 
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AOK 1627 REGISTRATION EXERCISER 
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0078 
0079 
007A 
0078 
007C 
0070 
007E 
007F 
0080 
0081 
0082 



C8F3 
083E 
C8F3 
08^6 
C8F3 
D862 
C8F3 
0844 
C0F3 
D0F3 
7026 



LOO 

STD 

LOO 

STO 

LOO 

STO 

LOO 

STO 

LD 

STO 

MDX 



0083 00 65000813 
008S 00 60000004 
0087 080C 



0C88 00 660OC000 
008A 00 67000000 
008C 7080 



PEEUO 

PENUH 

HORDR 

UOROO 

XXXX 

XXX 

FLUTE 

FLOUT 

INIT-I 

INIT 

DISPA 

• 

• EklT POINTS TO AUX LOADER 

• •♦»•»•»*•»••»»♦•••••♦»»•« 

• TERMINATE EXIT POINT 

* 

NOTRO LOX LI HUWH 
STX LJ /O* 
XIO CEOFF 

• NORMAL EXIT POINT 

• 

SAVE2 LDX L2 
SAVE3 LOX L3 

MDX 0000 EXIT TO AUX LOADER 



BR NO COMMAND 



m 

• OUTPUT TABLE 












SELECTED 


0080 


CODA 


COMAO 


LD 


OSU 


308E 


1801 




SRA 


1 


008F 00 


4C180094 




BSC 1 


PPPPP, ♦- 


0091 


1009 




SLA 


9 


0092 


0005 


FOX 


STO 


DSW 


0093 


7000 




MDX 


EXIT 


0094 


C018 


PPPPP 


LO 


PENUU+1 


0095 


70FC 




MDX 


FOX 



0096 

0096 

0097 

0098 


0000 
0001 
0400 
0000 


COUNT 
OUTAP 

• 


BSS 
DC 
DC 
DC 


E 



I 

/0400 
/OOOO 


OUTPUT GROUP COUNTE 
OUTPUT CHARACTER 
TERM lEST FOR ZERO 






• 
• 
* 








OUTPUT ROUTINE 


0099 
009A 


COIB 
OOOA 


OSA 

* 
HOUT 

• 

• 
EXIT 

9 


LD 
STO 




NOP 

iNir 




009B 00 
0090 00 

009F 
OOAO 


C6C00097 
4C1800A5 

D0C8 
7201 


LD 

BSC 

STO 

HDX 


L2 

L 

2 


OUTAB 
STEPC,* 

DSW 
1 


BR NO CHAR AT THIS 
♦TABLE LOCATION 


OOAl 
00A2 
0OA3 
00A4 


08C8 
69AE 
6AAF 
70E3 


XIO 

STX 1 
STX 2 

MOX 


WORKQ 
XXl + 1 
XX2*l 
SAVE2 


0QA5 


6200 


STEPC 


LDX 


2 







DATE 
EC NO. 


28FEB66 
4IS120 













8A601360 

8A601370 

8A601380 

BA601390 

8A601400 

8A601410 

8A60U20 

8A6ai430 

8A601440 

8A6014S0 

8A601460 

8A60I4TO 

8A601480 

8A601490 

8A601500 

8A601S10 

8A601520 

6A601S30 

8A601S40 

8A601550 

8A601560 

8A601S70 

8A6015B0 

eA601S90 

8A601600 

8A601610 

BA6dl620 

SA601630 

8A601640 

eA6016S0 

8A601660 

8A601670 

8 A601680 

8A601690 

8A601700 

8A601710 

8A601720 

8A601730 

8A601740 

«A601750 

8A601760 

8A6017T0 

8A601780 

8A601790 

8A601800 

8A601810 

8A601820 

8A601830 

8A601840 

8A6018S0 

8A601860 

8A601870 

8A601BB0 

8A601890 

8A601900 

8A601910 

8A601420 

8A601930 

8A601940 

8A6019S0 

8A601960 

8A601970 

eA601980 

8A661990 

8A602000 

8A602010 

8A602020 

8A602030 
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PAGE 



08A6-0 

2 



0OA6 00 74FF0096 
00A8 70F2 



00A9 7101 
OOAA 00 408000FO 



OOAC 0000 
OOAC 0001 
OOAO 0400 



OOAE 
OOAF 



C8F0 
700E 



OOBO 0000 
OOBO 0032 
OOBl 4000 



00B2 
00B3 



C8F0 
700A 



0084 0000 
bOB4 0032 
OOBS 1000 



00B6 
00B7 



C8F0 
7006 



0088 




0000 


0088 





8000 


0089 





0400 


0OB& 





C8FD 


O&BB 





1800 


ODBC 





DBF 8 


OOBO 





COEE 


OOBE 





0807 


OOBF 





7008 



oocd 
ooco 

OOCl 
00C2 

doc 3 o 



DATE 
EC NO. 



MOX I COUNT, -I 
MOX HOUT 

• DISPATCHER ROUTINE 

DISPA MOX 11 

BSC 11 OISP BRANCH TO NEXT ROUTIN 

PEN UP ROUTINE 



BSS 

PENUU DC 
DC 

PENUP LOO 
MOX 





/OOOl 
/0400 



COUNT OF ONE 
PEN UP WORD 



PENUU 
PFOMP 

• UP 50 ROUTINE 



BSS 

PP50 DC 
OC 

UPSO LDD 
MOX 





50 

/4000 



COUNT 

UP COMMAND 



PP50 
PFOMP 

* 

» 



RIGHT 50 ROUTINE 



BSS 

RIK50 OC 
NOP OC 

RIG50 LOO 
MOX 





50 

/lOOO 



COUNT 

RIGHT COMMAND 



RIK50 
PFOMP 



PEN DOWN/UP ROUTINE 



BSS 

PENUH OC 
DC 

• 

PENUO LOD 
RTE 
STO 
LO 

PFOMP STO 
MOX 





/8000 

/04C0 

»ENUH 

16 

PENUH 

PENUU 

COUNT 

HOUT 



PEN DOWN 
PEN UP 






SOOO 
A409 
4210 
0019 
7800 



28FEB66 
415120 



PLUS PATTERN 

BSS E 
WORDQ DC /A409 PLUS FUNCT 

DC /4210 • INITIALLY 
KOUNT DC 25 COUNT 

B1234 OC /7800 



8A602040 

eA602150 

8A602060 

BA6020T0 

8A602080 

8A602090 

8A602100 

8A602110 

8A602120 

8A602130 

8A602140 

8A6021S0 

8A602160 

8A6021T0 

8A602180 

8A602190 

BA602200 

8A602210 

8A602220 

8A602230 

8A602240 

8A602250 

8A602260 

8A602270 

6A602280 

8A602290 

8A602300 

8A602310 

BA602320 

8A602330 

BA602340 

8A6023S0 

8A602360 

BA602370 

8A602380 

BA602390 

8A602400 

8A602410 

8A602420 

8. •6024 30 

8A602440 

8A602450 

eAi602460 

BA602470 

8A602480 

8A602490 

8A602500 

8A602S10 

8A602520 

8A602530 

8A6025^0 

8A602S50 

8A602560 

8A602570 

8A602S80 

8A602590 

8A602600 

8A602610 

SA602620 

8A602630 

8A602640 

BA6026S0 

8A602660 

8A602670 

8A6Q2680 

8A602690 

8A602700 

8A602710 
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tan MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1*00 SVSTEM 
AUX 1627 REGISTRATION EXERCISER 
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IBM MAINTENANCE OIACNOSTIC PROGRAM FOR THE IBOO SYSTEM 
AUX 1627 REGISTRATION EXERCISER 



PART NO. 2l964St 
PASE 9A 



00C4 





0008 


0OC5 





0015 


0OC6 





C8F9 


00C7 





18C4 


00C6 





08F7 


00C9 





E0F9 


OOCA 





18D0 


90CB 


oc 


7*FF00C* 


OOCO 





71Ff 


OOCE 





C0F3 


oocr 





70EE 



OODO 
0000 
OODl 
000? 
0003 






o 



0004 

ooos 

0006 

0007 00 

0009 

OOOA 

OODB 

OOOC 

0000 

OOOE 

OOOF 



0000 
0032 
1000 
0008 
0015 

C8FB 

COFC 

OOED 

74FF00C5 

7003 

CdF7 

08 E 8 

70CC 

71FD 

COFl 

70DE 



OCEO 0000 

OOEO 203* 

OOEl 02CB 

00E2 C8FD 

00E3 18C4 

00E« 08FB 

eOE5 70E2 



00 E 6 0000 
0OE6 0000 
00E7 0800 



00E8 
90E9 



OOEA 
30EB 



OOEC 



C8F0 
70fc6 



71F8 
7080 



0000 



FLOUT OC 
OC 

• 

PLUS LOO 
RTE 
STO 

CRUNH ANO 
RTE 
MDX 
MDX 
LO 
MOX 



8 
21 

UOROQ 
4 

HOROO 
81234 
16 

FLOUT, -I 
I -2 
KOUNT 
PFOMP 



LOOP COUNT 
LOOP COUNT 

ROTATE PLOTTER 

• PLUS WORD ANO 

• PLACE 

• COMMANO MORO 

• IN REGISTER 



* 

BSS 
RII50 OC 

DC 
EIGHT OC 

DC 



RIGHT SO ROUTINE 



50 COUNT 

/lOOO RIGHT COMMAND 

8 PASS COUNT CONSTANT 

21 LOOP COUNT CONSTANT 



RESTORE LOOP 
• COUNTER 



KI50 LDO RII50 

UNCHH LD EIGHT 

STO FLOUT 
MDX L FLrUT*l,-l 

MOX THUCH 

100 EIGHT 

STO FLOUT 

MOX 01 SPA 
THUCH MDX 1-3 

LO RII50 

MDX PFOMP 



XXX 



BSS 

OC 
OC 



X PATTERN 



/2034 

/02CB 

XXX 

4 

XXX 

CRUNH 



X FUNCTION 
• INITIALLY 



XPATN LOO 
RTE 
STO 



LEFT 50 ROUTINE 



NOT USED 

/0800 LEFT COMMANO 

LFF50 

UNCHH 



BSS 
LFF50 OC 
OC 

LEF50 LOO 

MOX 



• LOOP ROUTINE 

LOOP MOX 1 -8 

MOX 01 SPA 



BSS E 



SA602720 

8A602r30 

8A602T40 

• A6027S0 

8A602760 

8A60277S 

BA6027B0 

8A602790 

8A602800 

6A6028lir 

8A602820 

8A602a3e 

8A6028«0 

8A6028S0 

8A602B60 

8A6e2870 

8A602a8e 

eA602890 

8A602900 

8A602910 

8A602920 

8A602930 

8A60294e 

8A6029S0 

8A602960 

8A602970 

8A602980 

8 A 602990 

8A6030e0 

8A603010 

8A60)020 

8A603030 

8A603040 

8A603050 

8A6O306O 

8A603070 

8A603OS0 

8A603090 

SA603100 

8A6C3110 

8A603I20 

8A603I30 

8A6031«0 

8A6031Sa 

8A603t60 

8A6031T0 

8A60318O 

8A60319(I 

8A603200 

8A603riQ 

8A603220 

8A603230 

8A6O3240 

8A60325» 

8A6e3260 

8A603270 

8A6032S0 

8A6O3290 

8A6O330O 

8A603310 

8A60332e 

8A603330 

8A603360 

8A60)350 

8A603360 

8A603370 

8A603380 

8A603390 



OOEC 
OOED 

OOEE 
OOEF 



OOFO 
OOFl 
00F2 
OOF 3 
00F4 
OOFS O 
00F6 
OOF 7 
OOFS 
00F9 
OOFA 
OOFB 











GOOD 
7007 
0813 
7041 



OOFC 



044C 
0800 

C8F0 
70CE 



OOAE 
00 AE 
OOEE 
00 B6 
00B2 
OOBA 
00C6 
0004 
OOBA 
O0E2 
00E8 
OOEA 



XI 100 DC tlOO COUNT 

OC /0800 LEFT COMMAND 

LI 100 LOO XltOO 

MOX PFOMP 

* 



OISP 



DC 
OC 
OC 
OC 
DC 
OC 
DC 
OC 
OC 
OC 
DC 
OC 



PENUP 

PENUP 

LI 100 

KtGSO 

UP 50 

PENUO 

PI US 

RISO 

PENUO 

XPATN 

LEF50 

LOOP 



lOUNNY) 
PEN UP 

RICHT 50 
UP 50 

PEN OOHN/UP 
PLUS PATTERN 
RIGHT SO 
PEN DOWN/UP 
X PATTERN 
LEFT 50 



QOOQ 
NKHH 
WWHW 
TTTT 

• 



OOFB 



EOU /D GO TO LOADER AT /O 

ECU /7007 FOR CARD LOADER AT /33 

EOU /0813 SET IN LOADER AT /04 

EOU /7000+RETUR-/4-1 THIS IS EQUAL TO 

THE BRANCH FROM THE LOADER 
TO RETUR IN THIS PROGRAM. 

END •-I - END CARD NEWER USED 



8A603400 
8A603«I0 
8A603420 
8A603430 
8A6e3440 
&A6034S0 
8A603460 
8A603470 
8A603480 
8A603490 
8A603SO0 
8A603510 
8A603520 
8A603530 
8A603S60 
8A603SS0 
8A603S60 
8A603S70 
8A603S80 
8A603590 
8A603600 
8A60361Q 
8A603620 
8A603630 
8A603640 
8A603650 
eA&03660 
8^603670 



DATE 
EC NO. 
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415120 
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DATE 
EC NO. 



28FEB66 
«lSt20 



PROG 10 
PACE 



oaA6-o 

3A 



|«N MAINTENANCE OiAGNOSTIC MOC»AN FOR THE 1«00 SVSTEN 
AUX 1627 KECISTRATtON EXEKCISEft 



l»ART NO. ZtfMBI 
PACE « 



CROSS REFERENCE LISTIN6 



SVNSOL 


VALUE 


AREA 


OOCl 


BUILD 


00«t 


Bt234 


00C9 


CAN 


0059 


CEOFF 


006^ 


CECN 


0066 


CONAO 


OOBO 


COUNT 


0096 


DISP 


OOFO 


DISPA 


00 A9 


osu 


0068 


EIGHT 


0002 


EXIT 


OOAl 


FLOUT 


00C4 


FLUTE 


0072 


FOX 


0092 


GRUNH 


00C9 


HOUT 


009B 


INIT 


0075 


KALS 


00 50 


ICOUNT 


00C2 


LEF50 


OOEB 


LFF50 


O0E6 


LOOP 


OOEA 


LllOO 


OOEE 


NNNN 


7007 


NOP 


00 BS 


NOTRD 


0CB3 


OUTAB 


0097 


PEEUD 


006C 


PENUD 


00 B A 


PENUH 


00 B8 


PENUP 


00 AE 


PENUU 


OOAC 


PFOHP 


00 BE 


PLUS 


00C6 


PPPPP 


0096 


PP50 


OOBO 


COOQ 


0300 


OS* 


0099 


RETUR 


0046 


RIG50 


00 B6 


RIISO 


00 DO 


RIKSO 


OOB* 


RISC 


0004 


SAVE2 


006B 


SAVE3 


008A 


SENBI 


0062 


STEPC 


0OA5 


THUCM 


0000 


TTTT 


7041 


UNCHH 


0005 


UP50 


00B2 


MORDO 


OOCO 


WOROft 


006E 


MORKO 


006A 


WMWW 


0B13 


XPATN 


O0E2 


XXX 


OOEO 


XXXX 


007o 


XXI 


0050 


XX2 


0052 


XllOO 


OOEC 



REFERENCES' . . ^i 

0062 

0065 

O0C« 

0Ci3t.O061t0O63tO0S7 

003E.0066 

005E 

OOAAtOOBE 

00 A A 

0082i00DC.00EB 

00*9, 004Ct005*t006A, 0080 t0092,009F 

0005, OOOA 

0093 

00 7F,OOCB>0006, 0007,0008 

007E , 

O095 . ■'■. ^~ '' ;. '■ 

00E5 

O074,0OAB.OOBF 

005F, 0080, 0081, 009A 

005B 

OOCE 

OOFA 

OOEB 

OOFB 

O0F2 

0066 

0099 

004E 

009B 

0078 

OOFS, OOFB 

0079,OOBA,OOBC 

OOFO,OOF1 

0094, OOAE, OOBO 

OOAF,O0B3,0087,0OCF,OOOF,OOEF 

O0F6 

008F 

00B2 

008C 

0050 

OOFC 

00F3 

0004, OODE 

00B6 

O0F7 

0047, 0060. 00A4 

004B 

004A, 0048,0040 

0090 

0009 

0066 

00E9 

O0F4 

OO7B,00C6,O0CB 

007A 

OOAl 

0083 

O0F9 

0070,00E2,00E4 

007C 

O0A2 

OOAJ - 

OOEE 



OATE 
EC NO. 



28FEB66 
41512C 



PR' -, 10 
PAGE 



0SA6-0 

6 



O O O O O O O O O O O O O o o o o o o o 



o o o o o o o o o o 



c 



p 



€% g^\ f\ f\ g'\ f\ fy g^ f^ £"' g"\ g'\ 
I VJ*- \J> KJ' \j^ VJ \J' XJf' Vj» ^-i* \ji \jf 



c c c c c c c c c c c c c C C C 



IBH HAINTENANCE CIACNOSTIC PROGRAM FOR THE 1800 SYSTEM 
AUX 1627 STRESS tXERCISER 



PART NO. 2196497 
PACE I 



IBM MAINTENANCE DIAGNOSTIC PR06R<;!« FOR THE 1800 SYSTEN 
AUX 16?7 STRESS EXERCISER 



PART NO. 2t«44}T 
PAGE U 



TA^LE Of CONTENTS 



PARAGRAPH 

1. PURPOSE . . 

2. REOUIREMENTS 



?, 



PACE 

01 

01 



USE PROCEDURE 

BEFORE PROCEED INGt A PROGRAM MUST BE IN MAIN-CORE STORAGE RUNMING 
OR AT A WAIT INSTRUCTION READY TO START RUNNING. 



3.1 



?.I DEVICE AREA CODE 

2.2 CARD INPUT 

2.3 PAPER TAPE INPUT 

USE PROCEDURE 01 

3.1 CARDS 

3.2 PAPER TAPE 

3.3 OPERATING PROCEDURE 
3.« CE SERVICE STOPS 

3.5 TERMINATING PROCEDURE 



PRMTOUTS 
COMMENTS . 



02 
02 



5.1 
5.2 



PLCTIING FIRST TRIANGLE 
PLOTTING SUBSEQUENT TRIANGLES 



6. APPENDIX 



PURPOSE 



THE PURPOSE CF THE AUX 1627 STRESS EXERCISER PROGRAM IS TO TEST THE 
MECHANICAL PERFORMANCE OF THc PLOl TER. 

REQUIREMENTS 

2.1 DEVICE AREA CODE 

IF THE DEVICE TC BE TESTED USES A CUSTOMER ASSIGNED AREA CODE, A NEW 
iUX PROGRAM DECK OR PAPER TAPE MUST BE CREATED. THE PROCEDURE IS 
PRESENTED IN THE DOCUMENTATION OF THE AUX PROGRAM GENERATOR UTILITY 
(PID CeAC - CARD VERSION, PID OBAD - PAPER TAPE VERSION! 
THE PROGRAM LOCATIONS THAT f^UST BE ALTERED ARE SPECIFIED BY A 
STATEMENT AT THE BEGINNING OF THE PROGRAM LISTING. 

2.2 CARD INPUT 

THE AUX DIAGNOSTIC LOADER (PID 08AI ) MUST BE PRESENT IN AUX STORAGE 
BEFORE AN AUX PROGRAM DECK CAN BE LOADED. 

2.3 PAPER TAPE INPUT 

THE AUK DIAGNOSTIC LOADER (PAPER TAPE - PID 08A0) MUST BE PRESENT IN 
AUX STORAGE BEFORE AN AUX PAPER TAPE PROGRAM CAN BE LOADED. 



3.2 



3.3 



CARD INPUT LOADING PROCEDURE 



A. 

a. 



C. 

D. 



E. 

r. 



BE SURE THE I442 IS AVAILABLE AND ALL CARDS ARE REMOVED. 

ON THE CE PANEL SET THE INTERRUPT SWITCH TO AUX INTERRUPT 

AND ALL THE CE SWITCHES TO THEIR ON POSITION lOPI. 

DEPRESS CE INTERRUPT TWO TIMES TO ASSURE THE l«42 IS IN CE MODE. 

PLACE THE SEVEN CARDS OF THE AUX 1816 EXERCISEK PROGRAM IN 

THE HOPPER OF THE I4«2 AND FOLLOW WITH A BLANK CARD. 

NOTE 

EACH PROGRAM CARD HAS A CHARACTER ENTERED INTO COLUMN 80. 
THIS CHARACTER DEFINES THE CARD'S POSITION IN THE DECK 
ACCORDING TO THE FOLLOWTNG SEQUENCE, XIFIRSTI, THEN 0, I, 2, 
3, 4, AND 5. THE CARDS CANNOT BE READ UNLESS THEY ARE PLACED 
IN THE HOPPER IN THE CORRECT ORDER. 

DEPRESS THE 1A42 START PUSHBUTTON. READY INDICATOR SHOULD LIGHT. 
SET POWER ON/OFF SWITCH OF 1627 PLOTTER TO ON. 

G. ENSURE THAT A CLEAR PLOTTING SPACE IS AVAILABLE ABOVE THE 
HORIZONTAL PEN-CARRIAGE RAILS. 

H. PLACE ALL CE PROGRAM SWITCHES IN THEIR OFF POSITION. 

I, DEPRESS CE LEVEL INTERRUPT PUSHBUTTON (ON CE PANEL) TO LOAD THE 
PROGRAM. (IF THE HOPPER OF THE l'iiV2 DOES NOT GO EMPTY THE CHECK- 
SUM ROUTINE IN THE AUX DIAGNOSTIC LOADER MOST LIKELY REJECTED 
THE PROGRAM. CHECK THE CARDS FOR PROPER SEQUENCE AND RETURN TO 
STEP A AND TRY AGAINI. 

J. GO TO SECTION 3.3 

PAPER TAPE INPUT LOADING PROCEDURE 

A. BE SURE THAT THE 1054 TAPE READER IS AVAILABLE AND THAT THERE IS 
NO TAPE IN THE READER. 

B. ON THE CE PANEL SET THE INTERRUPT SWITCH TO AUX INTERRUPT AND ALL 
THE CE SWITCHES TO THEIR ON POSITION tUPI. 

C. DEPRESS CE INTERRUPT PUSHBUTTON TWO TIMES TO ASSURE THAT THE 1Q54 
IS PLACED IN CE MODE. 

D. PLACE THE FIRST TAPE CHARACTER OF THE PROGRAM DIRECTLY ABOVE 

THE SENSE PINS IN THE 1054 READER. (THE CHECK-SUM ROUTINE OF THE 
AUX DIADNOSTIC LOADER WiLI REJECT THE PROGRAM IF THE AUX TAPE 
IS LOADED INCORRECTLY). 

E. SET POWER ON/OFF SWITCH OF 1627 PLOTTER TO ON. 

F. ENSURE THAT A CLEAR PLOTTING SPACE IS AVAILABLE ABOVE THE 
hORUONTAL PEN-CARRIAGE RAILS. 

PLACE ALL CE PROGRAM SWITCHES IN THEIR OFF POSITION. 
DEPRESS CE LEVEL INTERRUPT TO LOAD THE PROGRAM. TAPE ACTION 
SHOULD START AND CONTINUE UNTIL THE ENTIRE AUX PROGRAM HAS BEEN 
READ. WHEN THE READER STOPS, THE FIRST TAPE FEED HOLE CHARACTER 
FOLLOWING THE AUX PROGRAM DATA SHOULD BE LOCATED DIRECTLY ABOVE 
THE 1054 SENSE PINS FOR A CORRECTLY STORED PROGRAM. IF THE TAPE 
DID NOT STOP AT SAID LOCATION, RETURN TO STEP A TO "ELOAD PROG. 

TYPICAL PROGRAM OPERATING PROCEDURE 

THE PROGRAM WILL START AUTOMATICALLY AFTER IT HAS BEEN STORED. 



G. 
H. 
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TABLE 1. CE PROGRAM SWITCH SETTINGS 



ROUTINE 



CE SERVICE 
STOP 



PROGRAM 
TERMINATOR 



SWITCHES 
9 10 11 12 13 14 1$ 



FUNCTION 







1 1 1 THIS Switch setting causes Tt4E 1627 PROGRAM 
TO STOP BUT DOES NOT TERMINATE THE PROGRAM. 
TO RESTART THE 1627 DEPRESS THE CE tEVEL 
INTERRUPT PUSHBUTTON. 

1 1 1 THIS SWITCH SETTING INITIATES A ROUTINE 

THAT TFPMINATES THE 1627 PROGRAM. (ALL AUX 
PROGRAMS USE THE SAME PSOGRAM-TERMINATdR 
SETTING). 

CAUTION 

FOLLOW THE TERMINATING PROCEDURE IN 
SECTION 3.5 . 



3.4 CE SERVICE STOP 

THE PLOTTER MAY BE STOPPED AT A.jY TIME BY PLACING THE CE PROGRAM 
SWITCHES TO OOOOIIU. SELECTION OF THIS SWITCH OPTION ALLOWS 
MECHANICAL ADJUSTMENTS TO BE MADE TO THE PLOTTER, BUT IT DOES NOT 
TERMINATE THE DIAGNOSTIC PROGRAM. THE PROGRAM MAY BE RESUMED BY 
SETTING THE CE PROGRAM SWITCHES TO THE WINDMILL PATTERN SWITCH OPTION 
AND DEPRESSING THE CE LEVEL INTERRUPT PUSHBUTTON. 

3.5 TERMINATING PROCEDURF 

10 TERMINATE THE PROGRAM AND RETURN THE DEVICE TO THE CUSTOMER- 

A. SET THE CE PROGRAM SWITCHES TO OOOOIIU -CE SERVICE STOP. 
(THE ONLY REASON FOR USING THIS SETTING IS TO STOP ANY DEVICE 
ACTION WHICH MAY CAUSE AN INTERRUPT). 

B. SET THE CE PROGRAM SWITCHES TO 11111111 -TERMINATOR SETTING. 
AND DEPRESS THE CE INTERRUPT LEVEL PUSHBUTTON ONCE AND ONLY 
ONCE. (A SECOND DEPRESSION OF THE CE INT. PUSHBUTTON WILL 
RESULT IN THE AUX DIAGNOSTIC LOADER TRYING TO LOAD A NEW 
PROGRAM IF THE READER IS READY). 

NOTE 

TO OFFSET THE POSSIBILITY THAT THE INPUT DEVICE MIGHT BE 
MALFUNCTIONING THE NEXT TIME THE 1800 SYSTEM NEEDS SERWICING 
THE FOLLOWING PROGRAM SHOULD BE LOADED INTO AUX CORE AT THE 
CONCLUSION OF EACH SERVICE CALL - 

A. CARD INPUT 



4. PRINTOUTS 

THE ONLY 'PRINTOUT* OF TH£ AUX 1627 STRESS EXERcbfT MtkkH 

IS A PATTERN ROUGHLY RESEMBLING A DANISH WINDMILL AND IS FORMED BY PLOTTING 
FOUR GROUPS OF SEVEN TRIANGLES^ NOTICE T*;.. THE ANGLES NEAR THE DIAMOND 
CENTER OF THE PATTERN ARE PLOTTED 2/100 OF AN INCH AWAY FROM THE OUTLINE OF 
THE DIAMOND. THE PLOTTER IS OPERATING CORRECTLY WHEN THE START AND END 
POINTS OF EACH TRIANGLE COINCIDE. 

5. COMMENTS 

A PROGRAM MUST BE IN MAIN-CORE STORAGE AND MUST BE RUNNING OR READY TO START 
BEFORE THE 162 7 PLOTTER AUXI LI ARY- STORAGE STRESS DIAGNOSTIC PROGRAM CAN BE 
LOADED. ASSUMING THAT THE AUX DIAGNOSTIC LOADER IS PRESENT IN AUXILIARY 
STORAGE, THE PROGRAM IS IN THE READER AND READY TC BE READ, AND A ROUTINE 
HAS BEEN SELECTED, DEPRESSING THE CE LEVEL INTERRUPT BUTTON CAUSES THE 
PROGRAM TO BE STORED AND STARTED. THE PROGRAM BEGINS BY ROLLING THE DRUM TO 
ESTABLISH A CLEAN PLOTTING AREA, RAISING THE PEN OF THE 1627 PLOTTER, AND 
MOVING THE PEN TO THE LEFT EDGE OF THE PLOTTER. NEXT, THE START LOCATION IS 
FIXED BY MOVING THE PEN RIGHT FOR FOUR INCHES. AT THIS POINT, THE PROGRAM IS 
READY TO PLOT A PATTERN (ROUGHLY RESEMBLING A DANISH WINDMILL I THAT CONSISTS 
OF 28 TRIANGLES ARRANGED AROUND A DIAMOND CENTER. THE PLOTTING TECHNIQUE IS 
DISCUSSED IN THE FOLLOWING PARAGRAPHS. 



5.1 



PLOTTING FIRST TRIANGLE 

SIDE 1 OF THE FIRST TRIANGLE IS GENERATED F 
3.9 INCHES FROM THE STARTING POINT. THIS PL 
USING A COMMAND TABLE AND A VECTOR-LENGTH T 
MODIFIED AFTER SIDE 1 HAS BEEN PLOTTED SO T 
2 WILL BE AVAILABLE- SIMILARLY, THE TABLES 
IS PLOTTED, THEREBY PROVIDING DATA FOR SIDE 
GENERATES A VECTOR 1/100 OF AN INCH LONG. T 
VECTOR-LENGTH TABLE SPECIFY HOW MANY TIMES 
REPEATED BEFORE THE DIRECTION OF THE VECTOR 
CONTINUES UNTIL A TRIANGLE HAS BEEN PLOTTED. 



RST AND IS PROPAGATED FOR 
OT IS ACCOMPLISHED 
ABLE. THESE TABLES ARE 
HAT DATA REQUIRED FOR SIDE 
ARE MODIFIED AFTER SIDE 2 

3. EACH WRITE COMMAND 
HE DATA STORED IN THE 
A COMMAND MUST BE 

IS CHANGED. THIS PROCESS 



5.2 PLOTTING SUBSEQUENT TRIANGLES 

mcrnceJS^^"' *'^° ANOTHER TRIANGLE IS PLOTTED IN THE MANNER 

TRIANGLES. THE FINISHED PATTERN WILL LOOK LIKE FIGURF I ii^nu 
STOP ROUTINE OR A TERMINATE-RUN ROUTINE IS SELECTED. SERVICE 



6. APPENDIX 



LOAD THE AUX 1<,A2 PACKED READ EXERCISE PROGRAM (PIO OBAAI 
AFTER ASSURING THE Pf*OGRAM IS BY PUNCHING CARDS, CE 
SWITCH SETTING 00000001, SET IN THE FAREWELL OPTION, 
CE SWITCH SETTING OOCOOOOO AND LEAVE THE SWITCHES AT 
THIS SETTING, TO ENSURE THE GREATEST PROTECTION TO THE 
CUSTOMER. DEPRESS CE INTERRUPT. 

B. TAPE INPUT 

LOAD THE AUX 1054/55 EXERCISE PROGRAM (PIO 08A8 » . 
AFTER ASSURING THE PROGRAM IS IN BY PUNCHING TAPE, CE 
SWITCH SETTINGS OOOOOCOl, SET IN THE FAREWELL OPTION, 

CE Switch setting oooooooo and leave the switches at this 

SETTING TO ENSURE THE GREATEST PROTECTION TO THE 
CUSTOMER. DEPRESS CE INTERRUPT. 
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FIGURE 1 
SAMPLE PLOT 
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ABS 




8A700000 




02BC 






ORG 


/36 


8A70OOI0 












8AT00020 




2800 






AREA EQU 
• IF 


/2e00 1ST 1627 AREA CODE 
THIS PROG IS TO BE USED FOR A MACH 


8AT00030 
8A700040 










* WITH A OtFF AREA CODE ALL THE LOCATIONS WHICH 


8A7000SO 










» REFER TO 


THE LABEL AREA IN SYMBOL TABLE MUST 


8A700060 










* BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 


8A700070 










• MODIFIED 


AUX S-8 OBJECT DECK. SEE AUX CE PROG 


8A700080 










» GENERATOR 


WRITE-UP FOR PROCEDURE. (SPECIAL) 


6A700090 










•••*•••••••***«••**«••••*•••*•**•*•****•*•**•••••*• 


8A700100 














8A700110 














8A700120 












PLOTTER STRESS TEST 


8A7O0130 












••**•••*••••••••••• 


8A700140 












( THE DANISH WINDMILL PATTERN ) 


8A700I50 
8A700160 










* THIS PROG 


CAN BE LOADED FROM CARDS OR PAPER TAPE 

GENERAL INSTRUCTIONS 

READY THE PLOTTER 
TURN PLOTTER ON 
MAKE SURE THAT CLEAR PLOTTING 
* SPACE IS LOCATED ABOVE CARRIER 

CE SWITCH SETTINGS 

00001111 CE SERVICE STOP 
11111111 TERMINATE RUN 
ALL OTHER COMBINATIONS VOID 


8A7001T0 
8A700180 
8A700190 
8A700200 
8A700210 
8A700220 
eA700230 
8A700240 
8A700250 
8A700260 
8A700270 
BA7002B0 
8A700290 
BA700300 
8A700310 
8A700320 










• FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 


8A700330 










* REFER TO 


THE PROGRAM DESCRIPTION WRITE-UP. 


8A700340 










*•***•*•«••**•*••**•******••••******••**•••••* 


8AT003S0 














8A700360 












AUX PROG ENTRY POINTS 


8A700370 












**•••**•••••••••*••*• 


8 4700380 
BA700390 












1ST PASS ENTRY 


8A700400 
8A700410 










♦ THE NEXT 


EIGHT WORDS WILL NOT APPEAR IN CORE WHEN 


8A700420 










• * USING THE AUX PAPER TAPE DIAGNOSTIC LOADER 


8AT00430 














8A700440 




0036 





1000 


NOP 


NO OPERATION 


8A7004S0 




0037 





1000 


NOP 


NO OPERATION 


8A700460 




0038 





1000 


NDi» 


NO OPERATION 


6A700470 




0039 





1000 


NOP 


NO OPERATION 


8A700480 




003A 





1000 


NOP 


NO OPERATION 


8A700490 




003B 





1000 


NOP 


NO OPERATION 


8A700500 




0030 





C02B 


LD 


NN RESTORE LOC NICE 


8A700S10 




0030 





D0F7 


STO 

• 


/35 •IN AUX LOADER 


8A700S20 
8A700S30 




003E 





C02F 


LO 


CEOFF PLACE BRANCH 


8A700540 




003F 





DOC 4 


STO 

• 
• 
• 


/04 • TO RETUR LABEL 
ALL BUT 1ST PASS ENTRY POINT 


8A700$50 
8A700560 
8A700S70 
8A700580 




00«0 





082B 


RETUR XIO 


CEON 


8 A 7005 90 




0041 





6A1F 


STX 


2 SAVE2+1 


8A700600 




0042 


w 


6B20 


STX 


3 SAVE3+1 


8A700610 




0043 





0826 


XIO 


OSW SENSE DEVICE STATUS 


8A700620 




0044 





0823 


XIO 


SENBI SENSE CE SW TO ACCOM 


8A700630 




004S 





E022 


AND 


SENBI BLOCK OUT PROG SEL SW 


8AT00640 




0046 





F021 


EOR 


SENBI 


8A700650 




0047 


00 


4Ct8005C 


BSC 

• 


L NOTRD,*- BR OUT OF PROGRAM 


8A700660 
8A700670 




DATE 




28FEBi.6 






PIS..6 ID 


08AT-0 


EC NO. 


41S120 






PACE 


1 
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0049 F022 
004A 00 4C180060 



004C 00 65000012 
004E 00 66000000 
3050 00 6700FFEC 

0052 C273 

0053 00 4C18009C 

0055 0014 

0056 7201 



0057 

0058 

0059 
005A 
005B 



0818 
69F4 
6AF5 
6BF6 
7004 



0O5C 00 65000813 
005E 69A5 
005F 080E 



0060 00 66000000 
3062 00 67000000 
0064 70A8 



0065 





70D7 


0066 




0000 


0066 





0019 


0067 





5000 


0068 





OOFF 


0069 





0760 


006A 





0000 


006B 





2F01 


006C 





OOFO 


0060 





2801 


006E 





703B 


006F 





2800 


0070 





006A 


0071 





2900 


0072 




0000 


0072 





0001 


0073 





0400 


0074 





0000 


0075 





0000 


0076 





0000 


0077 





0000 


0078 





0000 


0079 





0000 



EOR 
BSC 

• 

XXI LOX 
XX2 LDX 
XX3 LDX 

• 

HOUT LO 
BSC 
STO 
HOX 

• 

EXIT XIO 

EXITX STX 
STX 
STX 
MDX 



CEON 
SAVE2.*- 



BR CE SERVICE STOP 



LI 
L2 



OUTPUT ROUTINE 

IS 




L3 -20 

2 OUTAB 
L STEPCt 
9SU 
2 1 



BR NO CHAR AT THIS 
• TABLE LOCATION 



UORKQ 
XXI«1 
XX2«1 
XXS^-l 
SAVE 2 



••*•*«*••*•*•**»•••**>*••***«*»**•••***•*«•**• 



EXIT POINTS TO AUX LOADER 
TERMINATE EXIT POINT 



LI 
1 



« 

• 

NOTRO LDX 
STX 
XIO 

SAVE2 LDX 
SAVE3 LOX 

MDX 

NN 



WHUH 

/O* 

CEOFF 

NORMAL EXIT POINT 



L2 

L3 

0000 



EXIT TO AUX LOADER 



CONSTANTS AND/OR lOCC WORDS 



DC NNNN 

BSS E 

KEXTR DC 25 

DC 75000 

SENBI DC /OOFF 

DC /0760 

OSU DC /OOOO 

DC /07014AREA 

CEON DC /OOFO 

DC /OOOl+AREA CE ON WORD 

CEOFF DC TTTT 

DC /OOOOtAREA CE OFF WORD 

WORKC OC DSN 

DC /OlOO+AREA lOCC WORD MR PLOT 



TERMINATOR CONSTANT 
SENSE CE SWITCHES 
OUTPUT COHNAMD 
PLOTTER DSW 



OUTPUT TABLE 




BSS 

COUNT OC 1 

OUTAB OC /0400 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

OC /OOOO 

* 



OUTPUT GROUP COUNTER 
OUTPUT CHARACTER 
OUTPUT CHARACTER 
OUTPUT CHARACTER 
OUTPUT CHARACTER 
OUTPUT CHARACTER 
OUTPUT CHARACTER 
TERM TEST FOR ZERO 



TRIANGLE ROUTINE 



DATE 
EC NO. 



28FEB66 
415120 



PART NO. 
PACE 



8AT00680 
8A700690 
8AT00700 
8A700710 
8A700T20 
8A700730 
8A700740 
BA7O0TS0 
8A700760 
8A700T70 
8A700780 
8A700790 
8A700800 
8A700810 
BA700820 
8A700830 
SA700840 
8A700850 
8A700B60 
8A700870 
8A700880 
8A700890 
8A700900 
8A700910 
8A700920 
8A700930 
8A700940 
8A700950 
8A700960 
SA700970 
8A700980 
8A700990 
8A701000 
8A701010 
8A701020 
8A701030 
8A7C1040 
8A701050 
8A701060 
8A701070 
8AT01080 
BA701090 
eA701100 
8A701110 
8A701120 
8ATO1130 
8A701140 
8A701I50 
8A701160 
BA701170 
SA^OllSO 
8A701I90 
8A70I200 
BA701210 
BA70I220 
8AT01230 
8A70I240 
8A701250 
8A701260 
8A701270 
8AT01280 
8A701290 
8A701300 
8A701310 
8A701320 
8A701330 
8A701340 
8A701350 



PROG ID 
PACE 



219M99 



08AT-0 
lA 
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• 








SA701360 








« 








SATO 1370 




OOTA 


6231 


TRIAD 


LOX 




49 


8A701380 




007B 00 


C70000E6 




LO 


L3 


TRITA*20 


BA701390 




0070 


6AF4 


TRI 


STX 




COUNT 


8A701400 




OOTE 


62FA 




tox 




-6 


8A701410 




007F 
0080 


0279 
7201 


TRIAC 


STO 

NOX 




0UTAB*6 
1 


8A701420 
SA701430 




0081 

0082 


0279 
1005 




STO 

SLA 


2 


0UTAB*6 
5 


8A701440 
8A7014S0 




0083 


7201 




HDX 


2 


I SKIP ON 3R0 PASS 


BA701460 




0084 

0085 


70FA 
7301 




HOX 
MOX 


3 


TRIAC 
1 


8A701470 
8A7014S0 




0086 


70CB 




MOX 




HOUT 


8A701490 




0087 


70CA 




MOX 




HOOT 


8A701500 








»»••»»••»»»•»»*•••••*•♦••»•*♦♦•»»••*••**••♦*♦• 


8A701510 








• 








8A701520 








* 






EXTRA OR END ROUTINE 


8A701S30 








• 






•••••••«•••••••••••• 


8A701S40 








• 








8A7O15S0 




0088 


6101 


RETU 


LOX 


1 


1 


8A701S60 




0089 


7016 


• 


MOX 




01 SPA 


8A701S70 
BATOlSaO 




008A 


7300 


EXTRA 


MOX 


3 


FULL PATTERN SKIP 


8A701590 




008B 
008C 


7CFC 
63EC 




MOX 
LOX 


3 


RETL- 
-20 


8A701600 
8A70I610 




0080 


COIC 




LO 




fOVEl 


8A701620 




008E 


4818 




BSC 




*~ SKIP IF END OF RUM 


eA701630 




008»= 


7010 


« 


NOX 




01 SPA 


8A701640 
8A701650 




0090 


6101 




LOX 


1 


1 


8^701660 




0091 


C804 




LOD 




KEXTR 


8A701670 




0092 00 


741900AB 




MOX 


L 


MOVE2,25 


8A701680 




0094 00 
0096 


74E700AA 
700F 




HDX 
MOX 


L 


M0VE1.-25 SKIPS MHEN TEST COMPL 
SLOT 


8AT01690 
8A701700 




0097 


700E 




MOX 




SLOT 


8A701710 








»♦*»»•*«»•••••••••»»•••••*•••••*•♦•••♦•»♦•♦••♦ 


8A701720 








* 








SA701730 








• 






PEN UP ROUTINE 


8A701740 








* 






••••»•»••••••♦ 


BK7017S0 








* 








8A701760 




0098 


0000 




BSS 


E 





8A701770 




0098 


0001 


PENUU 


DC 




/OOOl COUNT OF ONE 


8A7017BO 




0099 


0400 


• 


DC 




/0400 PEN UP WORD 


8A701790 
8A701800 




009A 


CBFD 


PENUP 


LOD 




PENUU 


8A701810 




009 B 


700* 




MOX 




SLOT 


8A701820 








♦«»#»»»♦•♦♦•*•♦*•••••••»»•••*•**••••••»♦»••••♦ 


8A701830 








• 








8A701840 




009C 


6200 


STEPC 


LOX 


2 





8A701B50 




0090 00 


74FF0072 




HDX 


L 


C0UNT,-1 


8A701860 




009F 


7082 


• 
• 
• 


HDX 




HOUT 

DISPATCHER ROUTINE 


8A701870 
8A701880 
8A701890 
8*701900 
8A701910 




00*0 
OOAl 


7101 

1010 


DISPA 


MDX 
SLA 


1 


1 
16 


8A701920 
8A701930 




C0A2 


DODl 




STO 




0UTAB«^1 


8A701940 




00A3 OO 


4D8000EA 




BSC 


11 


DISP BRANCH TO NEXT ROUT IN 


8A7019S0 








•♦•••»♦»»•*•»•*•••»•*•»•••»••♦**»•*•*•♦♦••♦*•♦ 


8A70I960 








« 








8A701970 








• 






PEN DOWN ROUTINE 


8A70t9B0 








• 






«•«••**••••••*•* 


8A701990 








• 








8A702000 




00*5 


C802 


PENOh 


LOO 




PENOO 


8A702010 




00A6 
00A7 


08CB 
70AA 


SLOT 


STO 

MOX 




COUNT 
HOUT 


eA702020 
8A702030 




DATE 


28FEB66 
Ai Ki 3n 










PROG 10 
PAGE 


08A7-0 

2 



EC NO. 
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OOAB 
00A8 
00A9 
OOAA 
OOAB 
OOAC 
OOAD 
OOAE 



0000 
0001 
8000 
0096 
0000 
3050 
4828 
0094 



OOAF 
OCBO 
OOBl 
00B2 
0OB3 
00B4 
0085 
0086 
0OB7 
0088 
0OB9 
OOBB 
OOBC 



COFE 

00F9 

C8FA 

18C8 

DBFS 

C8F7 

OOBD 

18C8 

D8F4 

COFl 
00 4C1800AO 
00 B6 
7095 



OOBO COEE 

OOBE 0084 

OOBF COEB 

OOCO 70F8 



BSS 

PENDD OC 
DC 

NOVEl OC 

M0VE2 OC 

OIRIA OC 
DC 

CT148 DC 

• 

MOVIA LD 
STO 
LOD 
RTE 
STO 

HOVl LDD 
STO 
RTE 
STO 
LO 

LATE BSC 
STO 
MDX 

M0V2 



1ST MOVEMENT ROUTIK' 



E 

/OOOl 

/80C0 

150 



/30S0 

/4828 

148 



COUNT OF ONE 
PEN OH WORD 
COUNT 
COUNT 



COUNT FOR END MOVEN 



CT148 

Movei 

DIRIA 
8 

DIRIA 

DIRIA . 

0UTA8 
8 

OIRIA 
MOVEI 

DISPA««- NO COUNT BRANCH 
COUNT 
HOUT 
*•♦»♦»»••»•*•♦•••♦•»♦*♦••»♦•••♦•••• 

2N0 MOVEMENT ROUTINE 



OOCl 
00C2 



00C3 
00C4 
00C4 
0OC5 
00C6 
00C7 
00C8 
00C9 



OOCA 00 

OOCC 

OOCO 

OOCE 

OOCF 

OODO 

OOOl 

0002 

0OD3 

0004 














C802 
70E3 



4*40 
0000 
0002 
2000 
0190 
1000 
0096 
0000 

66000113 

C80F 

1808 

0800 

C8F8 

0809 

6100 

63EB 

COEF 

70AS 



LO OIRIA 

STO OUTAS 

LD M0VE2 

MOX LATE 

* DOWN ROUTINE 

DUN2 LDD DWNN2 

HOX SLOT 



CLEAR PAPER ROUTINE 



LOOPA OC 

BSS 
DMNN2 OC 

OC 
OVERA OC 

OC 
MOOSA OC 

OC 

LOOP LOX 
LOO 
RTE 
STO 
LOO 
STO 
LOX 
LOX 
LD 
MOX 



/4A40 
E 
2 

/2000 
400 
/lOOO 
150 


L2 275 
DIRIA 
24 

OIRIA 
MOOSA 
MOVEI 

1 

3 -21 
LOOPA 
TRI 



LEFT LEFT UP COMMAND 



COUNT 

MOVE 1 COUNT CONSTANT 
MOVE 2 COUNT CONSTANT 
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ODDS 
00D6 



C8F0 
70CF 



0OD7 





2A40 


0OD8 


C 


2A40 


00D9 


6 


5240 


OOOA 





41 8C 


0008 





41SC 


OOOC 





4A80 


0000 





4AaO 


OOOE 





3280 


OODF 





114A 


OOEO 





1I4A 


OOE I 





SI 80 


0OE2 





5180 


OOE 3 


d 


2980 


00E4 





2252 


00E5 





2252 


00E6 





3i40 


00E7 





3140 


OOE 8 





4940 


00E9 





0A94 


OOEA 





0A94 


COEB 





0005 


OOEC 





00A5 


OOEO 





007A 


OOEE 





007A 


OOEF 





007A 


OOFO 





007A 


OOFl 





007A 


00F2 





009 A 


00F3 





00 B4 


0OF4 





OOPD 


OOFS 





OOBA 


00F6 





OOCl 


0OF7 





00 A5 


OOF 8 





00 AF 


00F9 





0084 


OOF A 
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OOFB 





0084 


OOFC 





009A 


OOFD 





OOCA 


OOOD 






70D7 
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OOFE 



OOFD 
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RIGHT 400 








8A702T20 


* 
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8A702730 
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8A702740 


OVER 


LOO 

MOX 


OVERA 
SLOT 








8A7027S0 
8A702760 
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SA702770 


• 












8A7027S0 


• 




TRIANGLE CONSTANTS 






8A702790 


• 












8A702800 


TRIT* 


OC 
OC 
DC 
OC 
OC 


/2A40 
/2A40 
/5240 
/418C 
/418C 


TRIl 






8A702810 
8A702620 
8A702830 
8A702840 
8A702850 




OC 


/4A80 


TRI2 






8A702860 




OC 


/4A80 








8A702S70 




OC 


/3280 








8A702880 




OC 


/114A 








8A702890 




DC 


/114A 








8A702900 




OC 


/5180 


TRI3 






8A702910 




DC 


/5180 








8A702920 




DC 


/2980 








8A702930 




DC 


/2252 








8A702940 




OC 


/2252 








8A702950 




DC 


/3140 


TRI4 






8A702960 




DC 


/3140 








8A702970 




DC 


/*940 








8A702980 




OC 


/0A94 








8A702990 


DISP 


DC 


/0A94 








SA703000 


• 












8A703010 


• 




DISPATCHER 


XFER VECTORS 




8A703020 




OC 


OVER 








8A703030 




OC 


PENOW 








8A703040 




DC 


TRIAD 








8A703050 




OC 


TRIAD 








8A703060 




OC 


TRIAD 








SA703070 




OC 


TRIAD 








8A703080 




OC 


TRIAD 








8A703090 




DC 


PENUP 








8A703100 




OC 


MOVl 








8Ar03110 




OC 


M0V2 








8A703120 




OC 


EXTRA 








8A703130 




OC 


DUN2 








8A703140 




OC 


PENDM 








8A703150 




DC 


MOVIA 








8A703160 




OC 


MOVl 








8A703170 




CC 


MOVl 








8A703180 




DC 


MOVl 








8A703190 




OC 


PENUP 








aA703200 




OC 


LOOP 








BA703210 


* 












eA703220 


OQQQ 


EQU 


/O 


GO TO LOADER AT 


/D 


8A703230 


NNNN 


EOU 


/TOO 7 


FOR CARD 


LOADER 


AT /35 


8A703240 


UUUU 


EQU 


/0B13 


SET IN LOADER AT 


/04 


8A703250 


TTTT 


EQU 


/7000*RETUR-/4-l 


THIS IS 


EQUAL TO 


8A703260 


• 






THE BRANCH FROM 


THE LOADER 


8A703270 


• 






TO RETUP 


IN THIS 


PROGRAM. 


8A70i280 


**••***••*•*•***•••••***•***•**••****•*•*•»•*» 


8A703290 




END 


•-1 


END CARD 


NEVER USED 


8A703300 
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SYMBOL 


VALUE 


REFERENCES 




AREA 


2800 


006B.006O,006F»O071 




CEOFF 


006E 


003EtOOSF 




CEDN 


C06C 


0040t0049 




COUNT 


0072 


0070.0090. 00A6tOOBB 




CT148 


OOAE 


00 AF 




OIRIA 


00 AC 


0081,0083. 00B4.00B7,00B0.00CC.00CE 


DISP 


OOEA 


00A3 




OISPA 


00 AO 


0089,C08F.00B9 




OSM 


006A 


0043,0055.0070 




DHNN2 


00C4 


OOCl 




DUN2 


OOCl 


OOF* 




EXIT 


0057 






EXITX 


0058 






EXTRA 


OOBA 


OOFS 




HOUT 


0052 


O086,O087,OO9F.O0A7t00eC 




KEXTR 


0066 


0091 




LATE 


0089 


OOCO 




LOOP 


OOCA 


OOFD 




LOOPA 


00C3 


0003 




MOOS A 


00C8 


OOCF 




MOVEl 


OOAA 


0080,0094,0080,0088,0000 




M0VE2 


OOAB 


0092, OOBF 




MOVl 


00 B4 


O0F3,00F9,OOFAtO0FB 




MOV I A 


00 AF 


OOFS 




M0V2 


0080 


00F4 




NN 


0065 


003C 




NNNN 


7007 


0065 




N3TR0 


005C 


0047 




OUTAB 


0073 


0052, 007F, 0081, O0A2,O0B5,O08E 




OVER 


0005 


OOEB 




OVERA 


00C6 


0005 




PENDD 


OOAB 


00A5 




PENDW 


00 AS 


OOECOOFT 




PENUP 


009A 


00F2,OOFC 




PENUU 


0098 


009A 




QOQQ 


OOOD 


0064 




RETU 


0088 


OOBB 




RETUR 


0040 


OOFE 




SAVE2 


0060 


0041,004A,005B 




SAVE3 


0062 


0042 




SENBI 


0068 


0044,0045,0046 




SLOT 


00 A6 


0096, 0097, 009B,OOC2. 0006 




STEPC 


009C 


0053 




TRI 


00 7D 


00 04 




TRIAC 


00 7F 


0084 




TRIAD 


00 7A 


OOEO, OOEE, OOEF, OOFO, OOFl 




TRITA 


0007 


00 7B 




TTTT 


703B 


006E 




WORKQ 


0070 


0057 




UWUU 


0813 


005C 




XXI 


004C 


0058 




XX2 


004E 


0059 




XX3 


0050 


00 S A 
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TAULE OF CCNTENTS 



PARACRAPH 
I. PURPOSE. . . . 
it. PREREQUISITES. 
3. USE PROCEDURES 



PACE 

n 
II 

n 



3.1 CARDS 

3.2 PAPER TAPE 

3.3 OPERATING PROCEDURE 

3.4 CE SERVICE STOP 

3.5 TERMINATING PKOCEOURE 



4. 
5. 



PRINTOUTS. 
COMMENTS . 



b.l PUNCH-ONE-COMPLETE-PATTERN-ANO-STOP ROUTINE 

5.2 CONTINUOUS-«EAD-Na-COMPARISUN ROUTINE 

5.3 PUNCH KEAU/COf'PARE ROUIINE 

5.4 REPROnuCE-TAPE/NO-COMPARISON ROUTINE 



APPENDIX 



I. PURPOSE 



IS 

03 



«H 



THE AUX 1054/55 EXERCISER PROGRAM TESTS THR RFADING FUNCTION OF THE 105* 
PAPER TAPE READER ANR THE PUNCHING FUNCTION OF THE 1055 PAPER TAPE PUn£n. 
THE PROGRAM CAN ALSO 8C USED 10 OUPLICATt AN EXISTINr. PUNCHED PAPER TAPE. 

2. PREREUUiSITES 

2.1 DEVICE AREA CODE 

IF THE DEVICE TO 3e TESTED USES A CUSTOMER ASSIGNED AREA CODE, A NEW 
AUX PROGRAM OECK OR PAPtR TAPE MUST BE CREATED. THE PROCEDURE IS 
PRESENTED IN THE DOCUMENTATION OF THE AUX PROGRAM GENERATOR UTItlTY 
(PID OBAC - CARD VERSION, PIG 08AD - PAPER TAPE VERSION) 
THE PROGRAM LOCATIONS THAT MUSI Ut ALTERED ARE SPECIFIED BY A 
STATEMENT AT THE BEGINNING OF THE PROGRAM LISTING. 

2.2 CARD INPUT 

—CAUTION — 

00 NOT ATTEMPT ID LOAO THIS PROGRAM IF THE CARD READER SHARES A 
CHANNEL WITH ANOTHER DEVICE WHILE THAT DEVICE IS OPERATING. 

THE AUX DIAONOSTIC LOADER (PID 08AI ) MUST BE PRESENT IN AUX STORAGE 
BEFORE AN AUX PROGRAM OECK CAN BE LOADED. 

"»■■ 

2.3 PAPER TAPE INPUT 

THE AUX DIAGNOSTIC LOADER CPAPER TAPE - PID 0«A0) MUST BE PRESENT IN 
AUX STORAGE BEFORE AN AUX PAPER TAPE PROGRAM CAN 06 LOADED. 

3. USE PROCEDURE 

BEFORE PROCEEDING, A PROGRAM MUST BE IN MAIN-CORE STORAGE RUNNING 
OR AT A WAIT INSTRUCTION READY 10 START RUNNING. 

3.1 CARD INPUT LOADING PROCEDURE 

A. BE SURE THE l'.42 IS AVAILABLE AND ALL CARDS ARE REMOVED. 

B. ON THE CE PAIU L SET THE INTERRUPT SWITCH TO AUX INTERRUPT 
AND ALL THE CE SWITCHES TO THEIR ON POSITION «UP). 

C. DEPRESS CE INTERRUPT IMU TIMES TO ASSURE THE 1442 IS IN CF MODE. 
DATE 28FE866 01MAY66 PROG ID 
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3.2 



n 



O. PLACE THE SEVEN CARDS OF THE AUX 1816 EXERCISER PROGRAM IN 
THE HOPPER OF THE 1442 AND FOLLOW WITH A BLANK CARD. 

NOTE 

EACH PROGRAM CARD HAS A CHARACTER ENTERED INTO COLUNIt 80. 
THIS CHARACTER DEFINES THE CARD'S POSITION IN THE DECK 
ACCORDING TO THE FOLLOWING SFQUENCE. XIFIRSTI, THEN Ot 1, 2. 
3, 4, AND 5. TH£ CARDS CANNOT BE READ UNLESS THEY ARE PLACED 
IN THE HOPPER IN THE CORRECT ORDER. 

E. DEPRESS THE 1442 START PUSHBUTTON. READY INDICATOR SHOULD LIGHT. 

F. SELECT THE DESIRED ROUTINE FROM TABLE ». 

G. DEPRESS CE LEVEL INTERRUPT PUSHBUTTON ION CE PANFLI TO LOAO THE 
PROGRAM. CIF THE HOPPER OF THE 1442 DOES NOT GO EMPTY THE CHECK- 
SUM ROUTINE IN THE AUX DIAGNOSTIC LOADER HOST LIKELY RBJECTED 
THE PROGRAM. CHECK THE CARDS FOR PROPER SEQUENCE AND RETURN TO 
STEP A AND TRY AGAIN). 

H. 60 TO SFCTION 3.3 

PAPER TAPS INPUT LOADING PROCEDURE 



INTERRUPT AND ALL 



A. BE SURE THAT THE 1054 TAPE READER IS AVAItAHLE AND THAT THERE 
NO TAPE IN THE READER. 

B. ON THE Ct PANEL SET THE INTERRUPT SWITCH TO AUX 
THE C6 SWITCHES TO THEIR ON POSITION (UPI. 

C. DEPRESS CE INTERRUPT PUSHBUTTON TWO TIMES TO ASSURE THAT THE 1054 
IS PLACED IN CE MODE. 

D. PLACE THE FIRST TAPE CHARACTER OF THE PROGRAM DIRECTLY ABPVE 

THE SENSE PINS IN THU 1054 READER. JTHE CHECK-SUM ROUTINE OF THE 
AUX DIAONOSTIC LOADER WILL REJECT THE PROGRAM IF IHF AUX TAPE 
IS LOADED INCORRECTLY). 

E. SELECT THE DESIRED ROUTItJE FROM TA3LE 1. 

F. DEPRESS CE LEVEL INTERRUPT TO LOAD THE PROGRAM. TAPE ACTION 
SHOULD START AND CONTINUE UNTIL THE ENTIRE AUX PROGRAM HAS BEEN 
READ. WHEN THE READER STOPS, THE FIRST TAPE FEED HOLE CHARACTER 
FOLLOWING THE AUX PROGRAM DATA SHOULD AB LCCATED DIRECTLY ABOVE 
THE 1054 SPNSE PINS FOR A CORRf CTLY STORED PROGRAM. IF THF TAPE 
DID NOT STOP AT SAID LOCATION, RETURN TO STEP A TO RELOAD PROG. 

3.3 OPERATING PROCEDURE 

THE ROUTINE SELECTED WILL AUTOMATICALLY START AFTER THE PROGRAM 
HAS BEEN ENTERED INTO AUX STORAGE. SUBSEQUENT ROUTINES MAY BE 
SELECTED AT ANY TIME USING THE SWITCH SETTINGS LISTED IN TABLE 1. 

THE FOLLOWING STEPS OUTLINES A TYPICAL OPERATING PROCEDURE. FOR 
ADDITIONAL INFORMATION REGARDING THE OPERATIONS SELECTED BY THE 
VARIOUS CE PROGRAM SWITCH SETTINGS REFER TO TABLE I. 

A. USING THE PROGRAM SWITCHES OF THE CE PANELV SELECT THE 

PUNCH-PATTERN ROUTINE. (000000011 

B. DEPRESS CE LEVEL INTERRUPT PUSHBUTTON ION CE PANEL). 

C. THE PUNCH WILL STOP AFTER ONE COMPLETE PATTERN HAS BEEN PUNCHED. 
IF MORE PUNCH OUTPUT IS NEEDED DEPRESS Ct INTERRUPT. 



n 
O 
o 



DATE 
EC NO. 



NOTE 
THE FIRST CHARACTER WILL BE PUNCHED ONLY IN CHANNEL 1. 

D. WHEN THE MACHINE STOPS PUNCHING TAPE, SE* THE CE PROGRAM SWITCHES 
TO 000000 I 1 (PUNCH READ/COMPARE ROUTINE). 

E. DEPRESS CE LEVEL INTERRUPT PUSHBUTTON TO START PUNCH RCAO/COHPARE 
TEST. 

NOTE 

THE PUNCH READ/COMPARE TEST WILL CONTINUE UNTIL AN ERROR 

OCCURS. IF NO ERRUR OCCURS, THE READING FUNCTION OF THE 1054 
28FEB66 0IMAY6& p^pG ID 
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ROUTINE 



FAREWELL 
SETTING 



PUNCH ONE 
COMPLETE 
TEST PATTERN 
AND STOP 



CONTINUOUS 

REAd/NO 

COMPARISON 



AND THE PUNCHING FUNCTION OF THE 1055 MAY BE ASSUMED TO BE 
0PERA1INC CORRECTLY. TAPE PUNCHING AND READING WILL CEASE IF 
AN ERROR OCCURS. CHECK fHt TAPE IN CASE OF ERRORS. 
IF THE TWO CHARACTERS JUST PAST THE READ AND PUNCH STATION 
ARE DIFFERENT. THE 1055 PAPER TAPE PUNCH IS PROBABLY FAULTY. 
HOWEVER, IF THE TAPE IS PUNCHED CORRECTLY, THE 1054 PAPER 
TAPE READER MAY Ot FUNCTIONING IMPROPERLY. TO CHECK THE 1054. 
PROCEED TO STEP F. IF DESIRED CONTINUE THE PUNCH READ/COMPARE 
TEST BY FIRST PLACING THE TAPE IN THE 1054 IN SUCH A MANNER 
THAT THE PUNCHED CHARACTER PLACED JUST PAST THE READ SENSORS 
IS IDENTICAL WITH THE LAST CHARACTER PUNCHED. THEN, DEPRESS 
THE CE LEVEL INTERRUPT PUSHBUTTON (ON CE PANEL! TO RESTART 
THE ROUTINE. IF THE 1054 AND 1055 UNITS FAIL TO RESPOND WHEN 
THE CE LEVEL INTERRUPT PUSHBUTTOH IS OEPPESFD, AN INTERRUPT 
HAS PROBABLY BEEN LOST. TO RESTART, SET THE CE PROGRAM 
SWITCHES TO 00001111 AND DEPRESS THE CE LEVEL INTERRUPT 
PUSHBUTTON. AFTER ALL MAINLINE INTERRUPTS HAVE OCCURRED AND 
THE CE INTERRUPT HAS BEEN SERVICED, RETURN THE CE PROGRAM 
SWITCHES TO THEIR PREVIOUS SETTINGS AND PROCEED. 

F. SET THE CE PROGRAM SWITCHES TO 00000100 TO DUPLICATE THE TAPE, 

NOTE 

IF THE PAPER-TAPE MACHINES StfflULO STOP DURING THE DUPLICATE- 
TAPE ROUTINE, DEPRESS THE CE LEVEL INTERRUPT PUSHBUTTON (DM 
CE PAHELI TO RFSTARI. IF THE 1054 AND 1055 UNITS FAIL TO 
RESPOND WHEN THE CE LEVEL INTERRUPT PUSHBUTTON IS DEPRESSED, 
AN INTERRUPT HAS PROBABLY 3EEN LOST. TO RESTART, SET THE CE 
PROGRAM SWITCHES TO OOOOIIU AND DEPRESS THE CE LEVEL 
INTERRUPT PUSHBUTTON. AFTEU ALL MAINI INE INTERRUPTS HAVE 
OCCURRED ANO THE CE INTERRUPT HAS BEEN SERVICED, RETURN THE 
CE PROGRAM SWITCHES TO THEIR PREVIOUS SETTINGS ANO PROCEED. 

G. COMPARE THE PUNCHED TAPE WITH IHE SAMPLE TAPE SHOWN IN FIGURE 1. 
CHECK FOR MISSING PUNCHES. 

NOTE 

TO RESTART PUNCH READ/COMPARE ROUTINE, SET CE BIT SWITCHES TO 
000000011 DEPRESS CE LEVEL INTERRUPT PUSHBUTTON, ANO RETURN 
TO STEP C OF THIS OPERATING PROCEDURE. 

H. UPON COMPLETION OF THE SERVICE CALL PROCEED TO SECTION 3.5 TO 
RELEASE THE 1054/55 TO THE CUSTOMER. 

TABLE 1. CE PROGRAM SWITCH SETTINGS 

SWITCHES FUNCTION 

8 9 10 11 12 13 14 15 

00000000 THIS FAREWELL SETTING WILL REMOVE THE 

DEVICE FROM CE MODE AND LEAVE THE 1054/55 
READY TO USE. SELECT SWITCH SETTING 
ANO DEPRESS CE INTERRUPT. 

6 1 THIS SWITCH SETTING CAUSES ONE COMPLETE 

TEST PATTERN TO BE PUNCHEfi. THE TEST 
PATTERN IS USED FOR COMPARISON DURING THE 
PUNCH/READ/COMPARE ROUTINE. TO PUNCH 
ADDITIONAL TEST PATTERNS DEPRESS THE CE 
LEVEL INTERRUPT PUSHBUTTON. 

10 THIS SWITCH SETTING ALLOWS THE EQUIPMENT TO 
BE ADJUSTED ANO MONITORED WHILE THE ROUTINE 
IS BEING EXECUTED. ERRORS DO NOT CAUSE THE 
EQUIPMENT TO STOP. 
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CE SERVICE 
STOP 
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•• CAUTION •• 



PROGRAM 
TERMINATOR 



3.4 



•• CAUTION •• 



CE SERVICE STOP 



THIS SWITCH SETTING INITIATES A ROUTINE 
THAT AUTOMATICALLY COMPARES THE DATA 
PUNCHED IN THE PUUCH-ONE-COMPLETE-TEST- 
FATTERN-AND STOP ROUTINE WITH THE DATA READ 
DURING THE ROUTINE. THE PUNCHING ROUTINE 
MUST BE EXECUTED IMMEDIATELY BEFORE RFAD/ 
COMPARE ROUTINE. IF AN ERROR OCCURS DURING 
THE READ/COMPARE ROUTINE, THE 1054 AND 1055 
UNITS MILL STOP A'40 IHE PUNCHED TAPE AT 
THE READ STATION CAN BE VISUALLY COMPARED 
WITH THE PUNCHED TAPE AT THE PUtJCH STATION. 
THIS COMPARISON SHOULD INDICATE WHETHER THE 
ERROR WAS CAUSED BY THE 1054 OR 1055 UNIT. 

THIS SWITCH SETTING CAUSES THE EQUIPMENT 
TC DUPLICATE A PAPER TAPE. THE EQUIPMENT' 
CAN BE ADJUSTED ANO MONITORED UHILL THE 
ROUTINE IS BEING EXECUTED. ERRORS DO N3T 
CAUSE THE EQUIPMENT TO STOP. 

THIS SWITCH SETTING CAUSES THE PROGRAM 
TO STOP BUT DOES NOT TfRMIVATE THE PROGRAM. 
IT IS RECOMMENDED TO USE THIS SETTING 
WHEN ADJUSTING THIS DEVICE. TO START THE 
ROUTINE, SELECT THE CE PROGRAM SWITCH 
SETTINGS AND DEPRESS CE INTERRUPT BUTTON. 

INDIVIDUAL PUNCHES OR VARIOUS COMBINATIONS 
OF PUNCHES CAN BE SET BY TURNING ON 
APPROPRIATE BIT SWITCHES. THE CORRELATION 
BETWEEN THE SWITCHES ANO CHANNEL 
NUMBERING OF THE TAPE IS AS FULLOWS- 
CE SWITCHES 8 9 10 11 12 13 14 15 CHANNEL 
NO. 8 7 6 5 4.3 2 1 THE SPROKET HOLE IN THE 
TAPE IS LOCATED BETWEEN CHANNELS 3 AND 4. 

X- ONE OF THE FIRST FIVE SWITCHES MUST BE 
ON TU ACTIVATE THIS ROUTINE. 



00 NOT TURN ON ALL EIGHT SWITCHES AT ONCE, 
FOR THIS MILL TERMINATE THE PROGRAM. 

THIS SWITCH SETTING CAUSES THE DIAGNOSTIC 
PROGRAM TO BE TERMINATED. THE DIAGNOSTIC 
PRUCftAM IS SET UP TO LOAD THE NEXT 
AUX PROGRAM. (ALL AUX PROGRAMS USE THE 
SAME PROGRAM-TERMINATOR SETTING.! THIS 
SV.ITCH SETTI<°40 MUST ALWAYS BE USED UPON 
COMPLETION OF THE SERVICE CALL TO RELEASE 
THE DEVICE TO THE CUSTOMER. 



FOLLOW THE TERMINATING PROCEDURE 
IN SECTION 3.5 






3.* 



DATE 
EC NO. 



THIS SWITCH SETTING WILL NOT TERMINATE THE PROGRAM BUT IT WILL 
CAUSE THE DEVICE TO STOP ANO SI AY IN CE MODE. IT IS RECOMMENDED TO 
USE THIS SETTING WHEN ADJUSTING THIS DEVICE. TO START THE ROUTINE, 
SELECT THE CE PROGRAM SWITCH SETTINGS AND DEPRESS CE INTERRUPT. 

TERHINATIIiG PROCEDURE 

TO TERMINATE THE PROGRAM AND RETURN THE DEVICE TO THE CUSTOMER- 
2BFEB66 01MAY66 PROG 10 08A8-» 

415120 415120A PAGE 2A 
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A. SET THE CE PROGRAM SWITCHES TO 00001111 -CE SERVICE STOP. 

(THE ONLY REASON FOR USING THIS SETTING IS TO STOP ANY DEVICE 

ACTION WHICH HAY CAUSE AN INTERRUPT). 
a. SET THE CE PROCAAH SWITCHES TO lllltlU -TERMINATOR SETTINGt 

AND DEPRESS THE CE INTERRUPT lEVEL KEY ONCE ANO ONLY ONCE. 

(A SECOND DEPRESSION OF THE Ct INT. KEY WILL RESULT IN IME 

AUX DIAGNOSTIC LOADER TRYING TO LOAU A NEW PROGRAM IF THE 

READER IS READY.) 

NOTE 

TO OFFSET THE POSSIBILITY THAT THE INPUT DEVICE MIGHT BE 
MALFUNCTIONING THE NEXT TIME THE 1600 SYSTEM NEEDS SERVICING 
THE FOLLOWING PROGRAM SHOULD BE LOADED INTO AUX CORE AT THE 
CONCLUSION OF EACH SERVICE CALL - 

A. CARD INPUT 

LOAD THE AUX l<i4Z PACKED READ EXERCISE PROGRAM (PIO 08AA) 
AFlfR ASSURING THE PROGRAM IS IN BY PUNCHING CARDSt CE 
SWITCH SETTING 00000001, SET IN THE FAREWELL OPTION, 
CE SWITCH SETTING 00000000 ANO LEAVE THE SWITCHES AT 
THIS SETTING, TO ENSURE THE GREATEST PROTECTION TO THE 
CUSTOMER. OEI-KESS CE INTERRUPT. 

fl. TAPE INPUT 

LOAD THE AUX 1054/55 EXERCISE PROCRAH (PIO 08A8). 
AFTER ASSURING THE PROGRAM IS IN BY PUNCHING TAPE, CE 
SWITCH SETTIMGS OOOOOOni, SET IN THE FAREWELL OPTION, 
Ct SWITCH SETTING 00000000 ANO LEAVE THE SWITCHES AT THIS 
SETTING TO ENSURE THE GREATEST PROTECTION TO THE 
CUSTOMER. DEPRESS CE INTERRUPT. 



4. PRINTOUTS 



THERE ARE NO PRINTOUTS IN THE AUX 1054/1055 EXERCISER PROGRAM. ERROR 
INFORMATION CAN BE OBTAINED BY COMPARING THE PUNCHED TAPE PRODUCED BT THE 
PROGRAM WITH THE SAMPLE TAPE SHOWN IN FIGURE 1. 

5. COMMENTS 

A PROGRAM MUST BE IN KAIN-CORE STORAGE ANO WST BE RUNNING OR READY TO START 
BEFORE THE AUX 1054/1055 EXERCISER PROGRAM CAN 8E LOADED. ASSUMING THAT THE 
AFTER STARTING, THE PROGRAM SETS THE PAPER-TAPE DEVICE TO THE CE MODE AND 
SENSES THE CE PROGRAM SWITCHES TO DETERMINE THE ROUTINE THAT HAS BEEN 
SELECTED. IF A PROGRAM TERMINATOR (llllllll) IS SENSED, A 

TRANSFER ADDRESS IN THE LOADER PROGRAM IS RESTORED TO ITS ORIGINAL C0:4TENTS. 
IN ADDITION, THE DEVICE STATUS WORD IDSW) OF THE 1054 AND 1055 UNITS IS 
CLEARED, THE CE MODE IS TURNED OFF, ANO CONTROL IS RETURNED TO THE 
TERMINATOR IS NOT SENSED, THE 1054/1055 PROGRAM StNSES FOR A SELECTED- 
PUNCH ROUTINE (lABLE 11. IE A Sf LECTEO-PUNCH ROUTINE IS SELECTED, THE 
SELECTED CHARACTER IS REPEATEDLY PUNCHED UNTIL AHOIHER CHARACTER IS 
SELECTED. IF NEITHER A PROGkAM TERMINATOR NOR A SELECTED-PUNCH ROUTINE IS 
SELECTED, THE DIAGNOSTIC PROGRAM EXECUTES ONE OF THE ROUTINES DISCUSSED IM 
THE FOLLOWING PARAGRAPHS. 

5.1 PUNCH-ONC-COHPLETE-PATTERN-AND-STOP ROUTINE 

THE PUNCH-ONC-COMPLETE-PATTERN-ANO-STOP ROUTINE FIRST DETERMINES 

HHFTHER OR HOT A FULL PATTERN OF CHARACTERS HAS BEEN PUNCHED BY THE 

CONTINUOUS-PUNCH-PATTERN ROUTINE. IF A FULL PATTERN 

HAS NOT BEEN PUNCHED, THF CONTINUOUS-PONCH-PATTERN ROUTINE IS ALLOWED 

TO CONTINUE. AFTER A FULL PATTERN HAS BEEN PUNCHED, THE ROUTINE 

ALLOWS THE 1055 PAPER TAPE PUNCH TO BE STOPPED, THE DSH TO BE 

CLEARED. 
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5.2 CONTINUOUS-READ-NO-CONPARISON ROUTINE 

THE CONTINUOUS-READ-NO-COHPARISON ROUTINE CAUSES THE 1054 CHARACTER 
BUFFER AND THE TAPE TO BE CONTINUOUSLY READ. THIS 

ROUTINE CONTINUES UNTIL A NEW ROUTINE IS SELECTFD OR UNTIL THE TAPE 
IS EXHAUSTED. (THE 1054 PAPER TAPE READER STOPS AUTOMATICALLY WHEN 
THE TAPE BEING READ IS EXHAUSTED.) 

5.3 PUNCH READ/COMPARE ROUTINE 

THE PUNCH READ/COMRARE ROUTINE USES A CHARACTER GENERATOR ANO THE 
CHARACTER PATTERN THAT IS PUNCHED BY THE CONTINUOUS-PUNCH-PATTERN 
ROUTINE. EACH GENERATED CHARACTER IS PUNCHED. THE 
CHARACTER AT THE READ STATION IS SENSED, AND WHEN THE INTERRUPTS 
FROM THE 1054 ANO 1055 OCCUR, THE READ BUFFER IS READ ANO COMPARED 
WITH THE CHARACTER IN THF CHARACTER GENERATOR. IF THE CHARACTERS 
COMPARED ARE IDENTICAL, THE CHARACTER GENERATOR IS MODIFIED FOR THE 
NEXT CHARACTER AND THE PUNCH READ/COMPARE OPrRATION IS REPEATED. IF 
THE CHARACTERS COMPARED ARE NOT IDENTICAL, THE 1054 AND 1055 UNITS 
ARE STOPPED AND THF PUNCHED TAPE AT IHE READ STATION CAN BE VISUALLY 
COMPARED WITH THt PUNCHED-TAPE AT THE PUNCH STATION. THIS COMPARISON 
NORMALLY INDICATES WHETHER THE ERROR WAS CAUSED BY THE 1054 OR 1055 
UNIT. 

5.4 DUPLICATE-TAPE ROUTINE 

THE DUPLICATE-TAPE ROUTINE CAUSES THE READ BUFFER TO BE READ AND SETS 
THE CHARACTER TH/T WAS READ INTO A PUNCH-OUTPUT LOCATIUN. 
THEN, PUNCH ANO READ COMMANDS ARE ISSUED. UPON RECEIVING 
INTERRUPTS FROM THE 1054 AND 1055 UNITS, THE ROUTINE IS REPEATED. 
WHILE WAITING FUR INTERRUPTS, CONTROL IS RETURNED TO THE CUSTOMER'S 
MAIN-LINE PROGRAM. THIS ROUTINE CONTINUES UNTIL THt TAPE BEING READ 
IS EXHAUSTED OR A NEW ROUTINE IS SELECTED. 
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ABS 

oPG nt 

IF THIS PROG IS TC BE USED FOR A MACHINE 
XIIH A DIFFERENT AREA COCE, THE LOCATICN WHICH 
REfER in THE LABEL At,EA IN SYMBOL TABLE MUST 

BE CHANCED BY HEX CORRECTION CARDS TO OBTAIN A 
MOCIFUO AUX 8-8 C6JECI DECK. JEE AUX CE PROG 
GEMtKATOR KRITE-UP FOR PRCCEOURE . 



lOi'i-SE TAPE PROGRAM 
This PROG CAN BE LOADED FROM CARDS OR PAPER TAPE 



CE SktITCH SETTINGS 

COCCCOOO FAREWELL SETTING 

COCOOOOI PCH I PATTERN AND STOP 

OCCOOOIO CONTINOLS READt NO COMPARE 

CCCOCOll PUNCH-RtAD-COMPARE. 

COCCCICO REPRODUCE TAPEt KC COMPARE 

COCOIin CE SERVICE STOP 

lllIUU PROGRAM TER^'INATCR 



IF ANY OF THE LEFT 5 CE SW ARE ON 

» AND IT IS NOT A TERMINATCR CP A CE 

♦ SERVICE STOP FOR SERVICE, A lAPE 

♦ WILL BE PL'NCHID ACCORDING TO THE 

♦ CE SH SETTINGS AS SHOWN BELOW 



CE SWITCHES X X X X X.X X X 
CHANNEL PUNCH 8 7 4 5 «.3 2 1 



0036 


1000 


NOP 




0037 


lono 


NOP 




0038 


looc 


NCP 




0039 


1000 


NCP 




003A 00 


65007007 


IDX 


LI KNNN 


003C 00 


60000035 


STX 


LI /35 



THE SPROCKET HOLE IS PUNCHED BETWEEN 
• CHANNEL 3 AND 4 

FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 
REfER TO THE PROGRAM DESCRIPTION WRITE-UP. 
♦••»♦»*•»•*»•**»»**♦****•»»*•*»**»«*»»»♦♦»»»»♦»»♦ 

AUX PRCG ENTRY POINTS 

1ST PASS ENTRY 

THE NEXT EIGHT WORDS WILL NOT APPEAR IN CORE WHEN 
» LSING IHE AUX PAPER TAPE DIAGNOSTIC LOADER 



RESTORE LOCATION NICE 
* IN AUX LOADER 



THE NEXT TWO WORDS WILL BE DESTROYED 

♦ AFTER THE 1ST PASS AND WILL 

• CONITAIN INTERRUPTS 



8A8C0000 

SAeCOOlO 

8A 80 00 20 

8A800030 

8AB00G40 

8A8000S0 

8Ae00060 

8A 8000 70 

8A800080 

8A800090 

8A8001CO 

8A800110 

8A8C0120 

SABOOiaO 

8A8C0140 

8A800150 

eA8C0160 

8A800170 

BASCOieO 

8Ae00190 

8Ae002C0 

8A800210 

8A800220 

8A80C230 

8A800240 

8A800250 

eA800260 

BA800270 

eA8C02EO 

8A80a290 

8A8003C0 

8rt800310 

8A800320 

8Ae00330 

BA8C034C 

8A800350 

0A8003e0 

8A800370 

RAe00380 

8A800390 

8A8004CO 

8A8C04I0 

8A8Q0420 

8A8004 30 

8A8O044O 

8A80G450 

8A800460 

eA80047C 

8A800480 

8A800490 

8A8O05C0 

8A800S10 

8A800520 

nA8C0530 

8A800S40 

BA8O055O 

8A800S60 

8A8O0565 

8A8O0570 

6A8C0ST5 

8A8005EO 

8A8C0590 

8ABO060O 

8AS00610 

BA8O0620 

8A800630 

8A80064C 

8A800650 



003E 0000 

003E C045 
C03F C0C4 



0040 





610B 


0041 





C17C 


0042 





E84C 


0043 





OITC 


0044 





71FE 


0045 


e 


70FB 


0046 





0837 


0047 





6A26 


0048 





6B27 


0049 


c 


lOAO 


004 A 





08F3 


004B 





0834 


004C 





I80C 


0040 





4804 


004E 





DOFO 



004F 1802 

0050 4804 

0051 OOEC 

0052 0827 

0053 E026 

0054 00 4C18006A 

0056 C027 
0C57 F022 
0058 00 401 80067 

005A FOIB 
0058 OC 4C18006B 



0050 00 6780007E 
005F CO IE 

0060 1883 

0061 00 4F980D90 



0063 C 108B 

0064 DO I 7 

0065 081C 

0066 7006 



E 

CTRLV PLACE BRANCH 

/04 • TO RETUR LABEL 

ADO AREA CODE TO THE lOCC WORD 



1 11 

1 CEPFF 
AREA 

1 CEOFF 

I -2 
BUILD 



GET lOCC WORD AND 

• OR IN AREA CODE 

• AND PLACE BACK 



ALL BUT 1ST PASS ENTRY POINT 



CECN 

2 SAVE2+1 

3 SAVE3'»1 
32 

RcINT 
DSW 



BSS 
REINT LD 
POINT STO 

« 
* 

• 

LOX 
BUILC LD 

OR 

STO 

MDX 

MDX 
* 

* ' 
RETUR XIO 

STX • 
STX 
SIT 
STO 
XIO 
• 

SRA 
BSC 
STO 

* ■ 
SRA 
BSC 
STO 

XIO 
AND 
BSC 

4 

STO 

EOR 

BSC 
* 

EOR 

BSC 
♦•♦*»♦♦»•*»♦*♦»*»♦♦»♦*♦»"♦*»♦»•*••♦♦♦**•♦»»»**» 

LDX 13 CECN PICK ROUTINE 

LD CEON LOAD CE SM SETTINGS 

SRT 3 

BSC 13 TABPUt*- BR ON NC BITS 
♦**»****♦♦**♦*•»»♦♦♦*•»*•»*•♦♦••»•••**♦*•♦*»«••••• 

ONE CR MORI OF LEFT 5 CE SW ON 

♦ PUNCH TAPE ACCORDING TC SW SETTINGS 



12 
E 

FUINT 

2 

E 
REINT 

SENBI 
SENBI 
FAREW,+- 

CECN 
SENBI 

NOTRD,*- 



CLEAR A AND 
RD-PCH INTERRUPT 
SENSE DEVICE STATUS 



STO NONZERO WD IF PU INT 



STO NONZERO WO IF RC INT 

SENSE CE SW TC ACCUt" 
BLOCK OUT PROG SEL SW 
BR FAREWELL SETTING 



BR TERMINATE PRCGRAP 
BR CE SERVICE STOP 
SELECT ROUTINE 



CKSTP 

KVIK,+ 



SLT 


11 


STO 


CEOFF 


XIO 


XIOXX 


MDX 


SAVE2 



0067 OC 65000813 
0069 699A 



♦♦♦♦♦♦♦•*♦♦»♦♦♦♦♦♦*•♦♦♦•«♦♦♦•♦»♦•*♦»♦♦»♦♦»»•»» 

• 

• EXIT POINTS TO AUX LOADER 

• 

♦ TERMINATE EXIT POIM 

NOTRC LOX LI WWWH 
STX 1/04 

* 



8Ae00660 
8Ae00670 

8Aeoo6eo 

8A8C0690 

8A8007CO 

8Ae00710 

8A800720 

8A800730 

8A800740 

8A800750 

8A800760 

8A800770 

8A8007e0 

8Ae0079O 

8A8008CO 

8A800810 

8A800820 

eA80083O 

8Ae00840 

eABCOSSO 

8A8008CO 

8A800B70 

8A8C0830 

8A8C0890 

8A8C09C0 

8A80U910 

eA8C0920 

8 A 8009 30 

8A800940 

eA600950 

8A8009e0 

8A8C0970 

eA8C0980 

8AeC0990 

8A8C1OC0 

8A8C1010 

8A801020 

8A801030 

8A801040 

8A8010S0 

eA801060 

8A801070 

8A801080 

8A801090 

8A8011C0 

8A80II10 

eAe01I20 

eA801130 

8A801140 

8A801150 

8Ae01160 

8A801170 

QABOlieO 

8A801190 

8A8012C0 

eASOlZlO 

8A801220 

8A801230 

8Ae0l240 

8A801250 

8A801260 

8A801270 

eA801280 

eAe01290 

8AB013C0 

8A801310 

8A801320 

8AB01330 
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* 






FAREWELL EXIT POINT 


8A801340 








• 










8A801350 


006A 





C8I1 


FAREh 

* 
• 
• 


XIO 




CEOFF 
NORMAL 


EXIT PCINT 


8Aeoi3eo 

8A801370 
8A8013e0 
8AeC1390 


0C6B 





C81C 


KVIK 


LDD 




KEYIN 




8A8014C0 


006C 





D81F 




STD 




INTER 




8A801410 


0060 


00 


660CC000 


SAVE 2 


LOX 


L2 







8A801420 


006F 


00 


6700C0C0 


SAVE3 


LDX 


L3 







8Ae0I43O 


0071 





709B 




KOX 




QOCQ 


EXIT TO AUX LCACEB 


8A801440 








««**••*»«**«•********•••** **'»<'«'* **»*•***••*•«« 


8A801450 








« 










eAeoi460 








* 






CONSTANTS ANO/OR ICCC hCRDS 


8A801470 








• 










8Aeoi4eo 


0072 




OOOO 




6SS 


E 







8A80I490 


0072 





FFOC 


BITSX 


OC 




/FFCO 




SAeoisco 


007 3 





OICC 


CNEEX 


DC 




/OlOO 




8A801510 


0074 





eocc 




DC 




/OCCC 




eA801S20 


0075 


c 


OOEO 




OC 




/OOEO 




8A801S30 


0076 





CCFO 


CKSTP 


OC 




/OCFO 




8A801540 


0077 





C0F8 




DC 




/00F8 




8A801S50 


0078 





core 




CC 




/OOFC 




8Ae01S60 


0079 





OOFE 




DC 




/OCFE 




8A801570 


007A 





OOFF 


SENS I 


DC 




/OCFF 


E«D COMKAND CCMFARE 


8Ae01S80 


007B 





0760 




CC 




/O760 


SENSE CE SWITCHES 


8A801590 


0070 





7F00 


CtOFF 


DC 




/7FO0 


PUNCH OUTPUT CHAR 


BA8016C0 


0P7D 





OOOO 




DC 




/OCOO 


CE OFF hORD 


8Ae01610 


007E 





OOOO 


CtON 


CC 




/oooo 


CHAR WORK LCC 


8A801620 


007F 





0001 




OC 




/OCOl 


CE CN WCRDD 


8A 80 16 30 


0080 





OOOO 


CSU 


CC 




/OCOO 


READ CHAR 


8A80I640 


0081 





C701 




CC 




/C701 


SENSE DSH 


8A801650 


0032 





C07C 


XiOXX 


DC 




CECFF 




8A801660 


0083 


b 


OlOC 




CC 




/OlOO 


lOCC WORD (PUNCH I 


8A8v)1670 


0084 





7041 


CTRLT 


CC 




TTTT 




6A801680 


0085 





0410 




CC 




/0410 


CTRL lOCC 


8A8C16S0 


0086 


c 


0080 


XIOXY 


OC 




DSk 




BABOITCO 


008 7 





0200 




OC 




/OZOO 


READ lOCC 


8AB01710 


0088 





OlOF 


KEYIN 


OC 




/OlOF 




8A801720 


0089 





020F 




DC 




/020F 




eA801730 


008A 


c 


COOO 


KOUNX 


OC 




/OOOO 


END TEST CF RIPPLE RT 


BA801740 


008B 





OOOC 


COUNX 


OC 




/OCOO 


kORK AREA 


8A8017S0 


008C 





FFFF 


INTER 


OC 




/FFFF 




8A801760 


0080 


c 


FFFF 




OC 




/FFFF 




8A801770 


008E 





7C0 3 


FIFI 


FOX 


X 


DIAGX- 


PUNCH-1 BUILT INSTRUCTION 


8A801780 


C08F 





1800 


AREA 

• 
• 
• 


DC 




/leco 


1ST 1054/55 AREA CCCE 

* CHANGE THIS VALUE FOR A 

♦ 1C54/5 ON ANOTHER AREA 


8A801790 
8A8018C0 
8A80181C 
8A801820 


0090 





CC-C3 


TABPU 


STO 


X 


CEOFF- 


AT-1 BUILT IKSTRLCTICN 


8A801B3O 


0091 





0098 




DC 




PUNCH 


STOP AFTER FULL PUNCH PAT 


BA801840 


0092 





C0A2 




CC 




RE<D 


READ ONLY 


8A801850 


0093 





00A5 




OC 




PURfcO 


PCH READ COUP, HALT ON ERR 


8A80ie60 


009'» 





C0C6 




OC 




RE PRO 


REPRODUCE TAPE 


eA801870 


0C95 





006B 




OC 




KVIK 


CE SERVICE STOP 


8A801860 


0096 





0069 




DC 




KVIK 


CE SERVICE STOP 


BA801890 


0097 





006 8 




DC 




KVIK 


CE SERVICE STOP 


8A8O190O 








•****•*«****••**••***«*•******»************•*• 


8A801910 








• 










8A801920 








• 






PUNCH 


1 CCfPLETE PATTERN ANO STOP 


8A801930 








* 










8A831940 


0098 





700 3 


PUNCF 


PDX 




OIAGX 


THIS LOCATION IS NO-OPED 


eA801950 


0099 





C0F4 




LO 




FIFI 


* PRIOR TC EXECUTION OF 


8A80i960 


009A 





COFO 




STO 




PUNCH 


• LAST RIPPLE CHARACTER 


8A8C1970 


009B 





70CF 


« 


MDX 




KVIK 




SA801980 
6A801990 


009C 


oc 


65000001 


CIAG> 


LDX 


LI 


1 


REST DIAG TEST XRl 


eA8020CO 


009E 


00 


6600C0CC 


CULP 


LDX 


L2 







aAB02010 


DATE 




28FEB66 


C1MAV66 








PROG 10 OBAB-O 


EC NO. 


415120 


4i51Z 


OA 








PAGE 2 



OOAO 00 4E8000F5 



00A2 08E3 
00A3 08E0 
00A4 70C8 



BSC 12 WHOM 

• READ TAPE, NO COMPARE 

READ XIO XIOXY READ CHAR IN BUFFER 

XIC CTRLY SET NEW CHAR IN BUFFER 

MDX SAVE 2 









• 
• 




PCH READ 1 


;CMP, STOP CN ERR 


OOAS 





C047 


PUREO 


LD 


YEH*l 




0OA6 





coil 




STO 


AT 


PLACE NC-CP 


00A7 





C896 


BUMP 


LDD 


RE INT 




OOAS 





E8E3 




OR 


INTER 




00A9 





D0E2 




STO 


INTER 




OOAA 





1800 




RTE 


16 




OOAB 





E8E1 




OR 


INTER* 1 




OOAC 





DOEO 




STO 


INTER*! 




OOAD 





4820 




BSC 


Z 


SKIP NO PCH INT 


OOAE 





1800 




RTE 


16 




GOAF 


00 


4C18006D 


* 
* 
• 
LANG 


BSC L SAVE2,*- 


BR NO READ IKT 










BOTH INTERRUPTS RECEIVED 


GOBI 





C04B 


LO 


TEMPO 




00B2 





F0C7 




EOR 


BITSX*8 




00B3 





CU49 




STO 


TEMPO 




00B4 


00 


4C0400BE 


• 


BSC L TANG.E 




00B6 





08CF 


XIO 


XIOXV 




00B7 





C0C8 




LO 


OSU 




0CB8 





C0C3 


AT 


STO 


CECFF 


NO-OP OR STC 


00B9 





F0C2 




ECR 


CEOFF 




OOBA 





E0B7 




ANO 


BITSX 




OOBB 


00 


4C18C0B1 




BSC L LANG,*- 


BR COMPARE OK 


OOBO 





70 A F 




HDX 


SAVE2 












OOBE 





lOAO 


TANG 


SLT 


32 




OCBF 





08CC 




STO 


INTER 




OOCO 





08C3 




XIO 


CTRLY 




OOCl 





700 A 


ILS 


MDX 


DIAGX 




C0C2 





08BF 




XIO 


XIOXX 




00C3 





C037 




LO 


AHH 




00C4 





DOFC 




STO 


ILS 




00C5 





70A7 


SKIP 


MDX 


SAVE2 





00C6 C0C9 

00C7 DOFO 

OOCB C024 

00C9 0OF7 

OOCA 700C 



OOCB 

OOCC 

OOCD 
OOCE 


C172 

DOAF 
6201 
7022 




NRIPX LD 
STO 
LDX 
MDX 


1 
2 


BITSX 
CEOFF 
1 
EXITX 


OOCF 


COAC 




SRIPX LO 




CECFF 


DATE 
EC NO. 


28FEB6e 
415120 


ClMAV6e 
41S120A 







* 

* REPRODUCE TAPEt NO CCMPAKE 

* 

REPRC LD TABPU 

STO AT 

LO YEH»I 

STO ILS 

MDX BUMP 

CHARACTER CENcRATOR 

NEh RIPPLE ROUTINE 



8A80202C 
SA802030 
8A8a2040 
8A802050 
8A802060 
8A802070 
8A802080 
8A802090 
8A8021C0 
8A802tl0 

eAeo2i20 

8A802130 
8A80214C 
8A802150 
eA802160 
8A802170 
8A802180 
8A802190 
8A8022C0 
8A802210 
8A802220 
BA80223O 
8A802240 
BA802250 
8A802260 
8A802270 
8A802280 
8A80229O 
3A8023C0 
•>A802310 
8A802320 
8A802330 
5A802340 
8A602350 
BA8023eO 
8A8U2370 
8A802380 
8A802390 
8A8024G0 
8A802410 
8A802420 
eA802430 
8A802440 
8A802450 
8A802460 
8A802470 
8A802480 
8Ae02490 
8A8025C0 
8A802S10 
eA802520 
8A802530 
SA8C2540 
8Ae02550 
8A8025e0 
dA802570 
8AeC25£0 
8A8U2590 
8A8026C0 
8AeC2610 
BAe02620 
8A802630 
8A802&40 
8A802650 
8A8026C0 
8A802670 
8A8026e0 
8Ae02690 



PPOG 10 
PAGE 



0SA8-0 
2A 
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ocoo 

OCDl 
0002 
0CD3 
0CD4 
0005 
00U6 
00D7 

0008 
OODA 

oooa 
oooc 

0000 





c 








00 











1001 
COAA 
482C 

roio 

6202 
C09C 
C0A5 
69B3 

74fF00aB 

7016 

620C 

7101 

69AC 



OOOE 00 74F80a8& 
OOEO 7001 
OOEl 700F 



00E2 

O0E3 



6203 
7000 



OCEA C0A6 
00E5 0096 
00E6 808C 
O0E7 C0A3 
00E8 00 «2000F1 



OCEA 00 

OOEC 00 

OOEE 

OOEF 

OOFC 

OOFl 

00F2 

0CF3 

00F4 



OOFS 

00F6 
00F7 
00F8 
0CF9 
OCFA 
OCFS 
OOFC 
OOFD 

0000 
7007 
CS13 
7041 



OOFE 



4F800aF9 

65001000 

69A9 

6101 

6200 

69AB 

6AAC 

C88E 

70D0 



OUCB 
COCF 
0008 
COE* 
OOEF 
COEC 
700A 
OOEF 
0000 



* 
BARX 



SLA 

STO 

BSC 

MOX 

LOX 

LO 

STO 

STX 

MOX 
fOX 
LOX 
MOX 
STX 
MOX 
MOX 
KOX 



NR!X LDX 

MDX 



I 

CEOFF 
2 

EXITX 
2 2 
BITSX 
CECFF 

1 COUNX 

L COUNX, -1 
EXITX 

2 C 
1 1 

1 KOUNX 
L KCUNX,-8 
ENRIX 
EXITX 



SKIP NEXT CH NO BITS 



PLACE ALL BIT CHAR 
* IN OUTPUT LOC 



SKIP WHEN CCUNX GO 



SKIP EXCEPT fcND RIPPE 
BR TO E^0 RIPPLE ROUT 
BR TO EXIT 



END RIfPLE ROUT PREPARE FOR ALL 
* BITS ROLTINE 
2 3 
EXITX 

ALL BITS ROUTINE 



LLBX LD COUNX 

STO CECFF 

A ONEEX 

STO COUNX 

BSC L EXITX.2 



AOC ONE I. E. 0100 



* 

• 

YEh 

LUNCh 

EXITX 



END ALL BITS ROUTIKE PREPARE 
* FOR RIPPLE TEST 
13 ATA 
LI /ICOO 
1 PUNCH 

1 1 

2 C 

1 DIAGX-»^1 

2 DULP41 
XIOXX 
SKIP 



SET XRl TO 1 



****** 

* 
ttHGU 



BSC 

LCX 
STX 
LDX 
LCX 
STX 
STX 
XIO 
KOX 
**************************************** 



ATA 

AHh 

TEWPC 

* 

COCO 

NNNN 

kWNH 

TTTT 

• 

* 

****** 



CC 

DC 

DC 

CC 

CC 

CC 

HOX 

DC 

CC 



NRIPX 

SRIPX 

BARX 

AlLBX 

LUNCH 

VEH 

OIAGX-ILS-1 

LUNCH 

C 



COFO 



ECU /O CO TO LCADER AT /D 

ECU /7CD7 FOR CARD LOADER AT /35 

EQU /CE13 SET IN LOADER AT /Ct 

EQU /7C0C*RETUR-/4-l THIS IS ECUAL TO 

THE BRANCH FRCM THE LOADER 
TO RETUR IN THIS PRCGRAM. 
****••**•**•*****************«****»••** 
END *-l END CARD NEVER LSEO 



8A8027C0 
8A8027I0 
8A802720 
eA802730 
8A802740 
8A802750 
eA80276C 
8A802770 
eA8027eO 
8A802790 
8A802aC0 
8A802B10 
8A802320 
8Ae02830 
8A802840 
8A802850 
8A8C28eO 
8A802a70 
8A802a80 
8A 802890 
8A8029CO 
8A802910 
8A802920 
8A802930 
8A802940 
8A8029S0 
8A802960 
8A802970 
8A802980 
8Ae02990 
8A8030C0 
8A803010 
8A803020 
8A8O3030 
8Ae03040 
8A8030S0 
8A803060 
8A803070 

8Aeo3oeo 

8A8030SO 
8A8031C0 
8A8031 10 
8Aa03120 
8A803130 
8A803140 
8Ae03150 
8A803160 
8A803170 
8A803t80 
8Ae03190 
8A8032CO 
8A8032I0 
8A803220 
8A803230 
8A803240 
8A8032S0 
8A803260 
8A803270 

eA8032eo 

eA803290 
8A8033C0 
8A803310 



CROSS REFERENCE LISTING 



SYMBOL 

AHH 

ALLBX 

AREA 

AT 

ATA 

BARX 

BITSX 

BUILD 

BUMP 

CtOfF 

CEON 

CKSTP 

COUNX 

CTRLY 

blAGX 

DSH 

OULP 

ENRIX 

EXITX 

FAREM 

FIFt 

ILS 

INTER 

KEY IN 

KOUNX 

KVIK 

LANG 

LUNCH 

NNNN 

NOTRO 

NRIPX 

ONEEX 

PUINT 

PUNCH 

PURED 

QCQC 

READ 

REINT 

REPRO 

RETUR 

SAyi:2 

SAVE 3 

SENBI 

SKIP 

SRIPX 

TABPU 

TANG 

TEMPC 

TTTT 

WHOW 

HUWU 

XIOXX 

XIOXY 

VEH 



VALUE 

OOFB 

C0E4 

C08F 

C0B8 

C0F9 

0008 

0072 

C041 

C0A7 

007C 

C07E 
C076 
OOSB 
0084 
009C 
0080 
009E 
00E2 
COFl 
006 A 
008E 
OOCl 
ODBC 
008 8 
OOBA 

006 B 
GOBI 
OOEF 
7007 
C067 
OOCB 
0073 
003F 
C098 
OOAS 
GOOD 
00A2 
003E 
C0C6 
0046 
0060 
006F 

007 A 
00C5 
OOCF 
0090 
tOBt 
COFC 
7041 
OOF 5 
C813 
0082 
0086 
OOEC 



REFERENCES 

0CC3 

OOFS 

CO 42 

C090,OCA6tOOC7 

OOEA 

C0F7 

OCe2,OCBA,CCCB,00D! 

CO 45 

00 C A 



0O41.OC43,C064,0C6AtCCS2tCO90>G0a8,0OB9«OOCC,O0CFi 
OOCl«0C06,C0E5 



C046,CC56,C0?>D,0CSF 

0C5A 

00C7,0C08.00E4iOCE7 

OO3E,0CA3,C0C0 

00£E.0C98,C0C1.0CF1,C0FB 

004B,0C86,C0B7 

00 F2 , 

COEC 

COCE,OC03,OODA,OCE1.00E3,OCE8 

00 £4 

00^9 

OOC4,OCC9tC0FB 

OCeC.0CA8.COA9,OCAB,C0*C»0CBF 

006B 

COCD.CCOE 

C0£B,0C95,C096,0C97tC09B 

OOBB 

00F9,0CFC 

00 3A 

OOSB 

OOFS 

C0E6 

00 4E 

008E.OC91,C09A,OOEE 

0093 

C071 

0092 

C04A,0C51.00A7 

C094 

COFE 

0O47,0C66.00A4,0CAF,O06O,O0CS 

0048 

C0£2.0CS3,0057 

00 F4 

00 F6 

ooeitocce 

0064 

00ei,0CB3 

0064 

OOAO 

0067 

OC65,0CC2.COF3 

OCA2tOCB6 

00A5.0CCe,00FA 



DATE 
EC NO. 



26FEB66 
415120 



C1MAY66 
41^120* 







1 


PROG 10 


C8AB-0 




PACE 


I 


n 



DATE 
EC NO. 



28FER66 
415120 



01MAY66 
41S120A 
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PACE 



08 ASH) 
3A 



F 
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01 
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CARD INPUT LOADING PROCEDURE 
PAPER TAPE LOADING PROCEDURE 
OPERATING PROCEDURE 
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TERMINATING PROCEDURE 



4. PRINTOUTS. 
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03 
03 



5.1 PUNCH-TEST-CARD ROUTINE 

5.2 READ-CARD ROUTINE 

5.3 CARO-REAO/COMPARE ROUTINE 



6. APPENDIX 



I. PURPOSE 



THE PURPOSE CF THE AUX 1442 IMAGE READ EXERCISER PROGRAM IS TO 
TEST THE OPERATION OF THE 1442 CARD READ PUNCH USING THE ImAGE READ MODE. 
2. PREREQUISITES 



3.2 



3.3 



2.1 



2.2 



2.3 



DEVICE AREA CODE 

IF THE DEVICE TO BE TESTED USES A CUSTOMER ASSIGNED AREA CODE. A NFu 
AUX PROGRAM DECK OR PAPER TAPE MUST BE CREATED. THE PROCEOURF IS 
PRESENTED IN THE DOCUMENTATION OF THE AUX PROGRAM GENeSatSrUTLITV 
(PID C8AC - CARD VERSION, PID OBAD - PAPER TAPE VERSION! "^"-"^ 
THE PROGRAM LOCATICNS THAT MUST BE ALTERED ARE SPECIFIED BY A 
STATEMENT AT THE BEGINNING CF THE PROGRAM LISTING. 

CARD INPUT 

It^Lf"" °'*GNOSTIC LOADER IPIO 08AH MUST BE PRESENT IN AUX STORACF 
BEFORE AN AUX PROGRAM DECK CAN BE LOADED. STORAGE 



PAPER TAPE INPUT 
THIS PROGRAM CAN NOT BE LOADED FROM PAPER TAPE. 
USE PROCEDURE 



BEFORE PROCEED INC, A PROGRAM MUST BE IN MAIN-CORE STORAGE RUNNING 
OR AT A WAIT INSTRUCTION READY TO START RUNNING. *'""•'"= """NINC 



A. 
B. 

C. 
D. 



25 ?"?E THE 1442 IS AVAILABLE AND ALL CARDS ARE REMOVED. 
ON THE CE PANEL SET THE INTERRUPT SWITCH TO AUX INTERRUPT 
AND ALL THE CE SWITCHES TO THEIR ON POSITION (UP . 

PL«PfFt%i!;jM"?«ic^^2 I'"" '° *""''^ ^"^ 1**2 »S 'N CE MODE. 
A^in !„I*^! l^^^** CARDS OF THE PROGRAM IN THE HOPPER OF THE 1442 
AND ADC A BLANK CARP BEHIND THIS DECK. 

NOTE 

IhI^ f2*»»?r«*n2c^S!c* CHARACTER ENTERED INTO COLUMN 80. 
I?rno^7i? S*^" DEFINES THE CARD'S POSITION IN THE DECK 
ACCORDING TO THE FOLLOWING SEQUENCE, XIFIRSTI, THEN 0. 1. 2. 
3, 4, AND 5. THE CARDS CANNOT BE READ UNLESS THEY ARE PLACFD 
IN TFE hOPPER IN THE CORRECT ORDER. "'* 

ENSURE THAT ONLY ONE BLANK CARD IS PLACED BEHIND THE «fufm. 

PR*SGRATs2f?rH."/L'^i''? "-"''' CARD^StRE'pREsLJVD^^rCE 
PROGRAM SWITCHES 14 AND 15 WERE OFF, THE FIRST BLANK CARO 

SeSTRO?Id!"°* ""'"'^ '^' P«OaRAM-LOADlD pSnCH P««RN ?0 BE 

«^crf^i'*?^.^*''^ PUSHBUTTON. READY INDICATOR SHOULD LIGHT. 
SELECT CE SWITCH SETTINGS FROM TABLE 1. i-n.ru. 

DEPRESS CE LEVEL INTERRUPT PUSHBUTTON ION CE PANEL! TO LOAD TMF 
PROGRAM. IF T«e HOPPER CF THE 1442 DOES NOT GO EMPTY THE cSeJr! 
SUM ROUTINE IN THE AUX DIAGNOSTIC LOADER MOST LIKELY Re!ec?I§ 

s?|p ?2f Jnd try^gIVn.""" '°'' '"'°"'' '""''^" *^° SetSrJ, ?o 

PAPER TAPE LOADING PROCEDURE 

THIS PROGRAM CAN NOT BE LOADED FROM PAPER TAPE. 

OPERATING PROCEDURE 

III.^..i^,''?°'^''*" SWITCH OPTIONS ARE SHOWN IN TABLE 1 AND THE COMMENTS 
""^0 THERE GIVES ADDITION INFORMATION ABOUT PROGRAM OPERATION ?il 

ANY'kN0WLEDCF'n^T2."^*Ii.^° "OCEDURE DOES NOT, hSweSe" JiESUpJSlE 
ANY KNOWLEDGE OF THE SWITCH OPTIONS GIVEN IN TABLE 1. 

TYPICAL OPERATING PROCEDURE 

l^f.T^.'^.l It'll i"**^^ ''^*° '•XOCRAH CONTAINS A CARD-PUNCHING 
PRQGRAMFn"tL^*S.?^ """ ^° "'"*'■*' ""NK CARDS WITH A PR£- 
ac .^?f?^'' ^^^^ PATTERN. IF THE PRE-PROGRAMEO TEST PATTERN IS TO 
BE USED, PROCEED TO STEP IB! OTHERWISE, BEGIN WITH STEP (A . 



E. 
F. 
G. 



A. 



TO ALTER THE PRE-PROGRAMEO TEST PATTERN, PROCEED AS FOLLOWS- 



1. 
2. 

3. 



4. 

5. 

6. 

7. 



SET CE PROGRAM SWITCHES TO 00000010. 

THrMACHINE? ''"*"^""°'* OF 1442 TO EJECT ANY CARDS LEFT IN 

ncI^nr^V ^^'^^ """ * DESIRED PUNCH PATTERN. ENTER THE 
DESIRED PUNCH PATTERN INTO COLUMNS 1 THRU 40. 
PUNCHES IN ANY OTHER COLUMNS WILL BE IGNORED, 
oi;!!^!-'*"" CONTAINING DESIRED PUNCH PATTERN IN THE 1442 
HOPPER AND ADD A BLANK CARD. 

n^oolci*?! .^I*"^ PUSHBUTTON. READY INDICATOR SHOULD LIGHT. 
PA?"r" ?N%il:it,r """" ""'" ""'''' TO LOAD PUNCH- 
PROCEED TO STEP B. 



OATt 
EC NO. 



28FeB6« 



PRC& U> 
PACE^ 



08A9-O 



DATE 
EC NO. 



28FEBM 

♦tsiao 



PROC ID 
PACE 



08Ar-0 
lA 
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B. EXeClHE PUMCH-TEST-CAROtSJ RObTIIVE AS FOLtOWS- 



1. 

2. 
3. 

4. 
5. 



PRESS NPRO PUSHBUTTON OF 1442 TO EJECT ANY CAPOS tEFT IN THE 
HACHINE* 

PLACE BLANK CARDS INTO HOPPER OF 1442. 

PRESS 1442 START PUSHBUTTON. THE READY INDICATOR SHOULD 
L IGHT . 

SET CE PROGRAM SWITCHES TO COOOOOOl. 

DEPRESS CE LEVEL INTERRUPT PUSHBUTTON ION CE PANEL! TO START 
THE PUNCH-TEST-CARO ROUTINE. 
6. AFTER THE 1442 STOPS PUNCHINGt DEPRESS 1442 NPRO PUSHBUTTON 
TO EJECT ALL CARDS FROM THE MACHINE. 

C. EXECUTE CARO/REAO/COMPARE ROUTINE AS FOLLONS- 

REMOVE CARDS FROM STACKER I AND PLACE THEM INTO THE HOPPER. 

PRESS 1442 START PUSHBUTTON. THE READY INDICATOR SHOULD 

LIGHT. 

SET CE PROGRAM SWITCHES TO 00000011. 

DEPRESS CE LEVEL INTERRUPT PUSHBUTTON ION CE PANEL! TO START 

THE CARD REAC/COHPARE ROUTINE. 

PROPER OPERATION OF THE CARD KEAO/CDHPARE ROUTINE WILL RESULT 

IN A CONTINOUS CARD READ OPERATION UNTIL THE HOPPER IS EMPTY 

OR THE STOP KEY ON THE 1442 IS DEPRESSED. IF PUNCHING OCCURS 

A CCMPARE ERROR WAS SENSED. REFER TO TABLE 1 FOR DETAILED 

DESCRIPTION OF THIS PARTICULAR ROUTINE. 

TO RETURN THE 1442 TO THE CUSTOMER PRQCEEO TO SECTION 3.5 

TABLE 1 CE PROGRAM SWITCH SETTINGS. 



CARD RE ADA 
COMPARE 



1 



1. 
2. 

3. 
4. 



6. 



ROUTINE 

PUNCH TEST 
CARDISI 



CE PROGRAM SWITCHES 
8 9 ID 11 12 13 14 IS 







C 1 



READ CARD 







FUNCTION 

THIS SWITCH SETTING SELECTS A ROUTINE THAT 
CAUSES THE 1442 TO PUNCH A TEST PATTERN 
INTO COLUMNS 1 THROUGH 40 OF ANY NUMBER OF 
BLANK CARDS. THE TEST PATTERN PUNCHED MAY 
BE EITHER THE PROGRAM'S INTEGRAL TEST 
PATTERN OR AN OPERATOR-SELECTED TEST 
PATTERN. TO START THIS ROUTINE PLACE BLANK 
CARDS IN THE 1442 AND MAKE THE DEVICE 
REAOV. PRESS THE CE LEVEL INTERRUPT 
PUSHBUTTON TO SIGNAL THE 1442 TO START 
PUNCHING. THIS ROUTINE WILL CONTINUE UNTIL 
THE HOPPER IS EMPTY, STOP KEY ON THE 1442 
IS DEPRESSED OR ANOTHER ROUTINE IS 
SELECTED. 



THIS SWITCH SETTING SELECTS A ROUTINE THAT 
CAUSES THE 1442 TO READ A CARD lOR CAROSI. 
THIS SETTING CAN BE USED TO READ CARDS 
lE.C.i TO CHECK MACHINE OPERATIONI OR TO 
MODIFY THE PRE-PROGRAMED TEST PATTERN. THE 
LAST CARD READ WILL DETERMINE THE PATTERN 
PUNCHED BY THE PUNCH TEST CARDS ROUTINE. TO 
STARt THIS ROUTINE MAKE THE 1442 READY AND 
DEPRESS CE LEVEL INTERRUPT. THIS ROUTINE 
WILL CONTINUE UNTIL THE HOPPER IS EMPTY* 
STOP KEY ON THE 1442 IS DEPRESSED OR 
ANOTHER ROUTINE IS SELECTED. 



THIS SWITCH SETTING SELECTS A ROUTINE THAT 
CAUSES THE 1442 TO READ CARDS PUNCHED BY 
THE PUNCH-TEST-CARD ROUTINE AND COMPARE 
THEM WITH THE STORED TEST PATTERN. IF 
READING OR PUNCHING ERRORS ARE DETECTED, 
THE DATA READ FROM COLUMNS 1 THROUGH 40 ARE 
PUNCHED INTO COLUMNS 41 THROUGH 80 OF THE 
SAME CARD. THE CARDS CONTAINING ERRORS ARE 
THEN SORTED INTO STACKER 2. ALL OTHER CARDS 
ARE SORTED INTO STACKER 1. TO START THE 
RCUTINE PLACE THE PUNCHED TEST CARDS IN THE 
1442 HOPPER AND MAKE THE DEVICE READY. 
DEPRESS THE CE LEVEL INTERRUPT PUSHBUTTON 
TO START THE PROGRAM. THIS ROUTINE WILL 
CONTINUE UNTIL THE HOPPER IS EMPTY, STOP 
KEY ON THE 1442 IS DEPRESSED OR ANOTHER 
ROUTINE IS SELECTED. 



CE SERVICE 1 1 I I THIS SWITCH SETTING CAUSES THE 1442 PROGRAM 

Stop to stop but does not terminate the program. 

it is recommended to use this setting 
when adjusting this device. to start the 
routine, select the ce program switch 
settings and depress ce interrupt button. 

program 1 1 1 i 1 1 i 1 this switch setting selects a routine that 
terminator terminates the 1442 image read diagnostic 

prcgram and releases the device to the 
customer. (this setting is the same for all 
auxiliary-storage exerciser programs. i 
this routine must be used before a new 
prcgram can be loaded into aux storage. 

caution- follow the terminating procedure 
in section 3.s. 

3.4 ce service stop 

this switch setting will not terminate the program but it mill 

CAUSE THE DEVICE TO STOP AND STAY IN CE MODE. IT IS RECOMMENDED TO 
USE THIS SETTING WHEN ADJUSTING THIS DEVICE. TO START THE ROUTINE, 
SELECT THE CE PROGRAM SWITCH SETTINGS AND DEPRESS CE INTERRUPT. 

3.5 TERMINATING PROCEDURE 

TO TERMINATE THE PROGRAM AND RETURN THE DEVICE TO THE CUSTOMER- 

A. SET THE CE PROGRAM SWITCHES TO OOOOlIll -CE SERVICE STOP. 
•THE ONLY REASON FOR USING THIS SETTING IS TO STOP ANY DEVICE 
ACTICN WHICH MAY CAUSE AN INTERRUPT). 

B. SET THE CE PROGRAM SWITCHES TO lllUlll -TERMINATOR SETTING, 
AND DEPRESS THE CE INTERRUPT LEVEL PUSHBUTTON CNCE AND ONLY 
ONCE. lA SECOND DEPRESSION OF THE CE INT. PUSHBUTTON WILL 
WILL RESULT IN THE AUX DIAGNOSTIC LOADER TRYING TO LOAD A NEW 
PROGRAM IF THE 1442 IS READY!. 



DATE 
EC NO. 



28FEB66 
415120 



PROC 10 
PAGE 



oaA«-o 

2 



DATE 
EC NO. 



28FEi>66 
415120 



PROG 10 
PACE 



0aA9-0 
2A 






C 



4 >■■ 






\_> 



A./ 






V c 



v>' 
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rm HftlNTtMANCe OIAGNOSrrC program for the 1800 SVSTEH 
AOX 1442 IMAGE RtAO EXERCrSEft 

NOTE 

. C^O^Cru's^SrSp^ e^ScT^E"RV^??E"?A."^ LOAUEO^^J^VuS^^^^S?-i- 

tOAO ThE AUX 1^42 PACKED READ EXERCISE PROGRAM IPin nnA*i 
AFTER ASSURING THE PROGRAM IS IN BY PUNCHING CAROS? CE 
SWITCH SETTING 00000001, SET IN THE FMEHELL OPTION 
CE SWITCH SETTING 00000000 AND LEAVE THE SMITCHES AT 
THIS SETTING. TO ENSJRE THE GREATEST PROTEClISN^Om 
CUSTOMER. DEPRESS CE INTERRUPT. ""'ttllUN ig THE 

4. PRINTOUTS 

I=!.,rl^.1xJ*'*^ '"*'^^ """^ EXERCISER PROGRAM DOES NOT PRODUCE 

psiSliliiiiiiiE 

THEN COMPARING THE ORIGINAL PUNCHES IN COLUMNS I THROUGH 40 yI?E Itt^ ^° 

5. COMMENTS 

?n''cS5or" "^" ^^ '" MAIN-CORE STORAGE AND MUST BE RUNNING OR RE40V 

.!<!n'ii^ PROCRaW CONr«thS A PRE-PPOGRANEO TEST PftTTERN TH«T CAN HF 

R P^^TOr^Jv^jr?|R-iJE" ?RE^!p^JoG^^i|r;ErT ^ ' F^T . 

^rp\ic%S"?SrS^^E"H"0P%lR"^F^'?^? JtirS^-ONG^^VrB - £ 
REAC-CARU ROUTINE IS SELECTED. AND THE u'' piS2RAM'ls\N?ERE5. "' 

UPON BEING ENTERED. THE 1442 PROGRAM TURNS ON IHE CE MODE C1f*b« tuc 
OSW, AND SENSES THE CE PROGRAM SWITCHES. IF THE PROGRAM Ifn«« a ^ 
PROGRAM TERMINATOR (lUlUlll. IT SETS A BRANCH VEC^Sr IN ?Hf 
rn«?cS/?c'"''"^*" '""^ »**2 PROGRAM AnS ?SrNS OFF Jh? CE WOE 
^?^l"2»J^^'^^'' """"NED TO THE CUSTOMER'S MaFn-LINE PROGRAM. IF IMF 
itcr-.r^^^*" °°" '^°^ """ * PROGRAM TERMINATOR, THE PROGRAM 
EXECUTES THE SELECTED ROUTINE (E.G.. REAC-CARO ROUTINE!. 



PART NO. 2196445 
PAGE 3 
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AUX 1442 IMAGE frEAD EXERCISER 

5.1 PUNCH-TEST-CARD ROUTINE 

PLACE BLANK CARDS INTO THE 1442«S HOPPER. SELECT THP Piiuru 

Iffr?;^'*?..''?""''' *'^° ^X""" ^"E RoCVlSl. THE JoiymE7So«S THE 
1442 TO PUNCH A TEST PATTERN INTO COLUMNS 1 THROUGH 40 nF FAru 
CARD PLACED IN THE HOPPER. AFTER THE PUNCHING OF MCHC^RD 
CONTROL IS RETURNED TO THE CUSTOMER'S MAIN^UNE PrSgRa" ' 

5.2 READ-CARD ROUTINE 

nAT*'*^TST^*S?r?''"^'^^ ^ '"'"'-* *»"0S * TEST-PATTERN CARD AND STORES THE 
DATA. THIS DATA MAY THEN BE USED TO PUNCH CARDS (REFER TO 5.11 
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5.3 CARD-REAO/COMPARE ROUTINE 



IF DESIRED, THE PROGRAM 
PUNCH-TEST-CARD ROUTINE 
READ/COMPARE ROUTINE. T 
PUNCHED BY THE PUNCH-TE 
STORED TeST PATTERN. IF 
DATA READ FROM COLUMNS 
THROUGH 80 OF THE SAME 
SELECTED INTO STACKER 2 
AFTER EACH CARD IS FINI 
MAIN-LINE PROGRAM. 



OPERATOR CAN PLACE THE CARDS PUNCHED BY THE 
IN THE 1442 HOPPER AND SELECT THE CARO- 

ci^^?I^^iJI^ """* ^"^ »**2 TO READ THE CARDS 
ST-CARO ROUTINE AND COMPARE THEM WITH THE 
READING OR PUNCHING ERRORS ARE DETECTED, THE 
1 THROUGH 40 ARE PUNCHED INTO COLUMNS 41 
CARD. THE CARDS CONTAINING ERRORS ARE THEN 
l^t^*- °^"^" *^*"°^ ^''E STACKED INTO STACKER 1. 
SHED, CONTROL IS RETURNED TO IHE CUSTOMER'S 



6. APPENDIX 
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FIGURE 1 
SAMPLE OUTPUT OF AUX 1442 IMAGE READ PROGRAM. 
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02BC 



ABS 

ORG /36 

• If THIS PROG IS TO SE USED FOR A MACHINE 

* WITH A DIFFERENT AREA CODE, IKE LOCATION WHICH 
REFER TO THE LASEL AREA IN SYMBOL TABLE MUSI 
BE CHANGED BY HEX CCRRECTION CARDS TO OSTAIN A 
MODIFIED AUX 8-8 dSJECT DECK. SEE AUX CE PR05 
GENERATOR MRITE-UP FOR PROCiDURE. 



* 
« 

* 



0036 





7077 


0037 





oaic 


0038 





0810 


0039 





0816 


003A 





EOlS 


003B 





F014 


003C 


00 


4C180048 


003E 





F013 


903F 


00 


*C18004F 



1442 AUX PROGRAM 
(IMAGE READ FORMATI 



THIS PROe CAN NOT BE LOADED FROM PAPER TA.->E 



C£ SMITCH SETTINGS 



00000001 
00000010 
0000001 1 

00001111 
11111111 



PUNCH TEST CARDS 
READ CARDS IMAGE MODE 
READ COMPARE. PUNCH AND 
♦ SELECT NON COMPARE CARD 
CE SERVICE STOP 
PROGRAM TERMINATOR 

FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 
REFER TO THE PROGRAM DESCRIPTION HRITE-UP. 

AUX PROG ENTRY POINTS 

1ST PASS ENTRY 
MOX DUTA8 

ALL BUT 1ST PASS ENTRY POINT 



RETUR XIO CEON 
XIO DSU 
XIO SENBI 
ANO SENBI 
EOR SENBI 

BSC L NOTRDt«'- 

EOR CEOFF 

BSC t SAyE2.«- CK CE SERVICE STOP 

* SELECT DESIRED ROUTINE 



SENSE CE SW TO ACCUN 
BLOCK OUT PROGRAM SEL SH 

BR TERMINATE PROGRAM 



OO'Vl E014 
00*2 DOOl 
9043 00 65000000 
9045 00 40800047 



0047 0062 

0048 0084 

0049 0080 



ANO 
STO 



OSM 
60*1 



GO LOX LI 

BSC U TABPU 



A8PU OC 
OC 
DC 



ROUTINE SELECTED XFER VECTORS 
• TABLE INVERTED 

P0RE2 RO PCH COMP, SEL ERR 
RE ADZ READ CARDS 
PUC02 PUNCH CARDS 



DATE 
EC NO. 



2eFEB66 

415120 



8A900000 
8A900010 
aA900020 
3A900030 

aA9ooo4a 

8A9000S0 

3A900060 

8A900070 

8A9000S0 

SA900090 

8A900100 

SA900110 

8A900120 

8A900130 

8A900140 

8A900150 

8A900160 

8A900170 

8A900180 

8A900190 

8A900200 

8A900210 

8A900220 

8A900230 

8A900240 

8A9002S0 

8A900260 

8A900270 

8A900280 

eA900290 

8A900300 

8A900310 

8A900320 

8A900330 

8A900340 

8A9003S0 

8A900360 

8A900370 

8A900380 

8A900390 

8A900400 

8A900410 

8A900420 

8A900430 

8A900440 

eA9004SO 

8A900460 

8A900470 

8A900480 

eA900490 

8A900500 

8A900510 

6A900S20 

8A900530 

8A900540 

8A900S50 

8A900560 

8A900570 

8A900580 

8A900S90 

8A900600 

8A900610 

8A900620 

8A900630 

8A900fr40 

8A9006S0 

8A900660 

8A900670 



PROG 10 
PAGE 



004A 0C4F 



08A9-0 
1 



DC SAVE2 CE SERVICE STOP 
EXIT POINTS TO AUX LOAOgR 



304S 00 65000813 
904D 69B6 
004E 0303 



004F 70B0 



0050 
0050 
0051 
0052 
0053 
0054 
0059 
0056 
0057 
0058 
0059 
OOSA 
OOSB 
OOSC 
0050 
005E 
005F 
0060 
0061 



0000 
OOFF 
0760 
OOFO 
0000 
0008 
0001 
0003 
0701 
7009 
0480 
0086 
0600 
OOAE 
0600 
0086 
0500 
OOAE 
0500 



0062 7009 



0063 6127 

0064 00 C50000AO 
0066 00 FS000085 
0068 00 4C200070 



006A 
0068 



7 IFF 
70P8 



006C 08EF 

0060 C007 

006E D0F3 

006F 70DF 



* 
* 

NOTRO LOX LI WHWM 

srx I /04 

XIO 



TERMINATE EXIT POINT 



CEOFF 

* NORMAL EXIT POINT 

« 

SAVE2 MOX OOQQ EXIT TO AUX LOADER 
CONSTANTS ANO/OR lOCC WORDS 





/OOFF 

/0750 

/OOFO 

/OOOO 

/0008 

/OOOl 

/0003 

/0701 



TERMINATOR CONST 

SENCE BIT SWITCHES 

CONSTANT 

CE OFF lOCC 

PCH TERM BIT 

CE ON lOCC 

CONSTANT 

OSW lOCC 

ROSA-PUREZ-1 CONSTANT ONLY 

/0480 STACKER SELECT lOCC 



BSS 
SENBI DC 

OC 
CEOFF OC 

OC 
CEON OC 

DC 
DSU DC 

DC 
STACK MOX 

DC 
REAOA OC 

DC 
REED DC 

DC 
PUNCH OC 

DC 
PUCH OC 

OC 

READ COMPARE ROUTINE 



RE TAB 
/0600 
DUTA8 
/0600 
RETAB 
/0500 
DUTAB 
/0500 



READ CARD IMAGE lOCC 
READ CARD IHAGE lOCC 
PUNCH CARD lOCC 
PUNCH CARD lOCC 



PURE 2 MOX 

* 
* 

LDX 
CTCOP LO 



ROSA 



BR OR NO OP INST. 



COMPARE 1ST 39 WORDS JUST READ 

* AGAINST 39 WORDS STORED IN RETAB 



BR WORDS 00 NOT COMPARE 



1 39 
LI OUTAB-1 

EOR LI RETAB-1 

BSC L NONCPtZ 

MDX 1-1 

MOX CTCOP 

• READ CARD FOR READ COMPARE ROUTINE 
RQSA XIO REED 

c.,c b2- " '•'•*" NO OP 

SOS STO PUREZ • 

MOX SAVF2 

• TABLES DID NOT COMPARE 

• SET UP PUNCH TABLE 



DATE 
EC NO. 



28FEB66 
415120 



8A<i00630 
» 8A900fe90 
8A9Q0T00 
8A900710 
8A900723 
8A900730 
8A90a74C 
8A900T59 
8A900760 
8A900770 
SA900780 
8A90079a 
SA900800 
8A900810 
8A900820 
SA900830 
8A900S4() 
8A900850 
8A900860 
8A900870 
8A900880 
8A900890 
8A900900 
8A900910 
SA900920 
8A900930 
8A900940 
8A900950 
8A900960 
8A900970 
8A9009B0 
8A900990 
8A901000 
8A901010 
8A901020 
8A901030 
8A901040 
8A90I0S0 
8A901060 
8A901070 
8A901080 
8A901090 
8A901100 
8A901110 
8A901120 
8A901130 
8A901140 
BA90115C 
8A901160 
8A901170 
8A901180 
eA901190 
BA901200 
SA901210 
8A9012<!0 
8A901230 
8A901240 
8A901250 
8A901260 
8A901270 
8A901280 
8A901290 
8A901300 
8A901310 
8A901320 • 
8A901330 
8A9013<>0 
8A90t3S0 



PROG ID 
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00 



0070 
0071 
007J 00 

0075 

0076 00 

0078 

0079 



6128 

C50000AO 

D50000D5 

lOlO 

D50000AO 

71FF 

70F7 



IT 



007A 00 740800F0 
007C 0808 
0070 0aE2 
007E C009 
007F 70EE 



0080 C02C 

0081 ES02 

0082 002A 

0083 080A 



0084 

0085 



08DS 
70C9 



NONCP tOX 
GOOD LD 
STO 
SLA 
STO 
HOX 
MOX 

MDX 
XIO 
XIO 
LD 

MDX 



1 40 
LI DUTAB~1 
LI PUTAS-1 

16 
LI DUTAB-l 
1 -1 
GOOD 

L PUTAB')-39,8 SET PUNCH TERMINATOR 
STACK SELECT STACKER 

PUCH 
STACK 
SOS 



• 



PUNCH TEST DECK 

SET PUNCH TERMINATOR 



RETAB«3« 

CEON 

RETAB*39 
PUNCH 
SAVE2 



PCH TERN BIT 

PUNCH CARDS 
THE FOLL XIO 
* AS A NO OP 



HILL ACT 
INST. 



PUCOZ LD 
OR 
STO 
XIO 

* MOX 

* 

* READ CARDS IN INAGE NODE 
READ! XIO READA READ INAGE MODE 

MOX SAVE2 

* READ AND PUNCH TEST DECK TABLE 

* * CONTAINS AN INITAL PUNCH PATTERN 



0086 


8000 


RETAB DC 


/BOOO 


0087 


COOO 


DC 


/COOO 


0088 


EOOO 


DC 


/EOOO 


0089 


FOOD 


DC 


/FOOO 


008A 


F800 


DC 


/FBOO 


0088 


FCOO 


DC 


/FCOO 


008C 


FEOO 


DC 


/FEOO 


0080 


FFOO 


PC 


/FFOO 


008E 


FF30 


DC 


/FF80 


008F 


FFCO 


DC 


/FFCO 


0090 


FFEO 


DC 


/FFEO 


0091 


FFFO 


DC 


/FFFO 


0092 


0010 


DC 


/OOIO 


0093 


0030 


DC 


/0030 


0094 


0070 


DC 


/0070 


0099 


OOFO 


DC 


/OOFO 


0096 


OlFO 


DC 


/OlFO 


0097 


03F0 


DC 


/03F0 


0098 


07F0 


DC 


/07F0 


0099 


OFFO 


DC 


/OFFO 


009A 


IFFO 


DC 


/IFFO 


009B 


3F^0 


OC 


/3FF0 


009C 


7FF0 


DC 


/7FF0 


0090 


FFFO 


DC 


/FFFO 


009E 


8000 


OC 


/BOOO 


009r 


COOO 


OC 


/COOO 


OOAO 


EOOO 


DC 


/EOOO 


OOAt 


FOOD 


DC 


/FOOO 


0OA2 


F800 


DC 


/FBOO 


00A3 


FCOO 


OC 


/FCOO 


00A4 


FEOO 


DC 


/FEOO 


OOAS 


FFOO 


DC 


/FFOO 


00A6 


FF80 


DC 


/FF80 


DATE 


2BFEB66 






EC NO. 


415120 







8A901360 
8A901370 
8A901380 
8A901390 
8A901400 
8A901410 
8A901420 
8A901430 
8A901440 
8A901450 
8A901460 
8A901470 
8A901480 
8A901490 
8A901500 
8A901S10 
8A901520 
8A901530 
8A901540 
8A901550 
8A901560 
8A901570 
8A901S80 
8A901S90 
8A901600 
8A901610 
8A901620 
8A901630 
8A901640 
8A901650 
8A901660 
aA901670 
8A9016B0 
BA901690 
8A901700 
8A901710 
8A901720 
8A90tr30 
BA901740 
8A901750 
8A901760 
8A901770 
BA901780 
eA901790 
8A901800 
8A901B10 
8A901B20 
8A901B30 
8A901840 
8A9018S0 
8A901860 
8A9C1B70 
8A9018B0 
eA901B90 
BA901900 
8A901910 
8A901920 
BA901930 
BA901940 
8A901950 
8A901960 
BA901970 
BA9019S0 
8A901990 
BA902000 
8A902blO 
BA902020 
BA902030 



PROG to 

PACE 



00A7 
OOAS 
00A9 
OOAA 
OOAB 
OOAC 
OOAO 



FFCO 
FFEO 
FFFO 
0010 
0030 
0070 
OOFS 



OC 


/FFCO 


DC 


/FFEO 


DC 


/FFFO 


OC 


/OOIO 


OC 


/0030 


OC 


/0070 


OC 


/OOF 8 



CONTAINS PUNCH TERNINATOR 

THE INFO IN THIS TABLE IS USEO ONCE 
ON THE FIRST TIME. AFTER THAT THIS 
MILL CONTAIN THE LAST HALF OF A CARD 
THAT WAS READ. 



OOAE 00 65007007 
0080 00 6D00003S 
0082 00 65007032 
0084 00 60000004 



00B6 
0OB7 
OOBB 
00B9 
OOBA 
OOBB 



610F 
C1S2 
EB09 
D152 
71FE 
70FB 



OQBC 00 4C000037 
OOBE 1000 



OOBF 



0006 



0000 
7007 
0813 
7032 



OOFE 



0017 



0028 



OOFO 



OUTAB LOX LI 

STX LI 

LOX LI 

STX LI 

* 

LOX 
BUILD LO 
OR 
STO 

MDX 
MOX 
« 

BSC 

AREA OC 

* 

BSS 

* 

PUTAB BSS 

0000 EOU 

NNNN EQU 

UWWM EOU 

TTTT EOU 

END 



NNNN 
/35 
TTTT 
/04 



RESTORE LOC NICE 

• IN AUX LOADER 
PLACE BRANCH 

♦ TO RETUR LABEL 



•••*♦*•*•**•••*•**•******•**••«* 



AOO AREA CODE TO THE I/O COMMANDS 



IS 

CEOFF 

AREA 

CEOFF 

-2 

BUILD 

RETUR 

/lOOO 



23 



GET lOCC WORD AND 

* OR IN AREA AND 

• PLACE BACK 



IST 1442 AREA CODE 

* CHANGE THIS VALUE 

* FOR A 1442 ON ANOTHER AR 

REST OF READ AREA 



******* •**»««»«*««i#«i«***«»«««*«*«»**« 



PUNCH TABLE 



40 



/O 60 TO LOADER AT /D 
/7007 FOR CARD LOADER AT /35 
/0B13 SET IN LOADER AT /04 
/7000*RETUR-/4-l THIS IS EQUAL TO 
THE BRANCH FROM THE LOADER 
TO RETUR IN THIS PROGRAM. 

•-1 END CARD NEVER USED 



8A90204a 
8A902050 
8A902060 
8A902070 
8A902080 
8A902090 
8A902100 
8A902UO 
8A902120 
8A902130 
8A902140 
8A9021S0 
8A902160 
8A902170 
8A902180 
8A902190 
8A902200 
8A902210 
8A902220 
8A902230 
8A902240 
8A9022S0 
eA902260 
8A902270 
8A902280 
8A902290 
8A902300 
8A902310 
8A902320 
SA902330 
8A902340 
8A9023S0 
8A902360 
8A902370 
8A902380 
8A902390 
8A902400 
8A902410 
8A902420 
8A902430 
8A902440 
8A9024S0 
8A902460 
8A902470 
8A9024BO 
8A902490 
8A902S00 
8A902S10 
8A902S20 
8A902530 
8A902540 
BA9025S0 



0SA9-0 

2 



DATE 
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PACE 2A 
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CROSS REFERENCE LISTING 



SVH80L 


VALUE 


REFERENCES 


AREA 


OOBE 


00 88 


BOILO 


OOBT 


00 88 


CEOFF 


00S2 


003Et004EiOOB7.00B9 


CEON 


0O54 


0037,0081 


CTCOP 


0O64 


0068 


DSM 


0056 


0038,0041 


OUTAB 


OOAE 


0036, OOSC, 0060, 0064,0071, 0076 


GO 


0043 


0042 


GOOD 


0071 


0079 


IT 


0075 


0060 


NNNN 


7007 


OOAE 


NONCP 


0070 


0068 


NOTRO 


004B 


00 3C 


PUCH 


0060 


0070 


PUCOZ 


0080 


0049 


PUNCH 


005E 


0083 


PUREZ 


0062 


0047,0058, 006E 


PUTA8 


0006 


0073, 007A 


OQQQ 


0000 


00 4F 


REAOA 


OOSA 


0084 


REAOI 


0084 


0048 


REED 


OOSC 


00 6C 


RETAB 


0066 


005A,005E,0066,0080t0082 


RETUR 


0037 


OOBCOOFE 


ROSA 


006C 


0058,0062 


SAVE2 


004F 


003F.004A,006F,0085 


SENBI 


0050 


0039,003A.003B 


SOS 


006E 


00 7F 


STACK 


0058 


007C,007E 


TABPU 


0047 


0045 


TTTT 


7032 


00S2 


WUUH 


0813 


0048 
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3. USE PROCEDURE 01 
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3.2 FAREWELt SETTING 

3.3 OPERATING PRCCECURE 
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3.5 TERMINATING PROCEDURE 

4. PRINTOUTS. 03 

5. COMMENTS 03 

5.1 PUNCH-TEST-CARD ROUTINE 

5.2 READ-CARD ROUTINE 

5.3 CARO-READ/CCMPARE ROUTINE 



6. APPENDIX 



NOTE 

EACH PROGRAM CARD HAS A CHARACTER ENTERED INTO COLUMN 80. 
THIS CHARACTER DEFINES THE CARD'S POSITION IN THE DECK 
ACCORDING TC THE FOLLOWING SEQUENCE, XIFIRSTI. THEN 0, 1« 2t 
3, 4, AND 5. THE CARDS CANNOT BE READ UNLESS THEY ARE PLACED 
IN THE HOPPER IN THiE CORRECT ORDER. 

E. DEPRESS THE 1442 START PUSHBUTTON. REAOV INDICATOR SHOULD LIGHT. 

F. PLACE ALL CE PROGRAM SMITCHES IN THEIR OFF POSITION. 

G. DEPRESS CE LEVEL INTERRUPT PUSHBUTTON ION CE PANEL) TO LOAD THE 
PROGRAM. I IF THE HOPPER OF THE 1442 DOES NOT CO EMPTY THE CHECK- 
SUM ROUTINE IN THE AUX DIAGNOSTIC LOADER MOST LIKELY REJECTED 
THE PROGRAM. CHECK THE CARDS FOR PROPER SEQUENCE AND RETURN TO 
STEP A AND TRY AGAIN!. 

H. GO TO SECTION 3.3 

3.2 FAREWELL SETTING 

TO OFFSET THE POSSIBILITY THAT THE 1442 MIGHT BE MALFUNCTIONING THE 
NEXT TIME THE 180C SYSTEM IS SERVICED, IT IS SUGGESTED THAT THE 1442 
8-8 READ DIAGNOSTIC PROGRAM BE LEFT IN A READY-TO-BE-RUN CONDITION IN 
AUXILIARY STORAGE. THE REAOY-TO-BE-RUN CONDITION IS SELECTED BY MEANS 
OF THE FAREWELL SETTING AS FOLLOUS- 

A. SET CE PROGRAM SWITCHES TO CCCOOOOO. 

e. DEPRESS CE LEVEL INTERRUPT PUSHBUTTON CON CE PANELJ TO ENTER 
FAREWELL SETTING WHICH RELEASES THE DEVICE TO THE CUSTOMER. 



1. PURPOSE 

THE PURPOSE CF THE AUX 1442 PACKED READ EXERCISER PROGRAM IS TO 

TEST THE OPERATION OF THE 1442 CARD READ PUNCH USING THE 8-8 READ MODE. 

2. PREPEOUiSlTES 

2.1 DEVICE AREA CODE 

IF THE DEVICE TO BE TESTED USES A CUSTOMER ASSIGNED AREA CODE, A NEM 
AUX PROGRAM DECK OR PAPER TAPE MUST BE CREATED. THE PROCEDURE IS 
PRESENTED IN THE DOCUMENTATION OF THE AUX PROGRAM GENERATOR UTILITY 
CPID 08AC - CARD VERSION, PIO C8AD - PAPER TAPE VERSION! 
THE PROGRAM LOCATIONS THAT MUt>T BE ALTERED ARE SPECIFIED BY A 
STATEMENT AT THE BEGINNING CF THE PROGRAM LISTING. 

2.2 CARD INPUT 

THE AUX DIAGNOSTIC LOADER IPID 0841! MUST BE PRESENT IN AUX STORAGE 
BEFORE AN AUX PROGRAM DECK CAN BE LOADED. 

3. USE PROCEDURES 

SEFORE PROCEED ING, A PROGRAM MUST BE IN MAIN-CORE STORAGE RUNNING 
OR AT A WAIT INSTRUCTION READY TO START RUNNING. 



3.1 



CARD INPUT LOADING PROCEDURE 

A. BE SURE THE 1442 IS AVAILABLE AND ALL CARDS ARE REMOVED. 
6. ON THE CE PANEL SET THE INTERRUPT SWITCH TO AUX INTERRUPT 
AND ALL THE CE SWITCHES TO THEIR ON POSITION tUPI. 

C. DEPRESS CE INTERRUPT TWO TIMES TO ASSURE THE 1442 IS IN CE MODE. 

D. PLACE THE SEVEN CARDS OF THE AUX 1442 EXERCISER PROGRAM IN 
THE HOPPER Of THE 1442 AND FOLLOW WITH A BLANK CARD. 



CAUTION 

00 NOT SELECT PROGRAM TERMINATOR IlllUlllI AFTER SELECTING 
THE FAREWELL SETTING. THE PROGRAM TERMINATOR WILL NEGATE THE 
FAREWELL SETTING. 



3.3 OPERATING PROCEDURE 



TYPICAL OPERATING PROCEDURE 



THE AUX 1442 PACKED READ PROGRAM CONTAINS A CARD-PUNCHING 
ROUTINE THAT CAN BE USED TO PUNCH BLANK CARUS WITH A PRE- 
PROGRAMED TEST PATTERN. IF THE PRE-PRQGRAMED TES^ PATTERN IS TO 
BE USED, PROCEED TO STEP IB! OTHERWISE, BEGIN WITH STEP lAi. 

A. TO ALTER THE PRE-PROGRAMEO TEST PATTERN, PROCEED AS FOLLOWS- 



1. 

2. 

3. 



4. 

5. 

6. 

7. 



SET CE PROGRAM SWITCHES TO 00000010. 

DEPRESS NPRO PUSHBUTTON OF 1442 TO EJECT ANY CARDS LEFT !N 
THE MACHINE. 

KEYPUNCH A CARD WITH A DESIRED PUNCH PATTERN. ENTER THE 
DESIRED PUNCH PATTERN INTO ROWS 12 THROUGH 5 OF COLUMNS I 
THROUGH 40. PUNCHES IN ANY OTHER ROWS AND COLUMNS WILL BE 
IGNORED. 

PLACE CARD CONTAINING DESIRED PUNCH PATTERN IN THE 1442 
HOPPER AND ADO A BLANK CARD. 

PRESS 1442 START PUSHBUTTON. REAOY INDICATOR SHOULD LIGHT. 
DEPRESS CE LEVEL INTERRUPT ION CE PANEL! TO LOAD PUNCH- 
PATTERN INFORMATION. 
PROCEED TO STEP 8. 



B. EXECUTE PUNCH-TEST-CARDIS! ROUTINE AS FOLLOMS- 

1. PRESS NPRO PUSHBUTTON OF 1442 TO EJECT ANY CARDS LEFT IN THE 
MACHINE. 

2. PLACE BLANK CARDS INTO HOPPER OF 1442. 



DATE 
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PROG 
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10 



08AA-0 
I 
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PROG 10 
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08AA-0 
U 
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ROUTINE 



FAREWELL 
SETTING 



3. PRESS 1442 START PUSHBUTTON. THE READY INDICATOR SHOULD 
LIGHT. 

4. SET CE PROGRAM SWITCHES TO 00000001. 

5. DEPRESS CE LEVEL INTERRUPT PUSHBUTTON CON CE PANEL) TO START 
THE PUNCH-TEST-CARO ROUTINE. 

6. AFTER THE 1442 STOPS PUNCHING, DEPRESS 1442 NPRO PUSHBUTTON 
TO EJECT ALL CARDS FROM THE MACHINE. 

C. EXECUTE CARO/READ/COMPARE ROUTINE AS FOLLOMS- 

1. REMOVE CARDS FROM STACKER 1 AND PLACE THEM INTO THE HOPPER. 

2. PRESS 1442 START PUSHBUTTON. THE READY INDICATOR SHOULD 
LIGHT. 

3. SET CE PROGRAM SNITCHES TO 00000011. 

4. DEPRESS CE LEVEL INTERRUPT PUSHBUTTON (ON CE PANELI TO START 
THE CARD READ/COMPARE ROUTINE. 

5. PROPER OPERATION OF THE CARD READ/COMPARE ROUTINE WILL RESULT 
IN A CONTINOUS CARD READ OPERATION UNTIL THE HOPPER IS EMPTY 
OR THE STOP KEY ON THE 1442 IS DEPRESSED. IF PUNCHING OCCURS 
A CCMPARE ERROR WAS SENSED. REFER TO TABLE I FOR DETAILED 
DESCRIPTION OF THIS PARTICULAR ROUTINE. 

NOTE 

DISREGARD ANY COMPARE ERROR PUNCHING IN THE FIRST CARD. 
If PUNCHING OCCURS. THROW THE CARD AWAY. 

6. TO RETURN THE 1442 TO THE CUSTOMER PROCEED TO SECTION 3.5 



TABLE 1. CE PROGRAM SWITCH SETTINGS 



READ CARD 







10 



CARD READ/ 
COMPARE 



00000011 



CE PROGRAM SWITCHES 

8 9 10 11 12 13 14 15 



FUNCTION 



PROGRAM OPERATOR MAY ALTER THE PRE-PR06RAME0 TEST PATTERN. FIRST, A 
CARD IS PUNCHED WITH THE DESIRED PATTERN. THEN, THE TEST-PATTERN CARD 
IS PLACED INTO THE HOPPER OF THE 1442 ALONG WITH A BLANK CARD, THE 
READ-CARD ROUTINE IS SELECTED, AND THE 1442 PROGRAM IS ENTERED. 



CE SERVICE 
STOP 



1 



PUNCH TEST 
CARDISI 



00000000 



00000001 



THIS FAREWELL SETTING WILL REMOVE THE 
DEVICE FROM CE MODE BUT WILL LEAVE THE 
1442 PACKED READ PROGRAM READY TO BE USED. 



THIS SWITCH SETTING SELECTS A ROUTINE THAT 
CAUSES THE 1442 TO PUNCH A TEST PATTERN 
INTO COLUMNS 1 THROUGH 40 OF ANY NUMBER OF 
BLANK CARDS. THE TEST PATTERN PUNCHED MAY 
BE EITHER THE PROGRAM'S INTEGRAL TEST 
PATTERN OR AN OPERATOR-SELECTED TEST 
PATTERN. TO START THIS ROUTINE PLACE BLANK 
CARDS IN THE 1442 AND MAKE THE DEVICE 
READY. PRESS THE CE LEVEL INTERRUPT 
PUSHBUTTON TO SIGNAL THE 1442 TO START 
PUNCHING. THIS ROUTINE WILL CONTINUE UNTIL 
THE HOPPER IS EMPTY. STOP KEY ON THE 1442 
IS DEPRESSED OR ANOTHER ROUTINE IS 
SELECTED. 



PROGRAM 
TERMINATOR 



1 1 



3.4 



••CAUTION** 



CE SERVICE STOP 



THIS SWITCH SETTING SELECTS A ROUTINE THAT 
CAUSES THE 1442 TO READ A CARD lOR CARDS). 
THIS SETTING CAN BE USED TO READ CARDS 
(E.G., TO CHECK MACHINE OPERATION) OR TO 
MODIFY THE PRE-PROGRAMEO TEST PATTERN. THE 
LAST CARD READ WILL DETERMINE THE PATTERN 
PUNCHED BV THE PUNCH TEST CARDS ROUTINE. TO 
START THIS ROUTINE MAKE THE 1442 READY AND 
DEPRESS CE LEVEL INTERRUPT. THIS ROUTINE 
WILL CONTINUE UNTIL THE HOPPER IS FMPTV, 
STOP KEY ON THE 1442 IS DEPRESSED OR 
ANOTHER ROUTINE IS SELECTED. 



THIS SKITCH SETTING SELECTS A ROUTINE THAT 
CAUSES THE 1442 TO READ CARDS PUNCHED BY 
THE PUNCH-TEST-CARO ROUTINE AND COMPARE 
THEM WITH THE STORED TEST PATTERN. IF 
READING OR PUNCHING ERRORS ARE DETECTED. 
THE DATA READ FROM COLUMNS I THROUGH 40 ARE 
PUNCHED INTO COLUMNS 41 THROUGH SO OF THE 
SAME CARO. THE CARDS CONTAINING ERRORS ARE 
THEN SORTED INTO STACKER 2. ALL OTHER CARDS 
ARE SORTED INTO STACKER 1. TO START THE 
ROUTINE PLACE THE PUNCHED TEST CARDS IN THE 
1442 HOPPER AND MAKE THE DEVICE READY. 
DEPRESS THE CE LEVEL INTERRUPT PUSHBUTTON 
TO START THE PROGRAM. THIS ROUTINE WILL 
CONTINUE UNTIL THE HOPPER IS EMPTY, STOP 
KEY ON THE 1442 IS DEPRESSED OR ANOTHER 
ROUTINE IS SELECTED. 



NOTE 
DISREGARD ANY COMPARE ERROR PUNCHING IN THE 
FIRST CARO. IF PUNCHING OCCURS, THROW THE 
CARD AWAV. 



THIS SWITCH SETTING CAUSES THE 1442 PROGRAM 
TO STOP BUT DOES NOT TERMINATE THE PROGRAM. 
IT IS RECOMMENDED TO USE THIS SETTING 
WHEN ADJUSTING THIS DEVICE. TO START THE 
ROUTINE. SELECT THE CE PROGRAM SWITCH 
SETTINGS ANO DEPRESS CE INTERRUPT BUTTON. 



THIS SWITCH SETTING SELECTS A ROUTINE THAT 
TERMINATES THE 1442 8-8 READ DIAGNOSTIC 
PROGRAM AND RELEASES THE DEVICE TO THE 
CUSTOMER. ITHIS SETTING IS THE SAME FOR ALL 
AUXILIARY-STORAGE EXERCISER PROGRAMS.) 
This ROUTINE MUST 8E USED BEFORE A NEW 
PROGRAM CAN BE LOADED INTO AUX STORAGE. 

FOLLOW THE TERMINATING PROCEDURE 
IN SECTION 3.5 



THIS SWITCH SETTING WILL NOT TERMINATE THE PROGRAM BUT IT WILL 
CAUSE THE DEVICE TO STOP AND STAY IN CE MODE. IT IS RECOMMENDED TO 
USE THIS SETTING WHEN ADJUSTING THIS DEVICE. TO START THE ROUTINE, 
SELECT THE CE PROGRAM SWITCH SETTINGS AND DEPRESS CE INTERRUPT. 
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3.S TERHINATING PROCEDURE 

TO TERMINATE THE PROGRAM AND RETURN THE DEVICE TO THE CUSTONER- 

A. SET THE CE PROGRAM SWITCHES TO OOOOllll -C£ SERVICE STOP 

ITHE ONLY REASON FOR USING THIS SETTING IS TO STOP ANY DEVICE 
ACTION WHICH MAY CAUSE AN INTERRUPT}. 

8. SET THE CE PROGRAM SWITCHES TO lUlllU -TERMINATOR SETTING* 
AND DEPRESS THE CE INTERRUPT LEVEL KEY ONCE AND ONLY ONCE. 
J A SECOND DEPRESSION OF THE CE INT. KEY HILL RESULT IN THE 
AUX DIAGNOSTIC LOADER TRYING TO LOAD A NEW PROGRAM IF THE 
1442 IS READY I. 

4. PRINTOUTS 

THE AUX 1442 PACKED READ EXERCISER PROGRAM DOES NOT PRODUCE 

PRINTOUTS. HOWEVER. THE RESULTS OF THE CARD-PUNCHING TEST CAN BE DETERMINED 
BY COMPARING THE CARDS PUNCHED BY THE PUNCH- TE SJ-CARD ROUTINE WITH THE 
PSOGRAM'S INTEGRAL TEST PATTERN OR THE ALTERNATE TEST PATTERN SELECTED 6Y 
THE PROGRAM OPERATOR. THE RESULTS OF THE CARD READ/COMPARE ROUTINE ARE 
DETERMINED BY FIRST CHECKING FOR ERROR CARDS IN STACKER 2 OF THE 1442 AND 
THEN COMPARING THE ORIGINAL PUNCHES IN COLUMNS I THROUGH 40 WITH THE 
REPRODUCED PUNCHES IN COLUMNS 41 THROUGH 80. THE COMPARISON SHOULD INDICATE 
WHAT DATA WERE NOT READ OR PUNCHED CORRECTLV. 

5. COPMENTS 

A PROGRAM MUST BE IN MAIN-CORE STORAGE AND MUST BE RUNNING OR REAOV 

TO START BEFORE THE AUX I44i PACKED READ EXERCISER PROGRAM 

CAN BE LOADED. ASSUMING THAT THE AUX DIAGNOSTIC LOADER 

IS PRESENT IN AUXILIARY-STORAGE AND THE SEVEN CARDS OF 

THE 1442 PROGRAM ARE IN THE HOPPER OF THE 1442 READY TO BE READt 

DEPRESSING THE CE LEVEL INTERRUPT PUSHBUTTON CAUSES THE PROGRAM TO BE 

STORED. 

THE 1442 PROGRAM CONTAINS A PRE-PROGRAHED TEST PATTERN THAT CAN BE 
USED TO PUNCH BLANK CARDS WITH A TEST PATTERN. IF DESIRED, THE PRO- 
GRAM OPERATOR MAY ALTER THE PUNCH PATTERN. IF THE PROGRAM SENSES A 
CONTROL IS THEN RETURNED TO THE CUSTOMER'S MA I N-L I NE PROGRAM. IF THE 
1442 PROGRAM DOES NOT SENSE A PROGRAM TERMINATOR. THE PROGRAM 
EXECUTES THE SELECTED ROUTINE (E.G.. READ-CARD ROUTINE). 

5.1 PUNCH-TEST-CARD ROUTINE 

PLACE BLANK CARDS INTO THE 1442«S HOPPER, SELECT THE PUNCH- 
TEST-CARO ROUTINE AND EXECUTE THE ROUTINE. THE ROUTINE CAUSES TH£ 
1442 TO PUNCH A TEST PATTERN INTO COLUMNS 1 THROUGH 40 OF EACH BLANK 
CARD PLACED IN THE HOPPER. 

5.2 REAO-CARO ROUTINE 

THE READ-CARD ROUTINE SIMPLY READS A TEST-PATTERN CA«D AND STORES THE 
DATA. THIS DATA MAY THEN BE USED TO PUNCH CARDS. IMfCR TO ».l I. 

5.3 CARO-RfAO/CCMPARE ROUTINE 

IF DESIRED, THE PROGRAM OPERATOR CAN PLACE THE CARDS PUNCHBO BY THE 
PONCH-TEST-CARD ROUTINE IN THE 1442 HOPPER AND SELECT IHE CARD- 
REAO/CCMPARE ROUTINE. THIS ROUTINE CAUSES THE 1442 TO READ THE CAMS 
PUNCHED BY THE PUNCH-TEST-CARD ROUTINE AND COMPARE THEM WITH THE 
STORED TEST PATTERN. IF READING OR PUNCHING ERRORS ARE DETECTED, THI 
DATA READ FROM COLUMNS 1 THROUGH 40 ARE PUNCHED INTO COLUMNS 41 
THROUGH 80 OF THE SAME CARD. THE CARDS CONTAINING ERRORS ARE THEN 
SELECTED INTO STACKER 2. ALL OTHER CARDS ARE STACKED INTO STACKER 1. 

6. APPENDIX 
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FIGURE 1 
SAMPLE OUTPUT PROM AUX 1442 PACKED READ PROGRAM. 



DATE 
.EC NO. 



28FEB66 
AlbVn 



PROG ID 08AA-0 
PAGE 3A 



) 
"> 

•) 

•) 

■) 

:> 

) 

■) 
) 

> 

1 
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©[© ooooo ooocooo ccooooo ooooooooooooo 



tSN NAIHTENANCE OUGMOSTIC P«06«*M FOR THf 1*00 SYSTiH 
AUX 1442 PACKEO RfAO EXEKCISER 



OZtC 



0636 TOIS 



9037 9 706D 



0038 0000 
0038 C080 



ASS 

OR 6 /S* 

••••••••••••••••••••♦•••••♦•••••••••••♦••••••••*•• 

IF THIS W»06 IS TO BE USED FOR A MACHINE 
MITH A DIFFEHENT AREA COOE. THE LOCATION MHICM 
REFER TO THE LABEL AREA IN SYMBOL TABLE HUST 
BE CHANCED BV HEX CORRECTION CARDS TO OBTAIN A 
NOOIFIED AUX 8-8 OBJECT DECK. SEE AUI CE PROG 
GENERATOR MRITE-UF FOR PROCEDURE. 

,•»••»••»•••••••••••••••••••••••••••*••••♦••••••••• 



1442 AUX PR06RAN 
iPACKCO READ FORNAT) 

THIS PROG CAN NOT BE LOADED FROM PAPER TAPE 



CE SNITCH SETTINGS 



00000000 
OOOCOOO 1 
00000010 



0000001 1 

00001111 
UUllll 



FAREMELL SETTING, SEE NOTE 

PUNCH TEST CARDS 

READ CARDS IN 8-8 I^ORNAT 

• DATA OF LAST CARD READ 

• USED FOR TEST CARD 

• PUNCH PATTERN 

READ COMPARE. PUNCH AND 

• SELECT NON COMPARE CARD 
CE SERVICE STOP 

PROGRAM TERMINATOR 



NOTf 

BV USING THE FAREHELl SETTING THE 

CE WILL 8E AiLE TO START UP THIS PROG 
AGAIN MITHaUf FIRST HAVING TO READ IN 
THF AUX 8-8 P?.OG DECK. THIS PROGRAM 
SHOULD BE THE LAST AUX PROGRAM LOADED 
UPON FINISHING A SERVICE CALL, IN 
ORDER THAT IT Hit LATER ON BE 
REACT IWATEO IF THE 1442 NEED SERVICE 



FOR AOOITIONAL INFORMATION ABOUT PROG. OPERATION 
REFER TO THE PROGRAM DESCRIPTION MRITE-UP- 

i»»»»»»»»»»»«» ••••♦••*••••••••••••♦••**•*•**•••*••• 

AUX PROG ENTRY POINTS 

1ST PASS ENTRV 
NOX DUTAB 

ALL BUT 1ST PASS ENTRY POINT 

TUR MDX CONT ^^^^». 

,»»»••»»»•••••♦•»••••••••••••••♦••••••••••*•♦•♦••• 

READ TABLE FOR PACKED DATA WHICH 
• CONTAINS AN INITAL PUNCH PATTERN 



KEEP BSS E 
RETAB DC /C080 



IF NEW DATA HAS BEEN 



PAkT m, 2196447 

pAse I 



■AABOOOO 
•AAOOOIO 

BAA00020 

• AAOOOM 
8AA00040 

• AAOOOM 

• AAOOOM 

• AA00070 

BAAOoeao 

•AAOOO«e 
•AA00109 
8AA00I1C 
•AAOOISO 
•AA06130 

• AA9014« 

• AAOOISO 
8AA001M 
SAAOOlfe 
•AA09180 
8AA00190 
•AA00200 
BAA09210 
8AA0O228 
8AA0@2>0 
8AA00240 
8AA092S9 
8AA002*0 
0AA992TO 

• AA09289 
•AA9O290 
•AA00300 
•AAOOSia 
»AA9032a 
SAAOeSSO 
8AA9934d 
8AA003S9 
8AA099M 
8AA09379 
•AA0S3B0 
SAA003@9 
8AA99400 
8AA0e4l0 
gAA00420 
•AA0043a 
8AA@944C* 
8AA00490 
8AA09463 
•AA00479 
8AA094B0 
8AA0(H90 
BAAOOSOe 
8AA00S10 
8AA00S20 
•AA00990 
•AA00S40 
SAA0OS50 
8AA00S*n 
•AAOO970 
•AAOOSBO 
SAA00590 

• AA00400 
8AA09610 
•AA00420 
SAA0O*M 
•AA99440 
8AA004SO 
eAA094M 
eAA90*70 



o 



IBN MAINTENANCE DIAGNOSTIC PROGRAM FOR THE l«00 SVSTfM 
AUX 1442 PACKED READ CXERCISfR 



9939 
903A 
003B 
003C 
0030 
003E 
003F 
0040 
0041 
Q042 
0043 
0044 
0049 

0046 

0047 

0048 

0049 
004A 
004B 



FOEO 
FCF* 
FFFE 
0301 
9F07 
3FIP 
FF7F 

coao 

FOEO 
FCF8 
FFFE 
9301 
9Fg7 
3F1F 
FF7F 
C9B9 
FOEO 
FCFB 
FFFE 



DC 


/FOEO 


READ IN ir MILL 1 


OC 


/FCF^ 


IN THIS TABLE IN 


OC 


/FFFE 


PACKED FORM. 


OC 


/0301 




DC 


/0F07 




DC 


/3FIF 




DC 


/FF7F 




OC 


/C080 




DC 


/FOEO 




DC 


/FCF« 




OC 


/FFFE 




DC 


/090t 




OC 


/0F07 




OC 


/3F1F 




DC 


/FF7F 




DC 


/coao 




OC 


/FOEO 




OC 


/FCF^ 




OC 


/FFFE 





THE INFO IN THS TABLE IS USED PNCE 
ON THE FIRST TIME THRU. AFTER THAT IT 
CONTAINS THE SECOND HALF OF THE CARD 
THAT UAS READ. THIS TABLE HILL BE 
ZERO WHEN PUNCHING. 



304C 


00 


6590700? 


DUTAB 


L0% 


LI 


NNNN 


RESTORE LOCATION NICE 


004E 


00 


60000935 




STX 


LI 


/35 


• IN AUX LOADER 


0950 


00 


65907032 




LOX 


LI 


TTTT 


PLACE BRANCH 


0052 


OS 


619090904 





STX 


LI 


/04 


• TO RETUR LABEL 


00S4 





619F 




LDK 




19 




OOSS 


00 


CS9000EA 


BUILD 


LO 


LI 


CEOFF 


CET lOCC MORO 


0057 





E806 




OR 




AREA 


• OR IN AREA ANO 


0058 


00 


DS0009EA 




STO 


LI 


CEOFF 


• STORE IN lOCC WORD 


OOSA 





71FE 




MDX 




-2 




005B 





T0F9 




MDX 




BUILD 




OOSC 


00 


4C000037 


AREA 


BSC 


L 


RETUR 




005E 





1000 


OC 




/1 000 


1ST 1442 AREA COOE 
















• CHANGE THIS VALUE 
















• FOR A 1442 ON ANOTH 
















• AREA COOE. 



009F 



0074 



9019 



0026 



BSS 



21 



REST OF READ AREA 



DATE 
EC NO. 



2SFEB»* 
419129 



PROG ID 
PACE 



oa^A^o 
1 



009C 00 69000813 
009E 00 60009004 



09A0 0*49 



OOAI 00 66009990 



DATE 2SFEa66 
EC NO. 419120 



• 

• PUNCH TABLE FOR PACKED DATA 

PUTAB BSS 40 

»#»••«••••••••••*••*••••♦•••»•••••••••*•***•**••••* 

» EXIT POINTS TO AUX L0A9ER 

• TERMINATE EXIT POINT 

NOTRO LOX LI HMMN 

STX LI /04 

• FAREMELL EXIT POINT 

FAREM XIO CEOFF 
• 

• NORMAL EXIT POINT 
«> 

SAVE2 LOX L2 



PART NO. 2196447 
PACE 1* 



aAA006ao 

aAA00*99 
aAAg9700 
aAA99710 
aAA99720 
aAA00730 
aAA00740 
BAAOOTBO 
8AA99760 
8AA99779 
eAA907«0 
aAA99?90 
8AA00890 
•AAOg^lO 
•AA00820 
•AAOOBSO 
•AA09^49 
8AA09899 
•AA00^60 
•AA00^79 
•AA99SB0 
•AA00^90 
8AA99999 
8AA00910 
8AA00929 
eAA90930 
eAA00940 
8AA00990 
BAA00960 
•AA00970 
•AA009aO 
BAA00990 
8 A AO 1900 
•AAOIOIO 
•AA9ig20 
8AA01930 
eAA91940 
8AA01090 
•AA91969 
8AAC1970 
SAAOIOag 
8AA01090 
8AA0I100 
•AAOIliO 
8AA01I20 
S«A0ti39 
8AA91149 
8AA011Sa 
8AA91I69 
8AA911T0 
8AA91iaO 
8AAQI190 
BAAOIIOO 
8AA01210 
8AA01220 
aAA91230 
aAA91240 
aAA01290 
8AA01260 
•AA01270 
•AAOI2aO 
8AA01299 
SAA9130D 
SAA91310 
8AA91320 
•AA01330 
•AA01340 
•AA01390 



PROG 10 
PACE 



ORAA-0 
lA 



ISM MINTENANCe DIAGNOSTIC PROCRAH F0« THE ISOO SySICM 
AUX U42 PACKED READ EXEftCISEft 



0OA3 00 4C00000D 



OOAS 





0»«& 


00A6 





6AFb 


90AT 





0846 


OOAg 





0S3F 


00A9 





E09E 


OOAA 


00 


^CiaOOAO 


OOAC 





F03B 


00*0 


00 


4C18009C 



OOAF F03A 

ooBO 00 M:iaooAi 



00B2 E03B 
90B3 DOOl 
0OB4 00 65000000 
00B6 00 40B000FA 



OOBB 0S39 

00B9 C036 

OOBA DOOl 

90BB TOES 



OOBC TOOT 



OOBD 6114 
OOBE C1T3 
eOBF F13T 
OOCO 00 4C2000C8 
00C2 TIFF 
00C3 TOFA 



00C4 0833 

oocs coia 

00C6 OOFS 

OOCT T00« 



OOCS 
0OC9 
OOCA 
OOCB 
OOCC 



6128 
lOAO 
094 A 
TIFE 
TOFO 



30C0 00 6SOO0OST 
OOCF 4009 



BSC I 0000 EXIT TO AUX LOAOEM 



CONT XIO 
STX 

XIO 
XIO 

AND 
BSC 

EOR 
BSC 



CEON 
2 SAVE2«I 

OSN 
SENBt 
SENBI 
FAREW,*- 

SENBI 

NOTROi*- 



SENSE OSM 

SENSE CE SWITCHES 

BLOCK OUT PROGRAM SEL SM 

SR FAREWELL SETTING 



BR TERMINATE PROGRAM 



EOR 
BSC 



CEOFF 
SAVEZt*- 



„^v - .-.^^.- BR CE SERVICE STOP 

»•♦»»»•••»*•♦♦•♦♦»»•••••••••*•••♦••**•••*••••••***• 

• SELECT CESIREO ROUTINE 

AND DSM 

STO CO»l 

60 LOX LI 

SSC II TASPU 

• READ CARDS IN PACKED NODE 

READ! XIO REAOA READ PACKED NODE 
LD STACK 
STO PURE! 

•••»•••••••••••♦•••••••♦••♦••••♦••••••••••♦••••*•• 

READ COMPARE ROUTINE 

URE2 MDX ROSA SR OR NO OP IMST. 

COMPARE 1ST 20 WORDS JUST READ 

• AGAINST 20 WORDS STORED IN RETAS 



BR WORDS 00 NOT COMPARE 



LOX 1 20 

CTCOP LD I PUTAB-l 

EOR 1 RETAS-I 

BSC L NONCPtZ 

MOX 1 -1 

MDX CTCOP ^^^, 
»•»••»••••••»•♦••••••♦♦•••••♦•••♦♦••••••••♦♦•♦••••• 

• READ CARD FOR READ COMPARE ROUTINE 

ROSA XIO REED READ PACKED MODE 

LD IT PLACE NO OP 
SOS STO PURE! 

MOX SAVE2 ^.^^<. 

»••»••»♦»•••••••••••♦••••••••••••••••♦••••••*•••••• 

TABLES DID NOT COMPARE 
• CLEAR DUTAS TABLE 



NONCP LOX 

$LT 

STOL STO 

MDX 
MOX 

LOX LI PUTAS«1« 
SSI CONVT 



1 40 

32 
1 DUTAS-2 
I -2 

STOL 

SET UP PUNCH TABLE 

CALL TO SET UP TABLE TO 



PART NO. 2t«64«7 
PACE i 



SAA01S60 
BAAOISTS 
BAAOISSS 
8AA01990 
8AA01400 
SAA01410 
BAA01420 
8AA01430 
8AA0I440 
BAA014S0 
SAA01460 
aAA01470 
8AA01480 
aAA014«0 

a A AO ISOO 

BAAOISIO 
8AA01S20 
SAA019S0 

8AA01940 
BAAOISSO 
BAA01S60 
BAA019T0 
BAAOISSO 
SAA0I590 
SAA01600 
SAA016IO 
SAA01620 
SAA01630 
SAA0U40 
BAAOISSO 
BAAOISSO 
SAAOISTO 
BAAOISSO 
BAAOISSO 
SAAOITOO 
SAA0I7I0 
SAA01720 
SAA01T90 
SAA01740 
BAAOITSO 
SAAOITSO 
SAA01T70 
8AA017S0 
SAA0I790 
SAAOISOO 
BAAOISIO 
aAA01S20 
BAAOISSO 
SAA01S40 
BAAOISSO 
BAAOISSO 
BAAOISTO 
BAAOISSO 
BAAOISSO 
SAA0I900 
SAA0I910 
SAA0IS20 
SAA01930 
SAA0t«40 
SAA0I9S0 
BAAOISSO 
SAA0I970 
BAAOISSO 
BAAOISSO 
SAA02000 
SAA020I0 
BAA02020 
SAA020M 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE ISOO SYSTEM 
AUX 1442 PACKED READ EXERCISER 



0000 OS IF 

OODl 0824 

0002 COlO 

0003 T0F2 



00D4 00 65000048 
0006 4002 
OODT 081C 
0008 70C8 



00D9 
OOOA 
OOOB 
OODC 
0000 
OODE 
OODF 
OOEO 
OOEl 
00E2 
00E3 
00E4 
a0E6 



DOE a 
00E8 
00E9 
OOEA 
OOEB 
OOEC 
OOEO 
OOEt 
OOEF 
OOFO 
OOF I 
OOF 2 
OOFS 
00F4 
OOFS 
00F6 
OOF 7 
00F8 
00F9 



0000 

6228 

lOAO 

tlOO 

1888 

1008 

1800 

OAT 2 

TIFF 

T2FE 

TOFT 

00 T408009B 

00 4C800009 



, PCH 2ND HALF OF THE CARD 

XIO STACK SELECT STACKER 

XIO PUCK 

LD STACK 

MDX SOS 

• PUNCH TEST DECK 

PUC02 LOX LI REYAB«I9 

SSI CONVT CALL TO SET UP TABLE 
XIO PUNCH PUNCH CARDS 
MUX SAVE2 

»»»»»••••••«•♦••••••*••••••••**••*••*•••*•*•*•••••• 

• CHAKCE CARD READ TO PUNCH FORMAT 
» « EXPAND ISI 20 aORDS TO 40 WORDS 

CONVT DC 

LDX 2 
CONTR SLT 

LD I 

SR7 
IT SLA 

RTE 

STO 2 

MDX 1 

MOX 2 

MDX 

MDX L 

BSC I 



• 





40 

M 


s 

a 

16 

PUTAS-2 

-I 

-2 

CONTR 

PUTAB«39(S 

CONVT 

»•♦•••»♦•♦*•••••♦•♦••••••••••••• 

CONSTANTS AND/OR lOCC WORDS 



SET PUNCH TERMINATOR 



0000 
OOFF 
0T60 
OOFO 
0000 
0000 
0001 
0003 
OTOl 
7007 
04S0 
0038 
0601 
0074 
OSOO 
004C 
0500 
0074 
0601 



DSM 



BSS 
SENBI OC 

DC 
CEOFF DC 

DC 
CEWt OC 

DC 

OC 

DC 
STACK MDX 

DC 
REAOA OC 

OC 
PUNCH OC 

DC 
PUCH OC 

DC 
REED DC 

OC 





/OOFF 

/0760 

/OOFO 

/OOOO 



/ODD I 

/0003 

/0701 

RQSA-PUREZ 

/0480 

RETAB 

/0601 

PUTAB 

/OSOO 

OUTAB 

/OSOO 

PUTAB 

/0601 



*•••••••••••*••••*•*•••• 



TERMINATOR CONST 
SENSE CE SWITCHES 
CONSTANT 
CE OFF lOCC 

CE ON lOCC 

SENSE DSM lOCC 
-I CONSTANT ONLV 
STACKER SELECT lOCC 

READ PACKED lOCC 

PUNCH lOCC 

PUNCH lOCC 

READ PACKED lOCC 



OOFA OOBC 

OOFB OOBB 

OOFC 0004 

OOFO OOAO 

0000 
7007 
0813 
7032 



TASPU DC 
DC 
DC 
OC 



ROUTINE SELECTED XFER VECTORS 
• TABLE INVERTED 



PUREZ 
READ2 
PUCOZ 
FAREW 



RO PCH CONP, SEL ERR 
READ CARDS IN 8-B MODE 
PUNCH CARDS IN 8-8 FORMAT 
FAREWELL SETTING 



• 
QOOQ 



wwww 

TTTT 



EQU 
EOU 
EO'I 
EOU 



/O GO TO LOADER AT /D 

/T0D7 FOR CARD LOADER AT /3S 

/0«13 SET IN LOADER AT /04 

/7000«-RETUR-/4-4 THIS IS EQUAL TO 



PART NO. 2196447 
PAGE 2A 



BAA02040 
aAA020SO 
aAA02060 
SAA02070 

eAA02oao 

aAA02090 

8AA02100 

8AA02II0 

8AA02120 

aAA02130 

aAA02l40 

aAA02190 

BAAOZISO 

8AA02I70 

SAA02IS0 

BAA02I90 

8AA02200 

aAA022IO 

8AA02220 

8AA02230 

SAA02240 

SAA022S0 

8AA02260 

8AA02270 

SAA022S0 

SAA02290 

8AA02300 

aAA023IO 

BAA02320 

BAA023S0 

aAA02340 

8AA02SS0 

8AA023S0 

8AA02370 

8AA023S0 

SAA02390 

8AA02400 

8AA024I0 

8AA02420 

8AA02430 

8AA02440 

SAA024S0 

aAA024«0 

BAA02470 

SAA024S0 

8AA02490 

SAA02900 

BAA02SI0 

8AA02S20 

8AA02S30 

8AA02S40 

8AA025S0 

eAA02S60 

BAA02S70 

BAA025S0 

SAA02S90 

SAAr2600 

SAA02610 

SAA02620 

8AA026S0 

8AA02640 

SAA026S0 

BAA02660 

SAA02670 

BAA02680 

aAA02690 

SAA02700 

SAA027I0 



DATE 
EC NO. 



2SFES6S 

61SI20 



PROG 10 
PACE 



es*A-o 

2 



DATE 
EC NO. 



2SFES6S 

41SI20 



PROG 10 
PACE 



MAA-0 
2A 



) () O OOOO O O O O O O O O O O O O O O O O O O O O O O O O O O 



p 

L 



o O O O O O O C O O C O O O o o o o o o o o o c o o o o o o o c 



I»M MAINTENANCE DIAGNOSTIC PROCKAN FM THE MOO SVSTfN 
AUX t«42 PACKED KEAO EXERCISEN 



PART m. 2I«64«7 
PA6E > 



•~1 

i 'l 
n 



OOFE 



OOFD 



• THE iRANCH FROM THE LOADER tAAOZTZO 

• TO RETUR IN THIS PROGRAM. tAAOZTSO 

»««»«««•••«•••••••»••»••••••••••*•••••••••**••*•**• SAAOST^O 

END *-l END CARD NEVER USED SAAOZTSO 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE ItOO SlfSTEH 
AU« 1442 PACKED READ EXERCISER 

CROSS REFERENCE IISTING 



PART NO. 219*«47 
PACE lA 



SVNBOL 


VALUE 


REFERENCES 


AREA 


009 E 


0097 


BUILD 


0099 


0098 


CEOFF 


OOEA 


0999. 0098, OOAO. OOAF 


CEQN 


OOEC 


00A9 


CONT 


00 A9 


0097 


CONTR 


OODB 


OSES 


CONVT 


0009 


OOCF.OOD«.00£6 


CTCOP 


00 BE 


O0C9 


OSM 


OOEE 


O0AT,OOB2 


OUTAB 


004C 


0036. OOCA. OOF* 


FAREH 


OOAO 


00At.30FD 


CO 


00 B4 


0093 


IT 


OOOE 


90C9 


KEEP 


00 IB 




NNNN 


TOOT 


004C 


NONCP 


00C8 


OOCO 


NOTRD 


00 9C 


OOAO 


PUCH 


OOF* 


OODl 


PUCOZ 


0004 


OOFC 


PUNCH 


00F4 


0007 


PUREZ 


09 BC 


O0BA,OOC6,0OF0.O0FA 


PUT AS 


0074 


O0BE«O0CO.00E0.0OE4,O(^49O9Fa 


0000 


0000 


O0A3 


READA 


00F2 


0088 


REA02 


0088 


OOFB 


REEO 


00F8 


O0C4 


RETAB 


0038 


OOBF. 0004. OOF t 


RETUR 


0097 


009C.00FE 


ROSA 


00C4 


OOBC.OOFO 


SAVE2 


OOAt 


OOA*.COBO.OOBB.OOC7.000t 


SENBI 


OOEB 


00A8.O0A9.O0AC 


SOS 


00C6 


0003 


STACK 


00 FO 


OOB9,0000|0002 


STOL 


OOCA 


OOCC 


TABPU 


OOF A 


OOB* 


TTTT 


7012 


0090 


HHMH 


0819 


009C 



DATE 
EC NO. 



28FES** 
419120 



PROS 10 

PA6f 






DATE 
EC NO. 



2BFEM» 
*1»120 



mt06 10 

PACE 



OBAA-O 
SA 



•n 



O O () o o o o o o o o o o o o o o o o o o o O O O O O O O O O O O 



OfO o o o o o o o o o p o o o o o o o o o o o o o o o o o o o o o o 



IBH MAINTtNANCE DIAGNOSTIC PROSRAM FOR IMt 1800 SYSTEM 
*0K U43 EXERCISEK 

TABLE OF CONTEHTS 
PARAGRAPH 

PACE 

1. PURPOSE 

$1 

2. PREREQUISITES 

•! 

2.1 DEVICE AREA CODE 

2-2 CARD INPUT 

2.3 PAPER TAPE INPUT 
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1. PURPOSE 



f% 



jnfSH"''"*"-•""■-'»'^'"""5.^.^:^H^s^Jr;;;"" 



A. 

B. 
C. 
D. 
E. 
F. 



RIPPLE TEST FOR 13-CHARACTER PRINTERS. 

SfooM "" '°'' "-charactIr pm2t"I: 

RIPPLE TEST FOR 52-CMARACTER PRINTERS 
RIPPLE TEST FOR 63-CHARACTER PR NTMs! 

sJhng'o ]iu I?,: ir«:""*cTErji?N';ERs. 

FLOATING-0 TtST FOR 39-. 52-. AND 63-CHARACTER PRINTERS. 



mMrjLs^rj^^ iot."K:ir2Lro?H\%^^r?r^R*^^F."^^:5-.""" ^°« -«"'"»". 

ARE COMMON TO ALL SIX TESTsI PRESENTED IN THIS PUBLICATION 

2. PREREQUISITES 

2.1 DEVICE AREA CODE 



■: \ o 

;; ; o 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
*UX 14*3 EXERCISER 



PART NO. 2196453 
PAGE lA 



DATE 28FEB66 01MAV66 
EC. NO. 415120 415120A 



PROG 10 
PA5E 



OeAB-* 



2.2 



CARD INPUT 



— CAUTION— 




i 



O 

c 



I 





n 
■-) 
o 
") 

O 

o 
-) 


o 





SEPARATE CARD DECKS 

iA^H'^sssE??'^SEcTc'^i?Si::rsEj^i^A°?srsN's ^ti'.^. "'^ °»^"^ ■>««. 

CARD. UPON RECEIPT. S^?LAl^^2NS*?SE^??F\'Ty''^^?Kl''ArFSLL"^2^! 

*• clRns'?Sn"T,^^%:SroEc°R '".Lir. rT«\""''''^ '"^ "«" ^««Hr 

S?-^^ •- |0^N5tF"? ?Hl'^E.G^I.?5c%R*0$::«1U'rAR^c*?r'' '"^ "«^"^ 
"• Sl^S^ci^^^jboI^^ ?r?i^{- - -- - -S OF^THE 

1. 39-CHARACTER RIPPLE TEST. 

2. 52-CHARACTER RIPPLE TEST. 

3. 63-CHARACTER RIPPLE TEST. 

*. 13-CHARACTER FLOATING-O TEST. 

5. 39-. 42-. AND 63-CHARACTER FLOATING-O TEST. 

iEF%SE"Ar:r^ji^.i2*§ic"K'c^is TiL's^i: ^^ -""•^^ "* •- """^^^ 

2.3 PAPER TAPE INPUT 



3. USE PROCEDURES 
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3.1 CARD INPUT LOADING PROCEDURE 



A. 

B. 

C. 
D. 



NOTE 
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3.2 



3.3 



ROUTINE 



NORMAL 
RIPTtE 
PATTERN 



REVERSE 

RIPPLE 

PATTERN 



C. DEPRESS CE LEVEL INTERRUPT PUSHBUTTON ION CF PANELI TO LOAD THE 
PROGRAM. IIF THfc HOPPER OF TNE 1442 DOES NOT CO EMPTY THE CHECK- 
SUM ftUUTINE IN THE AUX OIAGNUSTIC LOADF.R MOST LIKELY REJECTED 
THt PKOGRAH. CHECK THE CARDS FOR PROPER SEQUENCE AND RETURN TO 
STEP A AND TRY AGAINI. 

H. CO 10 SECTION 3.3 

PAPER TAPE INPUT LOADING PROCEDURE 

A. BE SURE THAT THE 10S4 TAPE READER IS AVAILABLE AND THAT THERE IS 
NO TAPE IN THE READER. 

B. ON THE CE PANEL SET THE INTERRUPT SWITCH TO AUX INTERRUPT AND ALL 
THE CE SWITCHES TO THEIR ON POSITION (UPI. 

C. DEPRESS CE INTERRUPT PUSHBUTTON TWO TIMES TO ASSURE THAT THE 10S4 
IS PLACED IN CE MODE. 

D. PLACE THE FIRST TAPE CHARACTLR OF THE PROGRAM DIRECTLY ABOVE THE 
SENSE PINS IN THE 1054 READER. (THE CHECK-SUM ROUTINE OF THE AUX 
DIAGNOSTIC LOADER HILL REJECT THE PROGRAM IF THE AUX TAPE IS 
LOADED INCORRECTLYI. 

E. SELECT DESIRED ROUTINE FROM TABLE 1. 

F. DEPRESS CE LEVEL INTERRUPT TO LOAD THE PROGRAM. TAPE ACTION 
SHUULU START AND CONTINUE UNTIL THE ENTIRE AUX PROGRAM HAS BEEN 
READ. WHEN THE READER STOPS, THE FIRST TAPF FEED HOLE CHARACTER 
FOLLOWING THE AUX PROGRAM DATA SHOULD BE LOCATED DIRECTLY ABOVE 
THE 1054 SENSE PINS FOR A CORRECTLY STORED PROGRAM. IF THE TAPE 
DID NOT STOP AT SAID LOCATION. RETURN TO STEP A TO RELOAD PROG. 

TYPICAL PROGRAM OPERATING PROCEDURE 

A. THE ROUTINE SELECTED WILL AUTOMATICALLY START AFTER THE 

PROGRAM HAS BEEN ENTERED INTO AUXILIARY STORAGE. SUBSEQUENT 
ROUTINES MAY BE SELECTED AT ANY TIME USING THE BIT SWITCH 
SETTINGS LISTED IN TABLE 1. 

TABLE 1. CE PROGRAM SWITCH SET1 ING 



BIT Switches 

8 9 10 11 12 13 14 15 

0000000 







FUNCTION 



THIS SWITCH SETTING SELECTS A ROUTINE THAT 
TRMtSFERS ONE LINE OF ALL POSSIBLE 
CHARACTERS FROM A PRELOADED DATA TABLE TO 
THE 144) PRINTER, PRINTS ONE LINE OF ALL 
POSSIBLE CHARACTERS, AND CYCLES THE DATA 
TABLE ON CHARACTIR TO THE RIGHT. THE RESULT 
IS A RIPPLE-RIGHT PflNTUUT (PARAGRAPH 41 
THAT CONTINUES UNTIL ANOTHER ROUTINE IS 
SELECTED. 

THIS SWITCH SETTING SELECTS A ROUTINE THAT 
OPERATES SIMILARLY TO THE NORMAL-RIPPLE- 
PATTERN ROUTINE EXCEPT THE DATA TABLE IS 
CYCLED TO THE LEFT. THE RESULT IS A RIPPLE- 
LEFT PRINTOUT (PARAGRAPH 4) THAT CONTINUES 
UNTIL ANOTHER ROUTINE IS SELECTED. 



SELECT 
CHARACTER 
TO PRINT 



CCCCCCIO THIS SWITCH SETTING SELECTS A ROUTINE 

WHICH OBTAINS A OtSIXED CHARACTER FOR 

RC-PETIIIVE PRINTING FROM CE PROGRAM 

SWITCHES 8 THRU 13. THE STANDARD BCD 

. . . . . . CHARACTER CODE IS USED AND THE CE PROGRAM 

SWITCHES ARE DEFINED AS SHOWN BELOW. THIS 

WILL DESTORY ALL OTHtR PRINT ROUTINES. 

1 

• • • • •••••••••••2 

•••••••••••••••••^ 

• • •••••••••••••••••8 

. A ZONE 

B ZONE 



LOCK ON LAST 
LINE PRINTED 



CE SERVICE 
STOP 



PROGRAM 
TERMINATOR 



•• CAUTION •• 



I 1 THIS SWITCH SETTING SELECTS A ROUTINE THAT 
INHIBITS THE CYCLIC OPERATION OF THE 
PRELOADED DATA TABLE AND CONTINUOUSLY 

REPEATES THE LAST LINE THAT WAS PRINTED 
BEFORE THE ROUTINE WAS SELECTED. THIS 
ROUTINE CONTINUES UNTIL A NEW ROUTINE IS 
SELECTED. 

1 1 THIS SWITCH SETTING CAUSES THE 144J PROGRAM 
TO STOP OUT DOES NOT TERMINATE THE TEST 
PROGRAM. THIS ftOUTINF ALLOWS MECHANICAL 
ADJUSTMENTS TO BE MADE TO THE 1443. TO 
RESTART THE PRINTER, SELECT A DESIRED TEST 
ROUTINE AND UEPRFSS THE CE LEVLL INTERRUPT 
PUSHBUTTON. 

1 1 THIS SWITCH SETTING SELECTS A ROUTINE THAT 
TERMINATES THE 1443 TEST PROGRAM AND 
RELEASES THE 1443 TO' THE CUSTOMER. (ALL AUX 
PROGRAMS USE THE SAME. TERMINATOR SWITCH 
SETTING. I BEFORE SELECTING THIS SWITCH 
OPTION THE Re*OV LAMP ON THE 1443 MUST BE 
ON TO AVOID THE POSSIBILITY THAT THE 
CUSTOMERS PROGRAM WILL RECEIVE A FALSE 
INTERRUPT FROM THE 1443. 



FOLLOW THE TERMINATING PROCEDURE 
IN SECTION 3.S. 



3.4 CE SERVICE STOP 

THIS SWITCH SETTING WILL NOT TERMINATE THE PP.OGRAH BUT IT WILL 
CAUSE THE DEVICE TO STOP AND STAY IN CE MODE. IT IS RECOMMENDED TO 
USE THIS SETTING WHEN ADJUSTING THIS OEVICC. TO START THE ROUTINE, 
SELECT THE CE PROGRAM SNITCH SETTINGS AND DEPRESS CE INTERRUPT. 

3.5 TERMINATING PROCEDURE 

TO TERMINATF THE PROGRAM AND RETURN THE DEVICE TO THE CUSTOMER- 

A. SET THE CE PROGRAM SNITCHES TO 00001111 -CE SERVICE STOP. 
(THE ONLY REASON FOR USING THIS SETTING IS TO STOP ANY DEVICE 
ACTION WHICH MAY CAUSE AN tNTERRUPTI. 

B. MAKE THE 1443 READY IF IT IS NOT ALREADY IN THIS STATUS. 
(THIS IS TO AVOID THE POSSIOILITY THAT THE CUSTOMER WILL 
RECEIVE A FALSE INTERRUPT FROM THE 14431. 
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III IcLcL f""**^ SWITCHES TO UlllUl -TERMINATOR SETTING. 
AND DEPRESS THE CE INTERRUPT tEVEL PUSHbUTTON ONCE AND ONLY 
ONCE. (A SECOND OEPRtSSIQN OF THE CE INT. PUSHBUTTON HILL 
RESULT IN THE AUX DIAGNOSTIC LOADER TRYING TO LOAD A NEM 
PROGRAM IF THE READER IS REAOVI. 

NOTE 

TO OFFSET THE POSSIBILITY THAT THE INPUT DEVICE MIGHT BE 
MALFUNCTIONING THE NEXT TIME THE 1800 SYSTEM NEEDS SERVICING 
THE FOLLOWING PROGRAM SHOULO BE LOADED INTO AUX CORE AT THE 
CONCLUSION OF EACH SERVICE CALL - 

A. CARD INPUT 

LOAD THE AUX 1442 PACKED READ tXfcRCISE PROGRAM IPIO OBAAI 
AFTER ASSURING THE PROGRAM IS BY PUNCHING CARDS, CE 
SMITCH SETTING OOOBOOOl, SET 1.4 THE FAREWELL OPTION, 
Cfc SMITCH SETTING 00000000 AND LEAVE THE SWITCHES AT 
THIS SETTING. TO ENSURE THE GREATEST PROTECTION TO THE 
CUSTOMER. DEPRESS CE INTERRUPT. c^-'ioi lu mC 

B. TAPE INPUT 

LOAD THE AUX 1044/55 EXERCISE" PROGRAM |P|D 08A8I. 
AFTtR ASSURING THE PROGRAM IS IN BY PUNCHING TAPE, CE 
SWITCH SETTINGS 00000001, SET IN THE FAREWELL OPTION, 
CE SWITCH SETTING 00000000 AND LEAVE THE SWITCHES AT THIS 
SETTING TO ENSURE THE ORFAIEST PPOTECTION TO THE 
CUSTOMER. DEPRESS IB INTERRUPT. 



PRINTOUTS 



MPt^Sn fc^yf c"^ "OVIDED WITH THIS PROGRAM DESCRIPTION. IF PRINTOUTS ARC 
NEEDED IS IT SOGGESTtO THAT ACTUAL MACHINE COPIES ARE SAVED UPON InItiai 
SYSTfcM CHECK-UUT. THE CHARACTER PATTERN MAY ALSO BE DEIERMINES^gi^jE 
READILY. BY CONSULTING THE PROGRAM LISTING OF THE PARTICULAR 1443 uIt. 

5. COMMENTS 

A PROGRAM MUST BE IN MAIN-CORE STORAGE AND MUST BE RUNNING OR READY 
TO START BEFORE A 1443 TEST PROGRAM C«N BE lOAOEO. ASSUMING THAT THE AUX 
DIAGNOSTIC LOADER IS IN AUXILIARY STORAGE. THtRfclotR IS READY IorIaS 
AND A PARTICULAR TEST ROUTINE HAS BEEN SELECTED. OEPRFSSINr?HFCELFSFL 
INTERRUPT PUSHBUTTON CAUSES THE TEST PROGRAM TO BE STORED AND STARTED tpTtR 
STARTING, THE PROGRAM SETS THE 1443 TO THE CE MODE AND SENSES THE CE PRaM^M 
SWITCHeS TO DETERMINE THE ROUTINE THAT MAS 8EEN SFLFCTFD. ISEf TAUlI 1 ? !f 
A PROGRAM TERMINATOR mUllIII IS SENSED. A TRANSFER ADDRESS I^JhI iAadF. 

TH?''?^:,'^:'?'"'*''' '° •" 0«'G«NAL CONTENTS. IN A0DU?0n"thF« MODE 5f 
THE I44i PRINTER IS TURNED OFF. THE DEVICE STATUS WORD JOSH OF THE iLl I ^ 
CLEARED. AND CONTROL IS RETURNED TO THE CUSIOHER'S MaIn-LINE PROGRAM tp i 
PROGRAM TERMINATOR IS NOT SENSED, THE PROGRAM SlNSES FOR A CE SERvtcE llOP 
RUUTINt. IF CE SERVICE STOP «000011ll» |S SELFCTFt). THE DSW IS CLEAREf. ISn 
WA^rnr Ip.^r'ir '''■'' '^ ^"^ CUSTOMER. S mIiNLINE PROGrIm! ^F CE SERvtcE STOP 
HAS NOT SELECIFO. THF DSW IS SENSED AND CHECKED TO DETERMINE IF A TR AN SFER- 

OCCURR D ir^Nn^riT^JS::^^"!'"^"- •' * "*NSFER-C0MPLETr7i?ERRCp? iJs NOT 
CrNIRfU I^lir, D^IfL^n*^ * PRINT-COMPLETE INTERRUPT HAS OCCURRED. 
CCNIROL IS THEt; RETURNED TO THE CUSTOMER'S MAIN-LINE PROGRAM UMFM TMC 
TRANSFER-COMPLETE INTERRUPT IS RECEIVED. THE PROGRAM IS SET UP Pru I . .t« 

RSi?I;^rDii;u.UV"?r:^ "^""'*' *''° THE'pJoGRrp«n*CEEDs"o "Se'Sf He"" 
on.I .f^ DISCUSSED IN PARAGRAPHS ',.1 THROUGH 5.4. UPON ENTERING EACH 
^rVni^.:, CERTAIN CONTROLS ARE INSTITUTED TO CONTROL A DATA TABLE THAT IS 
AUTOMATICALLY SET UP WHEN THE PROGRAM IS LOAOEO. THESE CONTROLS ARE SI lOUF 
TO EACH ROUTINE. AFTER EACH ROUTINE IS COMPLETED. THE PROGRAM DEIERmVnF^ 

DATE 28FEB66 0IMAY66 „„„, . 

EC. NO. 415120 4I5120A '^'"^ '" 



5.1 NORMAL-RIPPLE-PATTERN ROUTINE 

THE NORMAL-RIPPLf-PATTERN ROUTINE TRANSFERS ONE LINE OF ALL POSSIBLE 
CHARACTERS FROM A PRELOADED DATA TABLE TO THE 1443 PRINTER, PRINTS 
?l!!-^j!^^ °'^ ^*-^ POSSIBLE CHARACTERS. AI4D CYCLES THE DATA TABLE ONE 
OlARACTER TO THE RIGHT. THE RESULT IS A RIPPLE-RIGHT PRINTOUT THAT 
CONTINUES UNTIL ANOTHER ROUTINE IS SELECTED. 

5.2 REVERSE-RIPPLE-PATTERN ROUTINE 

IVEo!'!*'^!?!"'"'''*'-^"''*""'* ROUTINE OPERATES SIMILARLY TO THE NORMAL- 
RIPPLE-PATTERN ROUTINE IPARAGRAPH 5.1) EXCEPT THE DATA TABLE JT 
CYCLED TO THE LEFT. THE RESULT IS A RIPPLE-LEFT PRINTOUT THAT 
CONTINUES UNTIL ANOTHER ROUTINE IS SELECTED. 

5.3 SELECT-CHARACTER-TO-PRINT ROUTINE 

I!?!,!^'-"^"^"*'^*'''^""'""'**"'^ ROUTINE SENSES THE SETTINGS OF THE 
FIRST SIX CE PROGRAM SWITCHES TO DETERMINE THE CHARACTER THAT HAS 
?!Tn !f^^?I^?.^°" PRINTING. THE SELECTED CHARACTER IS THEN LOADED 
Jl^I^^^i^ tOCATIONS OF THE PRELOADED DATA TABLE (PARAGRAPH 5.H, AND 
THE DATA IS SUHSEOUENTLY TRANSFERRED TO THE 1443 PRINTER. AFTER 
rvrl'l^ni.P^LI:'!^^ °'' ^"^ SfLECTED CHARACTER IS PRINTED EACH PRINTING 
o'Pi!:/?'"""^ CONTINUES UNTIL A CE SERVICE STOP OR ANOTHER 
ROUTINE IS SELECTED. THF PRFLOADEO DAI A TABLE IS DESTROYED BY THE 
SELtCT-CHARACTtR-TO-PRINT ROUTINE. 

5.4 LOCK-ON-LAST-LI NE-PRINTEO ROUTINE 

THE LOCK-ON-LAST-LINE-PRINTEO ROUTINE INHIBITS THE CYCLIC OPERATION 
OF THE PRELOADED DATA AND CONTINUOUSLY REPEATS THE LAST LINE THAT HAS 

NEi JoStJn"" SELEmoI"' '*' "'■"'^'^- ""'""^'^ CONTINUES UNTIL A 
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FIGURE 1 

13 CHARACTER BAR RIPPLE TEST 



0123*66789 *BCDFFGHIJKLMNOPORSTUV»(XVZ..»0123*56789 ABC0FF6H! JKLMNOPORSTUVWX VZ .. »0 123*56789 AB 
SO 1 23*56789 ABCnFFGHIJKLMNOPQRSTUVWXVZ . . SO 1 23*56789 APCOFFGHIJKLMNOPORSTUVUXYZ. , «0 123*56789 A 
,»01 23*66789 ARCOFFGH UKLVNO^CRSTUVIXYZ .. SO 1 23*56789 ABCOEFGHUKIMNOPORSTUVKX YZ ., SOI 23*56789 
..SOI 23*66789 APCnFFGHlJKL^'NOPORSTUVWX YZ. . SO i 23.56789 .„,..«,„„ 

zl.S0123'.«^6789 APCn-GHlJKLMNOPORSTUVWXVZ.. $0123*66789 AI«CDFFGH fJKLKNOPORSTUVWX YZ .. SOI 23*66789 
YZ..»01234 6e'7f9 APftDCFGHUKL'-NOPORSTUVVXYZ.. SO 123*66780 

XVZ..S01?34'^h78Q At--C-)EFGHIJKLMNOPQRSTUVWXVZ. .♦0123.5678" ,..^, 

*XYZ..S01?3*6f.7«O ABCDeFGHIJKLMN0P0RSTl.VWXYZ..S0123*66789 APCOFFGH IJKLMNOPORSTUVWXYZ. .»01 23*667 
VWXYZ.,»0123«56789 ASCOeFGHlJKLt'NOPORSTUVWXYZ .. SO 1 23*66789 
UVWXYZ..«.0 1?3*6678Q AHCOFFGH IJKL"NOPORSTUVV/X YZ ., SOI 2 3*66789 

TUVWXYZ.. SO I 23466789 AhCDFFGMIJKLMNOPORSTUVWXYZ . .SO 1 23.66789 A8C06FGM IJKLMNOPORSTUVWXYZ. , $01 23. 
STIIVV;XYZ..S0 1?3*'^'-7PO ARCnFFGHIJKL^NnPORSTKVWXYZ., SO 123466789 
RSTUVWXYZ..*0 1?34'-^7«t' AC COFFGHI JKL''NOPQRSTUVlvX YZ . . SO 1 2S46<-7eo 
0RSTUVWXY7..S0 1234S67P9 A'=CnFFGHIJKLMNOP0RSTUVV.X YZ . , SO I ?34f>67PO ABCOFFGHl JKLMNOPORSTUVWX YZ. , $01 

ARCDFFGHIJKLMMOPO<<STI|VV..XYZ.,S0123'.56789 ABCDFFGH IJKLMNOPORSTUVWX YZ. . SO 

APCDEFGHIJKLMNOPORSTIIVWXYZ..S01?346'^7PO ABCOEFGHIJKLMNnPORSTUVWXYZ. .$ 

ABCOtFGMIJKLMNOPORSTUVWXYZ., SOI 23466789 ARCDEFGHIJKLMNriPORSTIJVWXYZ . . 

ARCOFFGMIJKLMNnPORSTUV»XYZ., SO 1234667(^9 ABCDEFGHIJKLMMOPORSTIIVWX YZ . 



ABCDEFGH I JKLMNOPORSTUVWXYZ ..$01 23456789 
M>CDFFGH IJKLMNOPORSTUVWXYZ.. SO 123. 66789 
ABCOFFGHI JKLMN0P0R!;TIIV»'XYZ.,$0123.66789 
ABCOEF GH I JKLM^'OPOPST^.IVWXVZ,, $01 23*5678 
kPCOFFGHI JKLMNOPORSTUVWXYZ.»$012 3.667 
APCDEF 6H I JKLHNOPORSTUVHXYZ..*0 123.56 
APCOFFGH IJKLMNOPORSTUVWXYZ.. SO I 23.5 
VBC06FGM IJKLMNOPORSTUVWXYZ., $01 23. 
ABCDEFGHI JKLMNnP0RSTl)VWXYZ..«0123 
ARCDEFGHl JKLMNnPORSTUywXYi.,S012 



PORSTUVV.'XYZ , .SO 12346^7 -t, 
OPORSTUVKXYZ ,.S01234 66 789 
NOPORSTI'VWXYZ. .S0 1?34 6'>71-9 
*'N0P0RSTUVWXYZ.«$0 12 34S67P9 



LMN0P0I^STUVWXYZ..S0I»3»6678O ABCOEFGMI JKLMNOPQRSTUVWX YZ .. SO 1 2^466789 ABCOEFGHI JKLMNOPORSTUVWXYZ 

FIGURE 2 

39 CHARACTER BAR RIPPLE TEST ' 
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'. 0123456789 ABCOEFGHI JKLMNOPORSTUVWXYZ 
♦0123.56789 ABCOEFGHI JKLMNOPORSTUVWXYZ 
.♦0123*56789 ABCOEFGHI JKLMNOPORSTUVWXYZ 
M«^0 123*56769 ABCOEFGHI JKLMNOPORSTUVWXYZ 



.-•S,t/XS( ) •OM«^0123*66789 ABrOEFGMI JKLMNOPORSTUVWXYZ 
.-•$,t/X»« I'OM.^Ol 23*56789 ABCOEFGHI JKuMNOPORSTUVWXVZ 
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FIGURE 4 
63 CHARACTER BAR RIPPLE TEST 
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FIGURE 6 
39, 52, AND 63 CHARACTER BAR FLOATING ZERO TEST 
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IBM maintenance; diagnostic program for the 1800 SYSTEM 



AUX l't43 EXERCISER 

IJ CHAR BAR RIPPLE EXERCISER 



02BC 



ABS 

ORG /36 

IF THIS PROG IS TO BE USED FOR A MACHINE 
WITH A DIFFERENT AREA CODE, THE LOCATION WHICH 
REFER TO THE LABEL AREA IN SYMBOL TABLE MUST 
BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 
MODIFIED AUX 8-8 OBJECT DECK. SEE AUX CE PROG 
GENERATOR WRITE-UP FOR PROCEDURE. 



»<■*«******««****•****«*««'**»«* 



CE SWITCH SETTINGS 



NORMAL RIPPLE PATTERN 
REVERSE RIPPLE PA1TFRN 
LOCK ON LAST LlfiC PRINTED 

CE SERVICE STOP 
TERMINATE RUU 
SELECT CP'RACTER TO BE 
PRINTED. THE DESIRED CHAR 
IS SELECTED BY MEANS SF 
THE STANDARD BCD CM CODE 
AS SHOWN BELOW 



0036 
3037 



1000 
1000 



* 
* 
* 
« 

♦ H-iB RIPPLE PROGRAM 

♦ * WITH 13 CHAR SET 

♦ * AND 120 OR 144 

♦ * PRINT POSITIONS 

« 

♦ THIS PROG CAN BE LOADED FROM CARDS OR PAPER TAPC 

4> 

* 
* 

* 

* 

* 

* 

* 

* 

4> 
« 

* 

♦ FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 

♦ REFER TO THE PROGRAM DESCRIPTION WRITE-UP. 

* 

♦ AUX PROG ENTRY POINTS 

♦ 1ST PASS ENTRY 

* 

♦ THE NEXT EIGHT WORDS WILL NOT APPEAR IN CORE WHE 

♦ ♦ USING THE AUX PAPER TAPE DIAGNOSTIC LOADER 

* 

NOP NO OPERATION 

NOP NO OPERATION 



XXXXXXOO 
XXXXXXO! 
XXXXXXll 

oDOoiin 
11111111 

CCCCCCIO 

$*$*»* 

$*$*$* 

$»$»$««*»*♦ I 
$*$»{it»it 2 

S*($ttt$t$$ 8 

$**»*****«* A ZONE 
S5$Si$S$t» B ZONE 



EXPLANETARY NOTES 
THE X CHAR MEANS 



DOES NOT HATTER 



* 
NOTE 



UNLESS THE 
BECOMES A - 



OPERATION CODE 

ERM OR Ce SERV STOP 



PRINTING OF A SPECIFIC CHAR 
♦ DESTROYS RIPPLE PATTERN 



PART NO. 
FACE 



8AB0OCO0 
8AB00010 
8AB00020 
8AB00030 
8A300040 
8AB00050 
8AB00060 
SABOOOTO 
8AB00080 
8A800090 
8AB00100 
8AB00110 
8AB00120 
8AB00130 
BABUOi'kO 
BABOOliO 
8AB00160 
8&B00170 
8AB00180 
8A600190 

, o/;F->oo?no 

8AB'"" .'! 

8/ 'I , 

8^- iv.- 

8A .. 

SAt't, 

8A' -'OaLj 

8A8002T0 

8A3a0280 

8AB00290 

8AB00300' 

eAS00310 

8AB00320 

8AB00330 

eAB00340 

eABoo3r.o 

8A300360 
8AB00370 
8AB00380 

• eA300390 
8AB00400 
8AB00410 
8AB00420 
8AB00430 
SABOOt'iO 

*8AB00450 
8AB0046a 
8Aa0O<i70 
8AB004S0 
8AB00490 
6AB00500 
6A800510 
8Ab00520 
8AB00530 
8A300540 
8AB00550 
8AB00560 
8AB00570 
8A800S80 
8AB00590 
8AB00600 
8AB00610 
8AB00620 

i 8AB00630 
8AB00640 
8A800650 
8AS00660 
8AB00S70 
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AJX 1443 EXERCISER 

IJ CHAR BAR RIPPLE EXERCISER 



0038 





1000 


0039 





1000 


003A 





1000 


003B 





1000 


003C 





C025 


003D 





D0F7 


003E 





COID 


003F 





00C4 



0040 





6107 


0&4J 





C158 


.)0*2 





E820 


J a-i '<■ 





DI58 


0044 





71FE 


0045 





70FB 


0046 





0813 


004 7 





08CE 


0048 





EOOD 


0049 





0010 


004A 





FOOB 


0C4B 


00 


4C1 80064 


0040 





COOC 


004E 





F009 


004F 


00 


4C180068 



0051 080A 

0052 00 *C2<i006A 



0054 

0055 



0809 
7013 



0056 




0000 


0056 





OOFF 


0057 





0760 


0058 





030F 


0059 


9 


0000 


005A 





0000 


005B 





0001 


005C 





7041 


0050 





0701 


005E 





00A9 


005F 





0500 


0060 





OOUO 


0061 





0000 


0052 





7007 


0063 





3000 



NOP 

NOP 

NOP 

NOP 

LO 

STO 



NN 
/35 



NO OPER/ rtON 
NO OPERATION 
NO OPERATION 
KD OPERATION 
RESTORE LOC NICE 
♦ IN AUX LOADER 



LD DSW PLACE BRANCH 
STO /04 • TO RETUR LABEl 

* 

ADD AREA CODE TO THE I/O COHMANOS 



* 

* 

LDX 

BUILD LO 
OR 
STO 
KOX 
MOX 

* 

* 

RETUR XIO 
XIO 
AND 
STO 
EOP 
BSC 

LO 

EOR 

BSC 

XIO 
BSC 



1 7 

1 CFOFF 
AREA 

1 CEOFF 

1 -2 
BUILD 



GET IDCC mUD AND 

• OR IN AREA AND 

♦ PLACE BACK 



ALL BUT 1ST PASS ENTRY POINT 



CEON 

SENBI 

SENS I 

CEON 

SfcNBI 

MOTRD,*- 

CEON 

CEOFF 

OSTR.*- 

DSW 
TXFRCt*Z 



SENSE CE SW TO ACCUH 
BLOCK OUT PROG SEL SW 



BR OUT OF PROGRAM 



BR CE SERVICE STOP 

SENSE DEVICE STATUS 
Ba TRANSFER COMP INI 

♦ PRINT INT ROUTINE 

PRCOM XIO 1NI52 1443 INIT WRITE OP 
MDX SAVE2 

CONSTANTS AND/OR lOCC WORDS 



END COMMAND COMPARE 
SENSE CE SWITCHES 

CE OFF WORD 
CHAR WORK LOC 
CE ON WORD 

DSW WORD 

INIT WRITE 



1ST 1443 AREA CODE 

* CHANGE THIS VALUE FOR A 

* DEVICE ON ANOTHER AREA 

******* *4i»»**;««****4i«««*«.»««^«»^«:^«^«^»t**»*» 

EXIT POINTS TO AUX LOADER 
*«***********•*«****»«*** 



• 




CONST/ 




BSS 


E 


SENBI 


DC 


/OOFF 




DC 


/0760 


CEOFF 


DC 


/OOOF 




DC 


/OOOO 


CEON 


DC 


/OOOO 




DC 


/OOOl 


DSW 


DC 


TTTT 




DC 


/0701 


INI52 


DC 


TBL52 




DC 


/0500 


SER 


DC 





SAW 


DC 





NN 


DC 


NNNN 


AREA 


DC 


/3000 
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8AB00680 

8A800690 

8AB00700 

8'B00710 

8A800720 

8A500730 

eAa00740 

8AB00750 

8A900760 

8A300770 

eA600780 

8A800790 

8A&00800 

8A800S10 

8AB00820 

eA800830 

SA800840 

eAB00850 

8AB00S&0 

8AB00870 

SAS00S80 

eAS00S90 

SA800900 

8&B00910 

8A800920 

8&900930 

8A800940 

SAS00950 

8.'.B00y60 

8*a00970 

SA300980 

8A30099D 

8A30IOO0 

8*B01010 

8A801020 

8A8O1030 

8AB0I040 

8A801050 

8 ABO 1060 

eAB01070 

SABOlOaO 

eAB01090 

BAeOllOO 

eABOlllO 

«AB01120 

SASOllSO 

•ABO 1140 

8*801150 

8&801160 

e&S0tt70 

SABOllSO 

8A801190 

SAS01200 

eAB01210 

8«.901220 

SABOiasO 

eA601240 

SAB01250 

8A801':60 

8A601270 

8A301280 

8A801290 

8*801300 

8AB01310 

8*801320 

8ASO1330 

SAe01340 

SA&01350 
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AUX l',',^ EXERCISER 

13 CHAR BAR RIPPLE EXERCISER 









* 






TERMINATE EXIT POINT 


006 <. 
0066 
0067 


00 






65000813 

699D 

OBFO 


NOTRD 

• 


LOX 
STX 
XIO 


LI 

1 


wwww 
/o* 

CEOFF 

CE SERVICE EXIT POINT 


3068 





08F3 


GSTR 

* 


XIO 




osw 

NORMAL EXIT POINT 



0069 70A3 



SAVE? HDX OQQQ EXIT TO AUX LOADER 

* 

TRANSFER COHP INT 
. ***************** 



006A 
0C6B 
006C 
0060 
D06f. 
006t- 
0070 
0071 
0072 



3074 00 



1880 

00F4 

COED 

1882 

DOEB 

1010 

1082 

DOOl 

65000000 

40800076 



* 6 

* 

TXFRC SRT 
STO 
LD 
SRT 
STO 
SLA 
SLT 
STO 



13 
SER 
CEON 
2 

CEON 
16 
2 

AH 
LOX LI 
BSC 11 GOT 



TEST FOR PRINT 
♦ INTERRUPT LATER 



0076 0096 

0077 0086 

0078 007A 

0079 0082 



007A CODE 

0078 1008 

007C E8DD 

0070 61B8 

007E 00 050000F2 

0080 7101 

0081 70FC 



0082 COOD 

0083 00 '»C040054 
0085 70E3 



* 
GOTA 



DC 
DC 
DC 
DC 



CAME 

REVER 

REBIT 

GONE 



BR TO SW OPTION 

NORMAL RIPPLE 
REVERSE RIPPLE PATTN 
READ BIT SWITCHES 
LOCK ON LAST LINE PR 



****************************** ****r -,********** 
PRINT SW CHARACTER 



f 

REBIT LD 
SLA 
OR 
LOX 



CEON 
8 

CEON 
I -72 

RPT STO LI TBL52+73 
MDX 1 1 
MDX. RPT 
**************** ***********************^i^^t^^^^ 
* 
* LOCK ON ROUTINE 

GONE ID SER 

BSC L PRCOM.E BR PRINT COMP INT 

MDX SAVE2 
****************************** **************^^ 

* 









* 
* 






REVERSE f 


0086 





61B9 


REVER 


IDX 




-71 


0087 


00 


C50000F1 




LO 


LI 


TBL52+72 


0089 





0007 




STO 




SAW 


008A 





1890 




SRT 




16 


008B 


00 


C50000F2 


LOOP 


LO 


LI 


TBL52+73 


0080 





18C8 




RTE 




e 


008E 


00 


D50000F1 




STO 


LI 


TBL52+72 


0090 





1888 




SRT 




8 


0091 





7101 




MDX 




1 


0092 





70F8 




MOX 




LOOP 


0093 





COCO 




ID 




SAW 


0094 





18C8 




RTE 




8 


0095 


00 


D40000F1 




STO 


L 


TBL52+72 


DATE 




28FEB56 










EC NO. 


415120 
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8 ABO 1360 

8AB01370 

eAB0l380 

8AB01390 

8AB01400 

6AB01410 

8AB01420 

SAB01430 

6AB01440 

8A601450 

8AB01460 

8AB01470 

8AB01480 

8AB0149) 

3AB01500 

8AB01510 

8AB01520 

8AB01530 

8AB01540 

8AB01550 

8AB01560 

6AB01570 

8AB01580 

8A801590 

8AB01600 

8AB01610 

8AB01620 

8AB01630 

6AB01640 

8AB01650 

8A301660 

8AB01670 

8AB01680 

aAB01690 

8AB01700 

8AB0XT10 

8Ae01720 

8AB01730 

8AB01740 

eAB0l750 

8AB01760 

8AB01770 

BABOnOO 

8AB01790 

8AB01800 

SABOiaiO 

8AB01820 

BAB01830 

8AB01840 

8AB01850 

8AB01860 

eAB01873 

8AB01880 

8AB01890 

8AB01900 

8AB01910 

8AB01920 

8AB01930 

8A801940 

8AB01950 

8AB01960 

8AB01970 

eAB01980 

8AB01990 

BAB02000 

8AB02010 

8AB02020 

BAB02U30 



PROG 
PAGE 



08AB~0 
2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1443 EXERCISER 

13 CHAR BAR RIPPLE EXERCISER 



0097 70EA 



MDX GONE 

************** t ****** **********ti:^i^^tf^tf^:^^^^:^^ 

* 







• 
* 


FORWARD 


ROUTINE 


0098 


6147 


CAME LOX 


1 71 




0099 00 


C50000AA 


LO 


LI T3L52+1 




009B 


00C5 


STO 


SAW 




009C 


1890 


SRT 


16 




009D 00 


C5000CA9 


SOOP LD 


LI T6L52 




C09F o 


1808 


RTE 


24 




C0«.0 00 


D50000AA 


STO 


LI TBL52+1 




00A2 


1088 


SLT 


8 




00A3 


71FF 


MDX 


1 -1 




00ii4 


70F8 


HDX 


SOOP 




ooA'; 


C033 


LO 


SAW 




{J '}'.'■ 


1038 


SLT 


8 




00A7 


0002 


STO 


TBL52*1 




00A8 


7009 


HDX 


GONE 








*****************************>, ^^^^^t^^^tf 


00A9 


0048 


TBL52 DC 


72 




OOAA 


202C 


DC 


/202C 


-t * 


OOAB 


330A 


Bt 


/3B0A 


.1 


OOAC 


0908 


DC 


/0908 


9, 8 


OOAD 


0706 


DC 


/0706 


7, 6 


OOAE 


0504 


DC 


/0504 


5, 4 


OOAF 


0302 


DC 


/0302 


3, 2 


OOBO 


0100 


DC 


/OlOO 


1, BLANK 


OOBl 


0000 


DC 


/OOOO 


BLANK, BLANK 


00B2 


202C 


DC 


/202C 


-, ♦ 


00B3 


3B0A 


DC 


/380A 


., 


O0B4 


0938 


DC 


/0908 


9, 8 


00B5 


0706 


DC 


/0706 


7. 6 


0086 


0504 


DC 


/0504 


5, 4 


0OB7 


0302 


DC 


/0302 


3, 2 


OOBB 


0100 


DC 


/OlOO 


1, BLANK 


00B9 


0000 


DC 


/OOOO 


BLANK, BLANK 


OOBA 


202C 


DC 


/202C 


-, * 


DOBS 


3B0A 


DC 


/3B0A 


., 


ODBC 


0908 


DC 


/0908 


9, 8 


OOBD 


0706 


DC 


/0706 


7. 6 


OOBE 


0504 


DC 


/0504 


5, 4 


OOBF 


0302 


DC 


/0302 


3, 2 


OOCO 


0100 


DC 


/OlOO 


I, BLANK 


OOCt 


0000 


DC 


/OOOO 


BLANK, BLANK 


00C2 


202C 


DC 


/202C 


-, * 


00C3 


330A 


DC 


/3B0A 


., 


00C4 


0908 


DC 


/0908 


9, 8 


00C5 


0706 


DC 


/0706 


7. 6 


00C6 


0504 


DC 


/0504 


S, 4 


00C7 


0302 


DC 


/0302 


3. 2 


00C8 


0100 


DC 


/OlOO 


1, BLANK 


00C9 


0000 


DC 


/OOOO 


BLANK, BLANK 


COCA 


202C 


DC 


/202C 


-, * 


OOCB 


3B0A 


DC 


/3B0A 


., 


OOCC 


0908 


DC 


/0908 


9, 8 


OOCO 


0706 


DC 


/0706 


7, 6 


OOCE 


0504 


DC 


/0504 


5, 4 


OOCF 


0302 


DC 


/0302 


3, 2 


OODO 


0100 


DC 


/OlOO 


1. BLANK 


0001 


0000 


DC 


/OOOO 


BLANK, BLANK 


0002 


202C 


DC 


/202C 


-, ♦ 


00D3 


390A 


DC 


/3B0A 


., 


0004 


0908 


DC 


/0908 


9. 8 


00D5 


0706 


DC 


/0706 


7, 6 


0006 


0504 


DC 


/0504 


5, 4 


0007 


0302 


OC 


/0302 


3. 2 


0008 


OlOC 


DC 


/OlOO 


1. BLANK 


DATE 


28FEB66 








EC NO. 


415123 









PART NO. 2196451 
PAGE 2A 



8AB02040 

8AB02050 

8AB020&0 

8^.302070 

8AB02080 

8AB02090 

8AB02100 

8AB02110 

8AB02120 

8AB02130 

8AB02140 

8A302150 

8AB02160 

8AB02170 

8AB02180 

8AB02190 

8AB02203 

8A302210 

8AB02220 

8AB02230 

8AB02240 

8AB02250 

8AB02260 

8AB02270 

8AB02280 

8AB02290 

8AB02300 

8AB023J0 

8AB02320 

8AB02330 

8AB02340 

8AB0235C 

8AB02360 

8AB02370 

8AB02380 

8AB02390 

8AB02400 

8AB02410 

8AB02420 

BAB02430 

8A802440 

8AB02450 

8AB02460 

8AB02470 

8AB024eO 

8AB02490 

8AB02500 

8AB02510 

8AB02520 

eAB02530 

8AB0254a 

8AB02550 

8ABC2560 

8AB02570 

8AB023dO 

8AB02590 

8AB02600 

8AB02610 

8AB02t20 

8AB02630 

8AB02640 

8AB02650 

8A8U26eO 

8AB02670 

SAB0268t> 

8AB02690 

8AB02700 

8AB02710 



PROO 10 
PACE 



08AB-0 
2A 



1 
) 

1 



) 
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IBM hAINTEtt&<lCE OIAGNOSIIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1443 EKiRCISER 

13 CHAR BAR *IPf»LC EXERCISER 



0009 

OODA 

OODB 

OOOC 

OODD 

OOOE 

OODF 

OOEO 

OOEl 

0062 

OOEJ 

0OE4 

00E5 

0OE6 

00E7 

0OE8 

00E9 

OOEA 

OOEB 

OOEC 

OCEO 

OOEE 

OOEF 

OOFO 

OOFl 



0000 
70DT 
0313 
T041 



OOF 2 



0000 
202C 

3B34 
0905 
0T36 

o&o* 

0332 
0100 
0300 
202C 
3SDA 
0938 
0/Ofe 
050* 
0302 
OIDD 
0000 
2D2C 
330* 
090« 
070?. 
0&04 
0302 
019S 
0003 



OOFl 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 

QQQO 
UHHH 
HHWW 
TTTT 

END 



EQU 
EQU 
EQU 
EQU 



/OOOO 
/202C 
/3B0A 
/0908 
/0706 
/0504 
/0302 
/OlOO 
/OOOO 
/202C 
/3B0/ 
/0908 
/0706 
70504 
/0302 
/OlOO 
/OOOO 
/202C 
/3B0A 
/0908 
/0706 
/0504 
/0302 
/OlOO 
/OOOO 



BLANK, BLANK 

-. • 

., 

9, 8 

7, 6 

5, 4 

3f 2 

1, BLANK 

BLANK, BLANK 

-, ► 

.f 

9, 8 

7, 6 

5, 4 

3. 2 

i. BLANK 

BLANK, BLANK 

-, • 



8 

7, 6 
5, 4 
3, 2 

1. BLANK 
BLA-iK, BLANK 



• * 

9, 



/O CO TO LOADER AT /D 

/70U/ FOR CARD LOADER AT /35 

/0813 SET IN LOADER AT /04 

/7000»RETUR-/4-l ^HIS IS EQUAL TO 

THE BRANCH FROM THE LOADER 
TO RETUR IN THIS PROGRAM. 

*-l END CARD NEVER USED 



PART NO. 
PAGE 



8AB02720 
8AB027„0 
8AB02740 
8AB02750 
8AB02760 
8AB02770 
8AB02780 
8AB02790 
8A802800 
8AB02810 
8A802820 
8AB02830 
8AB02840 
8A802850 
8AB02850 
8A802870 
8AB02880 
8A302890 
8AB02900 
8AB02910 
8AB02920 
8AB02930 
8AB02940 
8AB02950 
8AB02960 
8A802970 
8AB02980 
8AB02990 
3Aa03000 
8A803010 
8AB03020 
9AB03030 
8A803040 
8AB03050 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2196451 
PAGE 3A 



AUX 1443 EXERCISER 

13 CHAR BAR RIPPLE EXERCISER 



CROSS REFERENCE LISTING 



SYK80L 


VALUE 


A 


0072 


AREA 


0063 


BUILD 


0041 


CAME 


— 0098 


CEOFF 


0058 


CEON 


005A 


05^ 


005C 


C-QvE 


0082 


GOT A 


0076 


GS'R 


0068 


INJ?^ 


005E 


!•;:;■» 


008B 


K'i 


0062 


N^NN 


70D7 


NOTRD 


0064 


PRCOM 


0054 


C3Q0 


OOOD 


REBIT 


00 7A 


RETUR 


0046 


REVER 


0086 


ROT 


007E 


SAVE2 


0069 


SAW 


0061 


SENBI 


0056 


SER 


0060 


SOOP 


0090 


T8L52 


O0A9 


TTTT 


7041 


TXFRC 


006A 


HUWW 


081:* 



REFERENCES 

0071 

0042 

0045 

0076 

0041,0043.0046,0067 

0046, 0049, 004a,006C,006E,007A, 00 7C 

003E, 0051, 0068 

0079,0C97,00A3 

0074 

004F 

0054 

O092 

003C 

0062 

0048 

0083 

0069 

0078 

00F2 

0077 

OOSl 

0055,0085 

0089, 0C93, 0098,004 5 

0047,OC4d,OC'4A 

0C6S.COe2 

0DA4 

005E, 0076, acaT,008B,C08E, 0095, 0099, OO9D,00A0,00A7 
00 5C 

0052 
0064 



1 
1 

1 
} 



DATE 2aFEB66 

EC NO. <>iSI20 



PROG ID 08A8-0 
PAGE 3 



DATE 
EC NO. 



2BFEB66 
41S120 



PROG ID 
PAGE 



08AB-0 
3A 



o a o 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1443 EXERCISER 

39 CHAR BAR RIPPLE EXERCISER 



PART NO. 2196451 
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:BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1443 eXERCSSER 

39 CHAR BAR R15»PLE EXERCISER 



PART NO. 
PAGE 



2196451 
4A 



02BC 



ABS 

ORG /36 

* 

IF THIS PROG IS TO BE USED FOR A .MACHINE 
WITH A DIFFERENT AREA CODE, THE LOCATION WHICH 
REFER TO THE LABEL AREA IN SYMBOL TABLE MUST 
BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 
MODIFIED :\UX 8-8 OBJECT DECK. SEE AUX CE PROG 
GENERATOR KRITE-UP FOR PROCEDURE, 



* 

* 

« 

♦ 1443 RIPPLE PROGRAM 

♦ * WITH 39 CHAR SET 
» ♦ AND 120 OR 144 

♦ * PRINT POSITIONS 

♦ 

♦ THIS PROG CAN BE LOADED FROM CARDS OR PAPER TAPE 

* 
* 

« 

* 



CE SWITCH SETTINGS 



XXXXXXOO 
XXXXXKOl 
XXXXXXll 
00001111 

iiniui 

CCCCCCIO 

$♦$*»* 
»•»*$* 

»*&*$***»*« 1 
t»l«$$t$it 2 

t*iSiSSSit$ 8 

t**«******* A ZONE 
»$$$$t$$t» a ZONE 



NORMAL RIPPLE PATTERN 
REVERSE RIPPLE PATTERN 
LOCK ON 1 AST LINE PRINTED 

CE SERVICE STOP 
TERMINATE RU' 
SELECT CHARACTER TO BE 
PRINTED. THE DESIRED CHAR 
IS SELECTED BY MEANS OF 
THE STANDARD BCD CH CODE 
AS SHOWN BELOW 



EXPLANETARY NOTES 

THE X CHAR MEANS DOES NOT MATTER 

• UNLESS THE O^ERATION CODE 

* BECOMES A TERM OR CE SERV STOP 



* 

* 
* 

* 

♦ FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 
» REFER TO THE PROGRAM DESCRIPTION WRITE-UP. 
*****^if*t*t**t***#*******^*^ ft* ************** 

* 

♦ AUX PROG ENTRY POINTS 

♦ ****#*************t** 

♦ 1ST PASS ENTRY 

♦ THE NEXT EIGHT WORDS MILL NOT APPEAR IN CORE WHE 

♦ ♦ USING THE AUX PAPER TAPE DIAGNOSTIC LOADER 



NOTE 



PRINTING OF A SPECIFIC CHAR 
♦ DESTROYS RIPPLE PATTERN 



0036 1000 

0037 1000 



NOP 
NOP 



NO OPERATION 
NO OPERATION 



BAB03060 
8AB0 3070 
8AB03080 
8AB03090 
8AB03100 
8AB03110 
8A803120 
8A303130 
BAB03140 
8AB03150 
8AB03160 
BAB03170 
8AB03180 
8AB03190 
8AB03200 
8AB03210 
8AB03220 
8AB03230 
8AB03240 
RAB03250 
8AB03Z60 
8AB03270 
BAB03280 
0AB03290 
8AB03300 
8AB03310 
8A803320 
8A803330 
8AB03340 
eAB03350 
8Ati03360 
8AB03370 
8AB033S0 
8AB03390 
8AB03400 
8AB03410 
8AB03420 
8AB03433 
8AB03440 
8AB03450 
6AB03460 
8 ABO 34 70 
8AB03480 
8AB0349i} 
8AB03500 
8AB03510 
8A803520 
8AB03530 
8AB03540 
8AB03550 
8AB03560 
8AB03570 
8A303580 
8AB03590 
8mB03600 
8A803610 
eAB03620 
8AB03630 
8AB03640 
8AB03650 
eA803660 
8A603670 
eAB03680 
N 8AB03690 
8At)03700 
8AB03710 
6AB03720 
6AB03730 



0038 





1000 


0039 





1000 


003A 





1000 


003B 





1000 


003C 





C025 


003D 





D0F7 


003E 





COlO 


003F 





DOC 4 



0040 


C 


6107 


00-»l 





C158 


CO-.? 


• • 


E820 


0043 





0158 


0044 





71FE 


0045 





70FB 


0046 





0813 


0047 





080E 


0048 





FOOD 


0049 





DOlO 


004A 





FOOB 


004B 


00 


4C 183564 


004D 





COOC 


004E 





F009 


004F 


00 


4C 1 891368 



0051 080A 

0052 00 4C2tl(ii06A 



0054 

0055 



0809 
7013 



0056 




0000 


0056 





OCFf 


0057 





0760 


0058 





OOOF 


0059 





0000 


005A 





0000 


005B 





0001 


0050 





7041 


005D 





0701 


005E 





00A9 


005F 





0509 


0060 





0000 


0061 





0000 


0062 





7007 


0063 





3000 



NOP 

NOP 

NOP 

NOP 

LD 

STO 



NN 
/35 



NO OPERATION 
NO OPERATION 
NO OPERATION 
NO OPERATION 
RESTORE LOC NICE 
* IN AUX LOADER 



LD 05W PLACE BRANCH 
STO /04 * TO RETUR LABEL 

*******^*** *************** *»****^^**** ******** 

* 

ADD AREA CODE TO THE I/O COMMANDS 



LDX 
BUILD LD 
OR 
STO 

HDX 
MOX 

* 

• 

RETJR XIO 
XIO 
AND 
STO 
EOR 
BSC 

LD 

EOR 
BSC 

XIO 

BSC 



1 7 

1 CEOFF 

AREA 
1 CEOFF 
1 -2 

BUILD 



GET IDCC WORD AND 

* OR IN AREA AND 

* PLACE BACK 



ALL BUT 1ST PASS ENTRY POINT 



CEON 

SENBl 

SENBI 

CEON 

SENBI 

NOTROt*- 

CEON 

CEOFF 

GSTR,*- 

DSW 
TXFRC,+Z 



SENSE CE SW TO ACCOM 
BLOCK OUT PROG SEL SH 



BR OUT OF PROGRAM 



BR Ce SERVICE STOP 

SENSE DEVICE <:TATUS 
BR TRANSFER COMP INT 



**t******** ***************************** ****** 

* 

PRINT INT ROUTINE 
***************** 



* 

* 

PRCOM XIO INI52 
MDX SAVE2 
********************************************** 
* 

CONSTANTS AND/OR lOCC WORDS 



1443 INIT WRITE OP 



BSS 
SENBI DC 

DC 
CEOFF DC 

DC 
CEON DC 

DC 
OSW DC 

DC 
INI52 DC 

OC 



SER 

SAW 

NN 
REA 



DC 
OC 
DC 
DC 





/OOFF 

/0760 

/OOOF 

/OOOO 

/OOOO 

/OOOl 

TTTT 

/0701 

TBL52 

/0500 





NNNN 

/3000 



END COMMAND COMPARE 
SENSE CE SWITCHES 

CE OFF WORD 
CHAR WORK LOC 
CE ON WORD 

DSW WOR!) 

INIT WRITE 



1ST 1443 AREA CODE 

* CHANGE THIS VALUE FOR A 

♦ DEVICE ON ANOTHER AREA 
*****'t**»****************************** ****** 

EXIT POINTS TO AUX LOADER 

***********if*i,*******t:*** 



8AB03740 

8A803750 

eABO3760 

8AB03770 

8AB03780 

8A303790 

8AB03800 

8AB03810 

8Ae03820 

8AB03830 

8AB03840 

8AB03850 

8A303860 

8AB03870 

8A303880 

8AB03890 

8A603900 

8A603910 

8AB03920 

faAB03930 

8AB03940 

8AB03950 

8AB03960 

8AB03970 

8AB03980 

8AB03990 

8AB04000 

8AB04010 

8A304020 

8AB04030 

8AB04040 

8AB04050 

8AB04060 

6Aa04070 

8Aa040R0 

8AB0'.090 

8AB04100 

8A804110 

8AB04120 

BAB04130 

8A804140 

8AB04150 

8AB04160 

8AS04170 

8A604180 

8A804190 

8A604200 

SAB04210 

»«AB04220 

8AB04230 

8AB04240 

8AB04250 

8AB04260 

8AB04270 

8AB04280 

8AB04290 

eAB04300 

8AB04310 

8AB04320 

8AB04330 

8AB04340 

8AB04350 

8,"B04360 

8AB04370 

8AB043B0 

8AB04390 

8AB04400 

8AB04410 



1 
1 

■y 
1 
> 
> 



1 

1 



DATE 
EC NO. 



28FEB66 
415120 



PROG ID 
PACE 



08AB-0 

4 



DATE 
EC NO. 



2SFEB66 
415120 



PROG ID 
PAGE 



08AB-0 
4A 
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ISH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 14^3 EXERCISER 

39 CHAR BAR RIPPLE EXERCISER 



006^ 00 65000813 

0066 6990 

0067 03F0 



0068 08F3 



0069 70A3 



* 






TERMINATE EXIT POINT 


NOTRD 


LDX 


LI 


wwww 




STX 


I 


/O't 


4i 


XIO 




CEOFF 


* 
4i 






C£ SERVICE EXIT POINT 


GSTR 

1|E 


XIO 




DSW 


* 






NORMAL EXIT POINT 



* 

SAVE2 MDX OQQQ EXIT TO AUX LOADER 

* 



TEST FOR PRINT 

* INTERRUPT LATER 









* 




TRANS 








* 
• 
TXFRC 




♦ »**« 


006A 





1880 


SRT 


13 


0a6B 





DOFI 




STO 


SER 


006C 





COED 




LO 


CEON 


0060 





18S? 




SRT 


2 


006E 





DOEB 




STO 


CEON 


OO&F 





1010 




SLA 


16 


0070 





1082 




SLT 


2 


0071 





DOOl 




STO 


A+1 


D072 


00 


65000000 


A 


LDX 


LI 


007* 


00 


40800076 


GOT A 


BSC 


11 GOTA 


0076 





0098 


DC 


CAME 


0077 





0086 




DC 


REVER 


0078 





007A 




DC 


REBIT 


0079 





0082 




OC 


GONE 



PRINT SW CHARACTER 



007& 





CODF 


007B 





1008 


007C 





E8D0 


0070 





61AC 


0076 


00 


050000FE 


0080 





7101 



0081 C 70FC 



0082 COOD 

0083 00 4COii0054 
0035 70E3 



BR TO SW OPTION 

NORMAL RIP-'LE 
REVERSE RIPPLE PATTN 
READ BIT SWITCHES 
LOCK ON LAST LINE )>R 

* 
* 

REBIT LD CEON 

SLA 8 

OR CEON 

LDX 1 -84 

RPT STO LI TBL52+85 

MOX I 1 

HOX RPT 

**************** t******«*:tc*^^tt*^0^t*****w**** 

* 

* LOCK ON ROUTINE 

GONE LD SER 

BSC L PRCOH.E BR PRINT COMP INT 

MDX SAVE2 

**************** *******t:********m*^^^4^^^0t:*** 

* 









* 
« 
REVER 






REVERSE f 


D086 





61A0 


LDX 




-83 


0087 


00 


C50000F0 




LD 


LI 


TBL52+84 


0099 





0007 




STO 




SAW 


003A 





1890 




SRT 




16 


0083 


00 


C50000FE 


LOOP 


LO 


LI 


TBL52+85 


0080 





18C8 




RTE 




8 


DOSE 


00 


D50000FO 




STO 


LI 


TBL52+84 


0090 





1886 




SRT 




8 


0091 





7101 




MDX 




1 


0092 





T0F8 




MDX 




LOOP 


0093 





COCO 




LD 




SAW 


0094 





18C8 




RTE 




8 


0095 


00 


D40000F0 




STO 


L 


TBL52+84 


DATE 




2eFEB66 










EC NO. 


415120 











Part NO. 2196451 
PAGE 5 



8AB04420 

8AB04430 

8AB04440 

8AB04450 

8AB0'.460 

8AB0f470 

8AB04480 

eAB04490 

8AB04500 

8AS04510 

8AB04520 

8AB04530 

8AB04540 

8AB04550 

8AB04560 

8AB04570 

8A804580 

8AB04590 

BAB04600 

8A804610 

8AB04620 

8A804630 

8AB04640 

8AB04650 

8AB04660 

8AB04670 

6AB04660 

8AB04690 

8AB04700 

8AB04710 

8A804720 

8AB04730 

8A804740 

8A304750 

8AB04760 

8AB04770 

8AB04780 

8AB04790 

8AB04600 

BAB04810 

8AB04820 

8AB04830 

8AB04840 

BAB048i>0 

8AB04860 

8A804870 

BAB04e80 

aAB04890 

8A604900 

eAB04910 

8AB04920 

8AB04930 

8AB04940 

8AB04950 

6AB04960 

eA804970 

8AB04980 

8A804990 

8AB05000 

8AB05010 

eAB05020 

8AB05030 

8A805040 

8AB05050 

eAB05060 

8AB05070 

8AB050P0 

8AB05090 



PROG 10 
PACE 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1443 EXERCISER 

39 CHAR BAR RIPPLE EXERCISER 



08AB-0 
5 



0097 


70EA 


MOX 


GONE 










************** ****t*in^^t.tf***<f^*^*^^^t^^ff^^,^t, ft 

* 






* 


FORWARD 


ROUTINE , 


0098 


6153 


CAME LDX 


1 83 






0099 00 


C50000AA 


LO 


LI TBL52+1 






0098 


00C5 


STO 


SAW 






009C 


1890 


SRT 


16 






logo 00 


C50000A9 


SOOP LD 


LI TBL52 






009F 


1808 


RTE 


24 






JOAO 00 


D50000AA 


STO 


LI TBL52+1 






00A2 


1088 


SLT 


8 






0043 


71FF 


MOX 


1 -1 






OCA* 


70F8 


MDX 


SOOP 






0(!A' 


COBB 


LD 


SAW 






00A6 


1088 


SLT 


8 






0OA7 


000 2 


STO 


TBL52tl 






00A8 


7009 


MDX 


GONE 










*******K^*****^tif^^**t:**t***********ttt:^tt,^t^t* 


00A9 


0048 


TBL52 DC 


72 






OOAA 


OAOl 


DC 


/OAOl 





(1) 


OOAB 


0203 


DC 


/0203 


2 


(3) 


OOAC 


0405 


DC 


/0'i05 


4 


(51 


OOAD 


0607 


DC 


/0607 


6 


(7) 


OOAE 


0809 


OC 


/0809 


8 


(9) 


OOAr 


0000 


DC 


/OOOO 


BLANK, BLANK 


OOBO 


0031 


DC 


/0031 


B 


(A) B MEANS BLANK 


OOBl 


3233 


OC 


/3233 


B 


IC) 


0062 


3435 


OC 


/3435 





(E) 


00B3 


3637 


DC 


/3637 


F 


(GI 


00B4 


3839 


DC 


/3839 


H 


(I) 


00B5 


212? 


DC 


/2122 


.1 


(K) 


0086 


2324 


DC 


/2324 


L 


(H) 


0087 


2526 


DC 


/252b 


N 


(0) 


0038 


2728 


OC 


/2728 


P 


(Q) 


0089 


2912 


DC 


/2912 


R 


(SI 


OOBA 


1314 


DC 


71314 


T 


(U) 


OOBB 


1516 


UC 


/1516 


V 


(W) 


ODBC 


1718 


DC 


/1718 


X 


(Y) 


OOBO 


193B 


OC 


/193B 


z 


(.) 


OOBE 


1B2B 


DC 


/IB2B 


9 


I») 


OOBF 


OAOl 


DC 


/OAOl 





(1) 


OOCO 


0203 


DC 


/0203 


2 


(3) 


OOCl 


0405 


DC 


/0405 


4 


(51 


00C2 


0607 


DC 


/0607 


6 


(71 


0OC3 


0809 


DC 


/0809 


8 


(9) 


00C4 


0000 


OC 


/OOOO 


BLANK. BLANK 


00C5 


OOjI 


DC 


/0031 


B 


(A) B MEANS BLANK 


0CC6 


3233 


OC 


/3233 


B 


(C) 


0OC7 


3435 


OC 


/3435 


D 


(E) 


00C8 


3637 


DC 


/3637 


F 


16) 


00C9 


3839 


OC 


/3839 


H 


(It 


OOCA 


2122 


DC 


/2122 


J 


(K) 


OOCB 


2324 


OC 


/2324 


L 


(M) 


OOCC 


2526 


OC 


/2526 


N 


(0) 


OOCD 


2728 


DC 


12126 


P 


(0> 


OOCE 


2912 


OC 


/2912 


R 


(S) 


OOCF 


1314 


OC 


/1314 


T 


lU) 


0000 


1516 


DC 


/1516 


V 


(W) 


0001 


1718 


DC 


/1718 


X 


lY) 


0002 


193B 


DC 


/193B 


I 


(.) 


0003 


1B2B 


DC 


/1B2B 


t 


(t) 


0004 


OAOl 


DC 


/OAOl 





(1) 


0005 


0203 


DC 


/0203 


2 


(3) 


0006 


0405 


OC 


/0405 


4 


15) 


00D7 


0607 


DC 


/0607 


6 


(7) 


0008 


0809 


DC 


/0809 


8 


(91 


DATE 


28FEB66 










EC NO. 


415120 
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8A805100 

8AE05110 

8Ao05120 

8AB05130 

eAB05140 

8AB05150 

8AB05160 

8AB05170 

8AB05180 

8AB05190 

8AB05200 

8AB05210 

8A805220 

0AB052 30 

8AB05240 

eAB05250 

eAB05260 

8A805270 

8AB052e0 

8AB05igO 

8AB05300 

8A8053J0 

8AB053.»0 

8AB053;.0 

eA805340 

8A605350 

8A8O5360 

8AS05370 

8AB05390 

8AB05390 

8AB05400 

8AB05410 

8A505420 

8AB054 30 

8 ABC 5440 

8AB05450 

eAB05«50 

8AB05470 

8A8054 80 

8AB05490 

eAB05500 

8AB05510 

eAB05520 

8AB05530 

8AB05540 

8AB05550 

8AB05560 

8AB05570 

8AB05580 

8AB05590 

8AB05600 

8AB05610 

8A605620 

8AB05630 

8AB05640 

8AB05650 

8AB05660 

8AB05670 

eAB056eO 

8AB05690 

8AB05700 

8AB05710 

8A805720 

8AB05739 

8AB05740 

8A805750 

8AB05760 

8AB05770 



PROt; 10 
PACE 



08AB-0 
5A 



i 

t 

1 

1 



1 



CI 



t>' %J %i' %kJ \j \^ \j \j \j \j \j' \j> \^' v." V-.' V-'' v.^' V..''"' C^ C ^ V> V> v> Kj \^ \J \^ -kj- C>' CI' V 
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AUX U'.3 EXEHCISCR 

39 CHAH BAR RIPPLE EXERCISER 



0009 


0000 




DC 


/oooo 


BLANK, 


BLANK 






8A805780 


000& 


0031 




DC 


/0C31 


B 


JAI 


B MEANS 


BLANK 


8AB05790 


OODB 


3233 




DC 


/3233 


B 


(C) 








8AB05600 


OOOC 


3435 




DC 


/3435 





(E) 








8ABO5810 


0000 


3637 




DC 


/3637 


F 


(Gl 








8AB05820 


OODE 


3339 




DC 


/3839 


H 


(I) 








8A605830 


OODF 


2122 




DC 


/2122 


J 


IK) 








8AB0S840 


OOEO 


2324 




DC 


/2324 


L 


(H) 








8A805850 


OOEl 


2526 




DC 


/2526 


H 


10) 








eAB05860 


00E2 


2728 




DC 


/2728 


P 


(Q) 








8AB05870 


0OE3 


2912 




DC 


/2912 


R 


IS) 








8A805880 


OOE-V 


1314 




DC 


/1314 


T 


(U) 








BA&05890 


00fc5 


1516 




DC 


/1516 


V 


(M) 








8AB05900 


00E6 


1718 




DC 


/1718 


X 


(V) 








8AB05910 


OOE? 


1933 




DC 


/193B 


z 


(.) 








8AB05920 


OOEB 


1B2B 




DC 


/1B2B 


ff 


Itl 








eAB05930 


00E9 


OAOl 




DC 


/OAOl 





(1> 








8AB05940 


OOEA 
OOEB 


0203 
040 5 




DC 
DC 


/0203 
/0405 


2 
4 


13) 
«5) 








8AB05950 
8AB05960 


OOEC 


0607 




DC 


/0607 


6 


(7) 








8AB05970 


OOED 


0309 




DC 


/0 809 


8 


19) 








8A605980 


OOEE 


0000 




DC 


/OOOO 


BLANK, 


BLANK 






8AB05990 


OOEF 


0031 




DC 


/0031 


B 


(A) 


B MEANS 


BLANK 


8AB06000 


OOFO 


3233 




DC 


/3233 


B 


fC) 








8AB06010 


OOFl 


3435 




DC 


/3435 


D 


IE) 








8AB06020 


00F2 


3637 




DC 


/3637 


F 


IG) 








8AB06030 


00F3 


3839 




DC 


/3839 


H 


(1) 








eAB06040 


00F4 


2122 




DC 


/212«; 


J 


(K) 








8AB06050 


00F5 


2324 




DC 


/2324 


L 


(M) 








8AB06060 


00F6 


2526 




DC 


/2526 


N 


(0) 








8A006070 


OOF 7 


2728 




DC 


/272e 


P 


(0) 








8AB060&0 


00F8 


2912 




DC 


/2912 


R 


(S) 








6AB06090 


0OF9 


1314 




DC 


/1314 


T 


(U) 








eAB06100 


OOFA 


1516 




DC 


/1516 


V 


(W) 








8AB06110 


OOFB 


I7ie 




DC 


/1718 


X 


(V) 








eA806120 


OOFC 
OOFD 


193B 
ie2B 




DC 
DC 


/193B 
/1B2B 


I 

t 


(.) 
It) 








eAB06130 
8AB06140 


OOOD 




4> 

QQQO 


EOU 


/O 


GO TO 


LOADER 


AT 


/O 


8AB06150 
8AB061&0 


7 007 




NNNN 


ECU 


/70D7 


FOR CARD LOADER 


AT /35 


8AB06170 


0813 




WWHW 


EQU 


/0813 


SET rN LOADER 


AT 


/04 


8AB06180 


7041 




TTTT 


EQU 


/7000*RETUR- 


/4-1 


THIS 


IS 


EQUAL TO 


8A806190 






* 






THE BRANCH FROM 


THE LOADER 


8A806200 






♦ 






TO RETUR IN THIS 


PROGRAM. 


8AB0621Q 






**************** *L*t****ttt»*t*t***t**»**tlP*** 


8A806220 


OOFE 


OOFD 




END 


*-l 


END CARD NEVER USED 


8AB0&230 
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AUX 1443 EXERCISER 

39 CHAR BAR RIPPLE EXERCISER 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


A 


0072 


AREA 


0063 


BUILD 


0041 


CAME 


0098 


CEOFF 


0058 


CEON 


005A 


O-JH 


005C 


50f'E 


0082 


GOTA 


0076 


6MR 


0068 


INI5^ 


005E 


I'-.O? 


008 B 


hh 


0062 


NNNN 


70D7 


NOtRD 


0064 


PRCOH 


0054 


QOQO 


OOOD 


REBIT 


007A 


RETUR 


0046 


SEVER 


0086 


RPT 


007E 


SAVE2 


0069 


SAW 


0061 


SENBI 


0056 


SER 


0060 


SOOP 


0090 


TBL52 


O0A9 


TTTT 


7041 


TXFRC 


006A 


wuww 


081? 



REFEREfCES 

0071 

0042 

0045 

0076 

004 It 0043, 004E, 0067 

0046, 0&49, 0040, 006C.006E,007A,OOTC 

003E, 0051, 0068 

0079, 1597, 00A8 

0074 

004F 

0054 

0092 

003C , 

0062 

004B 

0083 

0069 

0078 

OOFE 

0077 

0081 

0055,0035 

0089,0093,0096, 00A5 

0047, 0048, 004A 

006B,OOB? 

00 A4 

005E, 00 7E, 0087, 008B,008E, 0095, 0099, 009D.00A0,00A7 

005C 

0052 

0064 



1 

) 

1 
\ 

) 



) 



DATE 
EC NO. 



2eFE866 
415120 
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DATE 
EC NO. 



28FEB66 
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PROG 10 OaAB-0 
PAGE 6A 



1 
) 

> 

1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THt 1800 SYSTtH 



AUX KAS EXERCISER 

52 CHAR BAR RIPPLE EXERCISER 



02BC 



ABS 

ORG /36 

IF THIS PROG IS TO BE USED FOR A MACHINE 
WITH A DIFFERENT AREA CODE, THE LOCATION WHICH 
REFER TO THE LABEL AREA IN SYMBOL TABLE MUST 
BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 
MODIFIED AOX 8-8 OBJECT DFC<. SEE AUX CE PROG 
GENERATOR WRITE-UP FOR PROCEDURE. 



CE SWITCH SETTINGS 



NORMAL RIPPLE PATTERN 
REVERSE RIPPLE PATTERN 
LOCK ON LAST LINE PRINTED 

CE SERVICE STOP 
TERMINATE RUN 
SELECT CHARACTER TO BE 
PRINTED- THE DESIRED CHAR 
IS SELECTED pv MEANS OF 
THE STft«<OARO BCD CH CODE 
AS SHO«N BELOW 



0036 

0037 



1000 
1000 



* 
* 
* 
♦ 

« 

* 14<i3 RIPPLE PROGRAM 
» * WITH 52 CHAR SET 

* • AND 120 OR 144 

* ♦ PRINT POSITIONS 

* THIS PROG CAN BE LOADED FROM CARDS OR PAPER TAPE 

* 

♦ 

* 

* 

* 
* 
* 
* 

* 
* 
* 

♦ FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 

♦ REFER TO THE PROGRAM DESCRIPTION WRITE-UP. 

* 

♦ AUX PROG ENTRY POINTS 

♦ , 

♦ 1ST PASS ENTRY 

«> 

♦ THE NEXT EIGHT WORDS WILL NOT APPEAR IN CORE WHE 

♦ * USING THE AUX PAPER TAPE DIAGNOSTIC LOADER 

NOP NO OPERATION 

NOP NO OPERATION 



XXXXXXOO 
XXXXXXf V 
XXXXXXll 
00001111 
UUllll 
CCCCCCIO 
$♦!*$* 

$*»«■»* 

|;«S.e$* 
$*t»t* 
$♦»♦$♦ 

$«$«(*••*** 1 
»*t*ittStS 2 
$♦$•*•«•*** 4 
t*$$iiitttt 8 
$*»♦»***♦»• A ZONE 
Stt(tt$$($ B ZONE 



EXPLANETARY NOTES 

THE X CHAR MEANS DOES NOT MATTER 

* UNLESS THE OPERATION CODE 

♦ BECOMES A TERM OR CE SERV STOP 



NOTE 



PRINTING OF A SPECIFIC CHAR 
• DESTROYS RIPPLE PATTERN 



PART NO. 
PAGE 



8AB06240 
8AB06250 
8AB06260 
8AB06270 
8AS06280 
8AB0*29!) 
8A806300 
8AB06310 
8AB06320 
8AB06330 
eAB06340 
8A80&350 
8AB05360 
8AB06370 
8AB06380 
8AB06390 
8AB06400 
BAB06410 
8AB06420 
8AB06430 
8AB064'iO 
8AB06450 
8AB06460 
eAB06470 
8AB06480 
eA806490 
eAa06500 
eAB065iO 
8AB06520 
8AB06530 
8AB06543 
8AB06550 
8AB0&560 
8AB06570 
eAB06580 
8AB06590 
fiAB06600 
8AB06610 
8AB0&620 
eAB06630 
8AB06640 
8AB06b50 
8AS06660 
8AB06670 
6A8066B0 
8AB06690 
8AB06700 
8AB06710 
8AB06720 
8AB06730 
8Ad06740 
8AB06750 
8AB06760 
6AB06T70 
8AB067eO 
8AB06790 
8AB06803 
8AB06810 
SAB06320 
8Aa06830 
8AB06840 
8Ae06850 
8AB06860 
N 8A806870 
eAB06880 
8AB06B90 
8AB06900 
eAB06910 



2196451 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1443 EXERCISER 

52 CHAR BAR RIPPLE EXERCISER 



0038 





1000 


0039 





1000 


003A 





1000 


303B 


00 


65007007 


0030 





69F7 


003E 





COID 


003F 





00C4 



0040 


( 


6107 


0041 





C158 


004? 





E81D 


(104 3 


f^ 


0158 


0044 





71FE 


0045 





70FB 



0046 





0813 


0047 





OBOE 


0048 





EOOO 


0049 





0010 


004A 





FOOB 


004B 


00 


4C 180061 


004D 





COOC 


004E 





F009 


004F 


00 


4C180065 



0051 080A 

0052 00 4C280067 



0054 

0055 



0809 
7010 



0056 




0000 


0056 





OOFF 


0057 





0760 


0058 





OOOF 


0O59 





0000 


005A 





0000 


005B 





0001 


005C 





7041 


005D 





0701 


005E 





00A6 


005F 





0500 


0060 





3000 



NOP 

NOP 

NOP 

LOX LI NNNN 

STX 1 /35 



NO OPERATION 

NO OPERATION 

NO OPERATION 

RESTORE LOCATION NICE 

* IN AUX LOADER 



ED DSW PLACE BRANCH 

STO /04 * TO RETUR LABEL 

* 

* ADD AREA CODE TO THE I/O COMMANDS 



LOX 

BUILD LD 

OR 

STO 

SER MDX 

SAW MDX 

* 

« 

RETUR XIO 
XIO 
AND 
STO 
EOR 
BSC 

* 

LD 

EOR 

BSC 

XIO 

BSC 



1 7 

1 CEOFF 
AREA 

1 CEOFF 

I -2 
BUILD 



GET lOCC WORD AND 

♦ OR IN AREA AND 

♦ PLACE BACK 

NEXT TWO WORDS WILL BE 

♦ USED FOR STG AFTER 

♦ 1ST PASS 



ALL BUT 1ST PASS ENTRY POINT 



CEON 

SE' BI 

SENBI 

CEON 

SENBI 

NOTRO,*- 

CEON 

CEOFF 

GSTR,*- 

OSW 
TXFRC,+2 



SENSE CE SH TO ACCOM 
BLOCK OUT PROG SEL SW 



BR OUT OF PROGRAM 



BR CE SERVICE STOP 

SENSE DEVICE STATUS 
BR TRANSFER CQMP INT 



0061 00 65000813 



**************** t******t^),^*»t^^^^t,,^t^^t,f.^,^^^^ 

* 

* PRINT INT ROUTINE 

* ***************** 
* 

PRCOH XIO INI52 1443 INIT WRITE OP 

MDX SAVE2 
***************************/,it»r^************^* 
* 

CONSTANTS AND/OR lOCC WORDS 



ENO COMMAND COMPARE 

SENSE CE SWITCHES 

CONSTANT 

CE OFF WORD 

CHAR WORK LOC 

CE ON WORD 

CONSTANT 

OSM WORD 

INIT WRITE 

1ST 1443 AREA CODE 

♦ CHANGE THIS VALUE FOR A 

* DEVICE ON ANOTHER AREA 

******** ***********:********X,*t**************^* 

* 

* EXIT POINTS TO AUX LOADER 

* ************************* 

• 

* TERMINATE EXIT POINT 
NOTRO LOX LI WWWW 



* 




CONSTi 




BSS 


E 


SENBI 


DC 


/OOFF 




DC 


/0760 


CEOFF 


DC 


/OOOF 




DC 


/OOCO 


CEON 


DC 


/OOOO 




DC 


/OOOi 


OSW 


DC 


TTTT 




DC 


/0701 


INI52 


DC 


TBL52 




DC 


/0500 


AREA 




DC 


/3000 


* 
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8AB06920 

8AB06930 

8AB0b940 

8AB06950 

8AB06960 

8AB06970 

8AB06980 

8AB06990 

8AB07000 

8AB07010 

6AB07020 

8AB07030 

8AB07040 

8AB07050 

8 ABO 7 060 

3AB0707O 

8AB07080 

6AB07090 

8A307100 

8AB071ia 

8AB0712O 

8AB07130 

8AB07140 

8AB07150 

8AB07160 

8AB07170 

8AB07ie0 

8AB07190 

8AB07200 

8AB07210 

8AB07220 

8AB07230 

8AB07240 

8AB07250 

8AB07260 

8AB0727O 

8AB07280 

8AB07290 

8AB07300 

8AB07310 

8AB07320 

8AB07330 

8AB07340 

eAB07350 

8AB07J60 

8AB073TO 

8AB07380 

8AB07390 

8AB07400 

8AB0 7410 

6AB07420 

8AB07430 

8AB07440 

8AB07450 

8AB07460 

8AB07470 

8AB07',80 

8A607490 

8 ABO r 500 

eAB07SI0 

8AB07520 

8ABQ7530 

8AB07540 

8AB07550 

BAB07560 

8AB07570 

8AB07580 

8AB07590 



DATE 
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PROG ID 
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DATE 
EC NO. 
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PROG 10 
PAGE 



08AB-0 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 



AUX 1443 EXERCISER 

SZ CHAR BAR RIPPLE EXERCISER 



PART NO. 
PAGE 



2196451 
SA 



aofej 


69A0 




STX 


a /04 




8AB07600 




D0'><« 


08F3 


* 


XIO 


CcDFF 




8AB07610 
8AB07620 








* 




CE SERVICE 


EXIT POINT 


8AB07630 








« 








8A807640 




ooi.5'0 


08F6 


GSTR 

* 


XIO 


DSW 




8AB07650 
8AB07t60 








♦ 




NORMAL EXIT POINT 


8A607670 








* 








8AB07680 




03&* 


70A6 


SAVE2 


HDX 


QQQO 


EXIT TO AUX LOADER 


8AB07690 








»**»»*«««*t.»«it*« *«*****«**»•«* •»«*•««,«*• *««•«* 


8AB07700 








* 








8AB07710 








* 




TRANSFER COM? INT 


eAeO7720 








• 




***«*«**«L*«:*»*6»* 


8AB07730 








* 








8A307740 




00&7 


188D 


TXFRC 


SRT 


13 


TEST FOR PRINT 


8AB07750 




o:^^s 


DO 08 




STO 


SER 


♦ INTERRUPT LATERe 


8AB07760 




aoe.* 


COFO 




LD 


CEON 




8AB07770 




CCtS. 


1882 




SRT 


2 




8AB07760 




ooe.s 


DOEE 




STO 


CEON 




8AB07790 




CO6.C 


1010 




SLA 


16 


• ° 


eAB07800 




D045 


1082 




SLT 


2 




8A807810 




tC*E 


000 1 




STO 


A*l 




8Aa07e20 




OO&i^ 00 


65000000 


A 


LDX 


11 




8AB07830 




OOTt 00 


40300073 


* 


BSC 


it GOTA 


BR TO SH OPTION 


8AB07840 
8AB07850 




0S?3 


00<J5 


GOTA 


DC 


CAME 


NORMAL RfPPLE 


8AB07860 




0074 


0083 




DC 


REV'-R 


REVERSE RIPPLE PATTN 


8AB07873 




0575 


0077 




DC 


REBIT 


READ DIT SWITCHES 


8Ae07880 




0S3T6 


007F 




DC 


GONE 


LOCK ON LAST LINE PR 


8AB07890 








**«***«**«»««« ««»»»»«^f*(.»«t,^(,«:*«tV**«»*%«**** 


8AB07900 








* 








8AB07910 








• 




PRINT SH CHARACTER 


8A807920 








* 








8AB07930 




03T7 


COF" 


REBIT 


LO 


CEON 




eAB07940 




0378 


1008 




SLA 


8 




8AB07950 




C0T9 


E8E0 




OR 


CEON 


• 


8A807960 




037A 


61A9 




LDX 


8 -87 




8AB07970 




3©73 00 


D50000FE 


RPT 


STO 


11 TBL52+88 




8AB07980 




3S7D 


7101 




MOX 


t I 




8A&07990 




057E 


70FC 




HDX 


RPT 




8ABOS0O0 








**««***4<**«»*«««»4i»««»«6««»««*«»«*,**, «*,«»,«, 


BABOSOIO 








* 








8AB08020 








* 




LOCK ON ROUTINE , 


8AB0S030 








* 






• 


BAB08040 




007F 


C0C4 


GONE 


LD 


SER 




8AB08050 




3050 00 


4C040054 




BSC 


L PRCOM.E 


BR PRINT COMP INT 


8AB08060 




Di«2 


70E3 




HDX 


SAVE2 




8Ae08070 








***»***«*«»«*« 41* **»»**««*»«,*«,«««*««^^«,0^«»^^, 


8AB08080 








* 








8AB08090 








♦ 




REVERSE ROUTINE 


6AB08100 








* 








SABOailO 




ass 3 


61AA 


REVER LDX 


t -86 




8AB08120 




0334 00 C50000FD 




LO 


11 TBL52*87 




SABOBUO 




3035 


DOBE 




STO 


SAW 




eAB08140 




0547 


1890 




SRT 


16 




8ABOB150 




3S?8 00 C50000FE 


LOOP 


LO 


11 TBL52»88 




8AB0S160 




3&4A 


18C8 




RTE 


8 




8AB08170 




3CSa 00 D50000F0 




STO 


tt TBL52+87 




8AB08180 




t?&?0 


1838 




SRT 


8 




eAB08190 




353E 


7101 




HDX 


I 1 




eAB08200 




osaF 


70F8 




MOX 


LOOP 




8AB08210 




ca-jo 


C084 




to 


SAW 




8AB0B220 




33? 1 


18C8 




RTE 


8 




8AB0e230 




0W2 00 D4000CF0 




STO 


t T8L52+87 




eAB08240 




3OT4 


70EA 




HDX 


GONE 




8AB08250 








»**••««<••««»»« «c**«*****«*«i ***•*•*»•««(,»»«»*««« 


eAB08260 








• 








8AB082T0 




94TE 


2BFEH66 










PROG ID 


OSAB-O 


EC NO. 


415120 










PAGE 


8 





* 


FORWARD 


ROUTINE 


8A&03280 


/ 




* 








eA80B290 




0095 6156 


CAME IDX 


1 86 






eA303300 


1 


0096 00 C50000A7 


LO 


LI TBL52H 






e* 30 83 10 


0098 OOAC 


STO 


SAW 






8AB08320 




0099 1890 


SRT 


16 






eAB033 30 


1 


009A 00 C50000A6 


SOOP LD 


LI TBL52 






8AB08340 


009C 18D8 


RTE 


24 






8Ae03350 


— . 


0090 00 D50000A7 


STO 


LI TBL52+1 






8A30S360 


■) 


009F 1088 


SLT 


8 




' 


eAB08370 




OOAO 71FF 


HDX 


1 -1 






8AB083S0 




OOM 70F8 


MOX 


SOOP 






6ABC3390 


) 


OOA? C0A2 


LD 


SAW 






eA3oe400 




00\3 1088 


SLT 


8 






8Ab084lO 




OOA^ D002 


STO 


TBL52*1 






8AB03420 


) 


Cr)3'. 7009 


HDX 


GONE 






8Ae08433 






«(.***«««*«»«*«:«•««««,» «4:(,«,4,»««««4,»4,««^««4:,,,»«* 


8AaO8440 




00A6 C348 


TBL52 DC 


72 






8Ae03450 


) 


00A7 OAOl 


DC 


/OAOl 





(1) 


8A303460 




0OA8 0203 


DC 


/0203 


2 


(3> 


BAB0a470 




00A9 0405 


DC 


/0405 


4 


15) 


8&B0a480 


■, 


OOAA 0607 


DC 


/06O7 


6 


(7> 


6AeOS490 




OOAB 0809 


OC 


/0809 


8 


«9) 


8A803500 




OOAC 0000 


DC 


/OOOO 


BLANK, BLANK 


8A303Sia 


% 


OOAD 0031 


DC 


/0031 


8 


(A) B MEANS BLANK 


8A308520 




OOAE 3233 


DC 


/3233 


B 


(C) 


8AB0a530 




OOAF 3435 


DC 


/3435 





IE) 


8AB08540 




0060 3637 


DC 


/3637 


F 


(Gi 


8A30S550 




OOBl 3839 


DC 


/3839 


H 


(I) 


8AB0S560 




0OB2 2122 


DC 


/2122 


J 


IK) 


8AS03570 


\ 


00B3 2324 


OC 


/2324 


L 


(M) 


8AB08580 




00B4 2526 


OC 


/2526 


N 


(0) 


8AB0859) 




00B5 2728 


DC 


/2728 


P 


(Q) 


8AB08600 


\ 


0OB6 291? 


OC 


/2912 


R 


(Si 


8A&08610 




00B7 1314 


DC 


/1314 


T 


(U) 


8A908620 




0OB8 1516 


DC 


/1516 


V 


«K) 


8ASO8630 


~% 


0089 1718 


DC 


/1718 


X 


«Y) 


BAB08640 




OOBA 1900 


DC 


/1 900 


2 


IB) 8 MEANS BLANK 


8A308650 




OOBB 0000 


OC 


/OOOO 


BLANK, Blank 


8AB08&60 


-\ 


OOBC 1B20 


OC 


/1B20 


t 


(-» 


8A308670 




0080 2C2B 


DC 


/2C2B 


• 


(») 


8AB08680 




OOBE 3830 


DC 


/3B30 


. 


« + J 


8A30S690 


\ 


OOBF lllA 


OC 


/lllA 


/ 


1 ) 


8ABOS700 




OOCO OCIC 


DC 


/OCIC 


1 


10 


8A808710 




OOCl 3C0D 


DC 


/3C0D 


» 


!•» 


eA80S720 


•y 


00C2 3A24 


OC 


/3A24 






8AB0873!> 




0OC3 0810 


DC 


/OBIO 






eAB08740 




00C4 OAOl 


DC 


/OAOl 





ID 


8ABOS750 


'^ 


00C5 0203 


DC 


/0203 


2 


(3) 


eAB08760 




00C6 0t05 


OC 


/0405 


4 


(5) 


8A80O770 




00C7 0607 


DC 


/0607 


6 


17) 


SAB0878O 


1 


00C8 0809 


OC 


/0809 


8 


C9) 


8A609790 




00C9 0000 


DC 


/OOOO 


BLANK, BLANK 


8A808800 




OOCA 0031 


OC 


/0031 


B 


lA) B MEANS BLA^K 


eABOSBIO 


1 


OOCB 3233 


DC 


/3233 


B 


»CJ 


8A30e820 


OOCC 3435 


DC 


/3435 


D 


IE) 


8A8O8830 




OOCO 3637 


DC 


/3637 


F 


tG> 


eA308840 


> 


OOCE 3839 


DC 


/3839 


H 


(1) 


eA808850 


OOCF 2122 


DC 


/2122 


J 


IK) 


8AB0S16Q 




0000 2324 


DC 


/2324 


L 


IM) 


eAB09870 


■> 


0001 2526 


DC 


/2526 


N 


10) 


SAB088S0 




0002 2728 


DC 


/2728 


P 


10) 


BA80S890 




00D3 2912 


DC 


/2912 


R 


IS) 


SAB38900 


^ 


0004 1314 


OC 


/1314 


1 


lU) 


8AB03910 




0005 1516 


DC 


/1516 


V 


IW) 


8AB03920 




0006 1718 


OC 


/1718 


X 


lY) 


8A608930 


^ 


0007 1900 


DC 


/1900 


I 


IB) 8 HEANS BLANK 


8AS0S940 




OODB 0000 


DC 


/OOOO 


BLANK, BLANK 


BAB03950 


^ 


DATE 28FEB66 










PROS 10 08AB-0 


EC NO. 415120 








1 


PAGE e« -^ 

J 

1 



t* O O 1^ 1> i* c c c c c c c c c c 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOP. THE 1800 SYSTEM 



AUX 14<.3 EXfRCISER 

52 CHAR BAR RIPPLE EXERCISER 



00D9 
OODA 
OOOB 
OODC 
0000 
OODE 
OOOF 
OOEO 
OOEl 
00E2 
00E3 
00E4 
00E5 



00E6 



00E7 
0OE8 
OOEg'^O 
OOEA 
OOEB 
OOEC 
OOEO 
OOEl 
OOEF 
OOFO 
OOFl 
00F2 
00F3 
00F4 
OOFS 
00F,6 
OOFT 
OOf 8 
OOF 9 
00F& 
OOFB 
• OOFC 
OOFO 

0000 
TOOT 
0813 
T041 



OOFE 



1320 
2C2B 
39 30 
UlA 
OCIC 
3C0D 
3A24 
09J0 
OAOl 
0203 
0405 
0607 
0S09 
0000 
0031 
3233 
3435 
3637 
38 39 
2122 
2324 
2526 
2726 
2912 
1314 
1516 
1718 
1900 
O'JOO 
1520 
2C2B 
3330 
iUA 
OCR 

'it iM 
OBH> 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



OOFD 



QQQQ 
NNNN 
WWWH 
TTTT 

* 
* 

END 



EQU 

eou 

EQU 
EQU 



'IB20 
/2C26 
/3B30 
/IUA 
/OCIC 
/3C0D 
/3A24 
/OBIO 
/OAOl 
/0203 
/0405 
/0607 
/0809 
/OOOO 
/0031 
/3233 
/3435 
/3637 
/3839 
/2122 
/2324 
/2526 
/2728 
/2912 
/1314 
/1516 
/1718 
/IVOO 
/OOOO 
/1B20 
/2C2B 
/3B30 
/lllA 
/OCIC 
/3C0D 
/3A24 
/OBIO 



t t-J 

♦ (»J 
. (♦) 
/ t > 

• ((> 
> (•! 



(1) 
2 (3) 
4 (5» 
6 (71 
e (9) 
BLANK, BLANK 

B (A) B HEANS BLANK 

6 Id 

D (E) 

F (Gl 

H (I) 

J (K) 

L CM) 

N (0) 

P (01 

R tS) 

T lU) 

V (H) 

X tVl 

1 (81 B KEANS BLANK 
BLANK, BLANK 

, (-» 

* It) 
. U\ 
I ( > 

• ((I 
) (•» 



/O GO TO LOADER AT /O 
/7007 FOR CARD LOADER AT /35 
/0813 SET IN LOADER AT /04 
/7000+RETUR-/4-I THIS IS EQUAL TO 
THE BRANCH FROM THE LOADER 
TO RETUR IN THIS PROGRASI. 

♦-1 END CARD NEVER USED 



PART NO. 2195451 
PAGE 9 



eAB03960 
8A&08970 
8AB08980 
8AB08990 
8A609000 
8 ABO 90 10 
8A309020 
8AB09030 
8AB09040 
8AB09050 
8AB09060 
8AB09070 
8AB09080 
6&B09090 
8AB09100 
8A809110 
8AB09120 
8AB09130 
eAB09140 
eAB09150 
8A309160 
8AB09170 
eAB09l80 
8AB09190 
8AS09200 
6AB09210 
eAB09220 
e/.9Cl9230 
8AB09240 
efcB09250 
8A809260 
8A309270 
8AB09280 
8A809290 
8A609300 
eA3093I0 
eAB09320 
BAB09330 
8AB09340 
8AB09350 
8A609360 
8AB09370 
6A909380 
86809390 
8AB09400 
8AB09410 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1443 EXERCISER 

52 CHAR BAR RIPPLE EXERCISER 



PART NO. 2196451 
PAGE 9A 



1 



CROSS REFERE'^CE LISTFNG 



SYMBOL 


VALUE 


A 


006F 


AREA 


0060 


BUILD 


0341 


CAME 


0095 


CEOFF 


0058 


CEON 


005A 


OS a 


005C 


GjNE 


00 7 F 


GOT A 


0073 


g:tr 


0065 


f^'isa 


005E 


1 :■•-■'> 


0038 


'i\.A 


70D7 


NOTRD 


0061 


PRCOH 


0B54 


QQQQ 


OOOO 


REBIT 


0077 


RETUR 


0046 


REVER 


0D33 


RPT 


00 7B 


SAVE2 


0056 


SAW 


0045 


SENBI 


0D56 


SER 


0044 


SOOP 


009* 


TBL52 


C9A6 


TTTT 


7341 


TXFRC 


0047 


MUWW 


0S13 



REFERENCES 

006E 

0042 

0045 

0073 ~ 

0041,0043,0041 ,0064 

0046, 0049,0040, 0069, 0068,0077, 0079 

003E.C05l,0065 

0076, 0094, 00A5 

0071 

004F 

0054 

008F 

OOsB 

0049 

0080 

0066 

0075 

OOFE 

0074 

007F 

0055,0082 

0086, C090, 0098, 00A2 

0047,0048, 004A 

0066, 007F 

OOAl 

005E, 0076,0084, 088, 0083, 0092, 0096, 009A,009D,OOA4 

005C 

0052 
0061 



1 



DATE 
EC NO. 



28FEB66 
415120 



PROG ID 08AB-0 
PACE 9 



DATE 
EC NO. 



28FeB66 
415120 



PROG ID 
PAGE 



08AB-0 
9A 



i» ^ O o 



ii li' Ci CJ <J C C C (i C C C O O C C. C C* C> Ci ti C C C .C C i> Ci 



IBM MAINTENANCE 0IA5N0STIC PROGRAM FOR THE 1800 SYSTEM 



AUX Itttti EXERCISER 

63 CHAR BAR RIPPLE EXERCISER 



028C 



ABS 

ORG /36 



« 

* 
* 



IF THIS PROG IS TO BE USED FOR A MACHINE 
WITH A DIFFERENT AREA CODE, THE LOCATION WHICH 
REFER TO THE LABEL AREA IN SYMBOL TABLE MUST 
BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 
MODIFIED AUX 8-8 OBJECT DECK. SEE AUX CE PROG 
GENERATOR WRITE-UP FOR PROCEDURE. 



►*«*»•*♦«*»»««♦»»»*<,»»»«,», ^^,j^^^^^^^^^^^ 



0036 

0037 



DATE 
EC NO. 



1000 
1000 



♦ . 

♦ 

♦ This PROG 

« 

* 
* 

• FOR ADOIT 

• REFER TO 

* 
• 

♦ THE NEXT 

♦ * USING T 

• 

NOP 
NOP 



K43 RIPPLE PROGRAM 

♦ WITH 63 CHAR SET 

♦ AND 120 OR 144 

♦ PRINT POSITIONS 

CAN BE LOADED FROM CARDS OR PAPER TAPE 



CE SWITCH SETTINGS 



NORMAL RIPPLE PATTERN 
REVERSE RIPPLE PATTERN 
LOCK ON LAST LINE PRINTED 

CE SERVICE STOP 
TERMINATE Rl •! 
SELECT CHARACTER TO BE 
PRINTED. THE DESIRED CHAR 
IS SELECTED BY MEANS OF 
THE STAND&Ri) BCD CH CODE 
AS SHOWN BELOW 



XXXXXXOO 
XXXXXXOl 
XXXXXAll 
00001111 
lllllUl 
CCCCCCIO 

»*»*$♦ 
»*$»$♦ 
$♦»*$» 
»♦$»»» 
$*$*»♦ 
)»$»$»»•*«« 1 

t*l»SttS$t 2 

(»{(>*•*•*«,« 4 

»♦•»•♦•*♦♦♦ A ZONE 
$S»(»$$tS$ B ZONE 



EXPLANETARY NOTES 

THE X CHAR MEANS DOES NOT MATTER 

• UNLESS THE OPERATION CODE 

• BECOMES A TERM OR CE SERV STOP 



NDTE 



PRINTING OF A SPECIFIC CHAR 
• DESTROYS RIPPLE PATTERN 



lONAL INFORMATION ABOUT PROG. OPERATION 
THE PROGRAM DESCRIPTION WRITE-UP. 

AUX PROG ENTRY POINTS 



1ST PASS ENTRY 

EIGHT WORDS WILL NOT APPEAR IN CORE WHEN 
HE AUX PAPER TAPE DIAGNOSTIC LOADfcR 

NO OPERATION 
NO OPERATION 



28FEe66 
415120 



PART NO. 
PAGE 



8AB09430 

8AB09440 

8A609453 

8AB09463 

8AB09470 

8AB09480 

8AB09490 

8ftB09500 

8AB09510 

8A809520 

8AB09530 

8AB09540 

8AB09550 

8AB09560 

8A809570 

8AB09580 

8AB09590 

8A809600 

8AD09610 

8AB09620 

8AB09630 

8AB09640 

8A8096^0 

8AB09660 

8AB09670 

8AB09680 

8AB09690 

8AB09700 

8AB09710 

8AB09720 

8AB09730 

eAB09740 

8AB09750 

8A809760 

8AB09770 

8A809780 

8AB09790 

8AB09800 

8AB09810 

8AB09820 

8A609830 

8AB09S40 

8AB09850 

8AB09S60 

8AB09870 

8AB09880 

BAB09890 

8A609900 

8AB099I0 

8AB09920 

8AB09930 

8AB09940 

8AB09950 

8Ae09950 

8AB09970 

8AB0998D 

8AB09990 

8AB10000 

8AB10010 

8AB10020 

8AB10030 

SAB 10040 

8AB10050 

8AB10060 

8AB10070 

8AB10080 

eABI0C9'> 

8AB10100 



PROG ID 
PACE 



2196451 
10 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1443 EXERCISER 

63 CHAR BAR RIPPLE EXERCISER 



0038 





1000 


0039 





1000 


003A 





1000 


003B 





1000 


003C 





C025 


0030 





OOF 7 


003E 





COID 


003F 





O0C4 



0040 


C 


6107 


00^5 


-1 


C158 


DC? 


,; 


E820 


0043 





0158 


0044 





71FE 


0045 





70FB 


0046 





0813 


0047 





080E 


0048 





EODO 


0049 





DOlO 


004A 





FODB 



004B 00 4Cie0064 

0040 FOOA 
004E 00 4C180068 

0050 080B 

0051 00 4C26006A 



0053 

0054 



0056 
0056 
0057 
0058 
0059 
005A 
005B 
005C 
005D 
005E 
005F 
0060 
0061 
0062 
0063 



033A 
7014 



0000 
OOFF 
0760 
OOFu 
0030 
0000 
0001 
7041 
0701 
0049 
0500 
0000 
0000 
7007 
3000 



NOP 

NO" 

NOP 

NOP 

LO 

STO 



NN 
/35 



NO OPERATION 
NO OPERATION 
NO OPERATION 
NO OPERATION 
RESTORE LOC NICE 
♦ IN AUX LOADER 



LD DSM PLACE BRANCH 
STO /04 » TO RE^UR LABEL 

* ADD AREA CODE TO THE I/O COMMANDS 



LOX 
BUILD LO 
OR 
STO 

MOX 
MOX 

• 

* 

RETUR XtO 
XIO 
AND 
STO 
EOR 
BSC L 

* 

EOR 
BSC I 

XIO 
BSC I 



1 7 

1 CEOFF 
AREA 

1 CEOFF 

1 -2 
BUILD 



GET lOCC WORD AND 

* OR IN AREA ANO 

* PLACE BACK 



ALL BUT 1ST PASS ENTRY POINT 



CEON 

5ENBI 

SENBI 

CEON 

SENBI 

NOTRD,*- 

CEOFF 
GSTR,*- 

DSW 
TXFRC,+Z 



SENSE CE SW TO ACCUM 
BLOCK OUT PROG SEL SW 



BR OUT OF PROGRAM 

BR CE SERVICE STOP 

SENSE DEVICE STATUS 
. _ BR TRANSFER COMP INT 
*********** t:t*t**f^*^i,*t,^»*^^«t***pi^t*f***t 

PRINT INT ROUTINE 
*****^ti*^tm*****^ 

RCOM XIO INI52 1443 INIT WRITE OP 

MOX SAVE2 
***********e:**««*tiM»t,t.t.»1,t,^^^^^t^^t,^^^^^^^^^^ 



CONSTANTS AND/OR lOCC WORDS 



BSS 
SENBI DC 

DC 
CEOFF DC 

DC 
CEON DC 

DC 
DSW DC 

DC 
INI52 DC 

DC 

SER DC 

SAW OC 

NN OC 

REA DC 





/OOFF 

/0750 

/OOFO 

/OOOO 

/OOOO 

/OOOl 

TTTT 

/0701 

TBL52 

/0500 





NNNN 

/3000 



END COMMAND COMPARE 
SENSE CE SWITCHES 

CE OFF WORD 
CHAR WORK LOC 
CE ON WORD 

DSW WORD 

INIT WRITE 



1ST 1443 AREA CODE 

♦ CHANGE THIS VAcUE FOR A 

* DEVICE ON ANOTHER AREA 
***************t,*t^^**^^tt,»ti^^^t^t^^^^^,,ff^ 

EXIT POINTS TO AUX LOADER 
*******m*********P*^*^,titit 

TERMINATE EXIT POINT 
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SJ^BIOllO 

SAS10120 
8A£,.O130 
eAB10140 
8AB10150 
8AB10160 
O&B10173 
8A310180 
SA610190 
8«B10200 
8&8:0<J10 
8A810220 
8*810230 
8*810240 
«AbXO250 
eA310?60 
8AblO270 
eAB10280 
94B10290 
8*810300 
8ftBlO310 
8i&310320 
3AB10330 
8*310340 
8A81035D 
eA810360 
8AB10370 
8A310380 
8*810390 
8*610400 
8*510410 
8*610420 
8AB10430 
8 AB 10440 
8A610450 
SAB10460 
8A810470 
8A3IC480 
84810490 
6*310500 

e*eio5io 

eAB10520 
eA810530 
8AS10540 
84810550 
8A910560 
8*610570 
8*fil0580 
8A810520 
8A3I0600 
8AB10610 
8ASI0620 
6*810630 
8A31U640 
8AS10650 
8&310660 
SAB10670 
8AS10680 
8ftB10690 
8*810700 
8*810710 
8*810^20 
8*810730 
BA3I0740 
8A310750 
8Aai0760 
6*810770 
SAS10780 



08AB-0 
10 



DATE 
EC NO. 



28FE866 
415120 



riiOS 10 
PACE 



08AB-0 
10* 



' '\ 
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IBH HAlNTENiMCe DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX l-KiJ EXERCISER 

63 CHAR BAR RIPPLE EXERCISER 
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IBM MAINTENANCE DIAGNOSTIC PRO&RAK FOR THE 1800 SYSTEM 



AUX 141.3 EXERCISER 

63 CHAR BAR RIPPLE EXERCISER 
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0064 00 65000813 

0066 6990 

0067 03F0 



0068 OeF3 



0069 70A3 



006A 





1880 


0063 





D0F4 


006C 





COED 


006D 





lea? 


006E 





DOES 


006F 





1010 


0070 





1082 


0071 





DOOl 



0072 CO 6^003000 
0074 00 4DS00076 

0076 0098 

0077 0086 

0078 007A 

0079 0082 



007A 





CODF 


007B 


P 


1008 


007C 





E800 


0070 





61B8 


007E 


00 


D50000F2 


0080 





7101 



0081 70FC 



0092 CODO 
0OS3 00 4C040053 
0085 70E3 



NOTRO LOX LI UUUM 
STX 1 /04 
XIO 

« 
* 
GSTR XIO 

* 

SAVE2 HDX 08QQ EXIT TO AUX LOADER 

TRANSFER COMP INT 



CEOFF 

CE SERVICE EXIT POINT 

DSH ^ 

NORMAL EXIT POINT 



* 

« 

TXFRC SRT 
STO 
LD 
SRT 
STO 
SLA 
SLT 
STO 



13 

SER 

CEON 

2 

CEON 

16 

2 

A.* I 

LDK LI 

BSC 11 GOTA 



TEST FOR PRINT 

• INTERRUPT LATER 



GOTA DC 
DC 
DC 
DC 



CAKE 
REVER 
REBIT 
GONE 



BR TO St* OPTION 

NORMAL RIPPLE 
REVERSE R'PPLE PATTN 
READ BIT SWITCHES 
LOCK ON LAST LINE PR 



• PRINT SH CHARACTER 

REBIT LD CEON 

SLA 8 

m CEON 

LOX 1 -72 

RPT STO LI TBL52*73 

MDX 1 1 

MDK RPT 

* LOCK ON ROUTINE 

* 

GONE LO SER 

BSC L PRCOM.E BR PRINT COMP tNT 

MDK SAVE 2 

* 









* 






REVERSE 1 


0086 





61B9 


REVER 


LDX 




-Tl 


0087 


00 


C50000FI 




LO 


LI 


TBL52*72 


0089 





0007 




STO 




SAW 


008 A 





1890 




SRT 




16 


008B 


00 


C50000F2 


LOOP 


ID 


LI 


TBL52*73 


0080 





18C8 




RT£ 




8 


008E 


00 


D50000F1 




STO 


LI 


TBL52*T2 


0090 





1888 




SRT 




8 


0091 





7101 




MOX 




1 


0092 





70F8 




MDX 




LOOP 


0093 





COCO 




LO 




SAW 


0094 





18C8 




RTE 




8 


0095 


00 


D40000FI 




STO 


L 


TBL52*72 


0097 





70EA 




MDK 




GONE 


DATE 




2eFEB66 










EC NO. 


415120 











8AB10790 

8AB10800 

8AB10810 

BABlOaZO 

eAB10830 

8AB10840 

8AB10850 

eAB10860 

8AB10370 

8AB108B0 

8AB10890 

eABl0900 

8AB10910 

eABl0920 

8AB10930 

8AB10940 

8AB10950 

8AB10960 

8AB10970 

8AB10980 

8AB10990 

8AB11000 

eABllOlO 

8AB11020 

8AB11030 

8ABU040 

8AB11050 

8AR11060 

BABUOTO 

BABllOSO 

8AB11090 

8AB11100 

8AB11110 

8AB11120 

eAB11130 

8AB11140 

8AB11150 

eAB11160 

eAB11170 

8AB11180 

8AB11190 

8AB11200 

8A811210 

8ABli:20 

8AB11230 

8AB11240 

8A811250 

6A311260 

8AB11270 

eABll280 

8AB11290 

8AB11300 

8AB11310 

8AB11320 

SAB11330 

eAB11340 

8ABlt350 

eAB11360 

8AB11370 

8AB11380 

8AB11390 

8AB11400 

8AB11410 

8AB11420 

8AB11430 

8AS11440 

8AB11450 

BABU460 



PROG to 
PAGE 



08AB-0 
It 





**««««:«:««• 


»»»»*«»**«*»**«*«*«,*<,»»*»««««*««*««■« 


8Aail470 






• 








eABll480 






• 


FORWARD 


ROUTINE 


8^811490 






« 








8A31t50D 




0098 6147 


CAME LDX 


1 71 






BABIISIO 




0099 00 C50000AA 


LD 


LI TBL52+i 






8A511520 




009B D0C5 


STO 


SAW 






8AB11530 




009C 1890 


SRT 


16 






8A&11540 




0090 00 C5000k/A9 


SOOP LD 


Lt TBL52 






8Aail55a 




009F 1808 


RTE 


24 






8ABII560 




0060 00 D50000AA 


STO 


LI TBL5241 






8AB11570 




00A2 1088 


SLT 


8 






8AB11580 




OjA:; 71FF 


MDX 


1 -1 






8A811590 




00,4 70F8 


MDX 


SOOP 






8AQ11600 




CU'i5 COBB 


LO 


SAW 






6AB11610 




; -i 10 88 


SLT 


8 






8ABH620 




OOA/ 0002 


STO 


TBL52+1 






BABil630 




00A8 7009 


MD.". 


GONE 






8A3U640 






»**»«« *««*4i«»«t:« «»«»«:«,«««««, 4,»»««,««^«^«««,^^^^^ 


8AB11650 




00A9 0046 


TBL52 DC 


72 






eABll660 




OOAA OAOl 


DC 


/OAOl 





(I) 


eAB11670 




00A8 0203 


UC 


/0203 


2 


(3) 


8A3ll6a0 




OOAC 0405 


DC 


/0405 


4 


(51 


8AB11690 




OOAO 0607 


DC 


/OfeOT 


6 


(71 


8A8H700 




OOAE 0809 


DC 


/0809 


8 


(9) 


8ABU7in 




OOAF 0000 


OC 


/OOOO 


BLANK, BLkHK 


8AB11720 




OOBO 0000 


OC 


/OOOO 


BLANK, 6LAN< 


8ABUT30 




0031 0031 


DC 


/003t 


B 


(A) B KEA-^S BLANK 


8A8I1740 




00B2 3233 


DC 


/3233 


6 


IC) 


8ABlt750 




00B3 3435 


DC 


/3435 


D 


CEl 


8Aail760 




0034 3637 


DC 


/3637 


F 


(G) 


8Aeil770 




0085 3839 


OC 


/3839 


H 


il) 


8A811780 




00B6 2122 


OC 


/2122 


J 


(K) 


8AS11790 




0087 232 I 


DC 


72324 


4. 


(M> 


8AB11B00 




0088 2526 


OC 


/2526 


N 


(01 


SAB11810 




OOB? 2728 


DC 


/2723 


P 


(Q> 


8ABH820 




008A 2912 


OC 


/2912 


R 


ts» 


6A311830 




OOBB 1314 


DC 


/1314 


T 


(U) 


8A311840 




ODBC 1516 


DC 


/t516 


V 


('••1 


eASll850 




C060 1716 


OC 


/1718 


X 


(Y» 


SABIieoO 




003E 1900 


DC 


/1900 


I, 


BLANK 


8A811870 




OOBF 0000 


DC 


/OOOO 


BLANK, BLANK 


8Aftll880 




OOCO 002F 


DC 


/002F 


BLANK, 


8A311890 




OOCl 1B20 


OC 


/1B20 


t 


(-) 


eA311900 




0CC2 2C2B 


DC 


/2C2B 


• 


t*t 


8Aail910 




00C3 3B30 


DC 


/3B30 


. 


I*) 


8A311920 




00C4 11 lA 


OC 


/lllA 


/ 


( i 


SAB11930 




00C5 OCIC 


DC 


/OCIC 


• 


((1 


eAB11940 




00C6 3r0D 


DC 


/3C00 


1 


!•) 


8AB11950 




0OC7 3A24 


DC 


/3A24 






8AB11960 




00C8 0810 


OC 


/0810 






eAB11970 




0OC9 103A 


OC 


/103A 






8A811980 




OOCA 2A0B 


DC 


/2A0B 






SAB11990 




OOCB lOlE 


OC 


/tOlE 






aABt2000 




OOCC 2E0F 


OC 


/2E0F 






8A3120t0 




OOCO 1F3F 


DC 


/1F3F 






eAB12020 




OOCE OAOl 


OC 


/OAOl 





(1) 


8AB12030 




OOCF 0203 


DC 


/0203 


2 


(31 


8A312040 




0000 0405 


DC 


/0405 


4 


(51 


8AB12050 




OODl 0607 


OC 


/0607 


6 


(7) 


eA312060 




0002 0809 


DC 


/0809 


8 


(91 


8A612070 




0003 0000 


DC 


/OOOO 


BLANK, BLANK 


8AS'2080 




0004 0000 


DC 


/OOOO 


BLANK, BLANK 


3A312090 




00D5 0031 


OC 


/0031 


B 


(Al B MEANS BLANK 


8A312100 




0006 3233 


OC 


/3233 


B 


(CI 


eAai2tto 




00D7 3435 


DC 


/3435 


D 


(E» 


8AB12120 




0008 3637 


DC 


/3637 


F 


(G) 


8A812t30 




0009 3839 


DC 


/3e39 


H 


(1) 


8A812140 




DATE 28FEB66 
EC NO. 415120 










PROG to 
MCE 


08AB-0 
ItA 



1 
1 
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IBM MAINTENANCE D1AGN0S1IC PROGRAM FOR THE 1800 SYSTEM 

AUX 1443 EXERCISER 

63 CHAR BAR RIPPLE EXERCISER 



OODA 





2122 


OOOB 





2324 


OOOC 





2526 


GOOD 





2728 


OODE 





2912 


OOOF 





1314 


COED 





1516 


OOEl 





1718 


00E2 





1900 


00E3 





0000 


00E4 





002F 


DOES 





1620 


00E6 





2C2B 


0OE7 





3B30 


00E8 





lllA 


0nE9 





OCIC 


OOEA 





3C0D 


OOEB 





3A24 


OOEC 





OBIO 


OOED 





103A 


OOEE 





2A0B 


OOEF 





lOlE 


OOFO 





2K0F 


OOFl 





1F3F 


0000 






70D7 






0813 






7041 







DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

QQQQ EQU 
NNNN EQU 



EQU 
EQU 



00F2 



OOFl 



HHWH 
TTTT 

* 
* 

END 



/iWZ 
/i324 
/i526 
/272B 
/2912 
/1314 
/1516 
/1718 
/J900 
/OOOO 
/002F 
/1920 
/?C2B 
/3330 
/lUA 
/OCIC 
/3C0D 
/3A24 
/C310 
/1 03 A 
/iAOB 
/lOlE 
/2E0? 
/1F3F 



/D CO TO LOADER AT /D 

/7007 FOR CARD LOADER AT /SS 

/0t>l3 SET IN LOADER AT /04 

/7000*RETUR-/4-l THIS IS EQUAL TO 

THE BRANCH FROM THE LOADER 
TO RETUR IN THIS PROGRAM. 

««<! *«««««***•*»»«»«««,»« fit «««»^««^.) 

*-l END CARD NEVER USED 



J (Kt 

L (Ml 

N (0) 

P (0) 

R (S) 

T (U) 

V (W) 

X (YJ 

I, BLANK 

BLANK, BLANK 

BLANK, 

, t-l 

* (»i 
. (♦! 
/ I I 

• ((» 
I (M 
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eAB12150 

eAB12160 

8AB12170 

8AB12180 

8A312190 

eAB122C0 

SAB12210 

6AB1222a 

8A812230 

eAB12240 

8AB12250 

8A812260 

8AB12270 

8AB12260 

8ABI2290 

8AB12300 

8AB12310 

8AB12320 

8AB12330 

8AB12340 

8AB12350 

8AB1236a 

8A612370 

8AB12380 

8AB12390 

8AB12400 

8AB12410 

8A'il2420 

8&B12430 

8AB12440 

8AB1245U 

8A312460 

8AB12470 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1443 EXERCISER 

63 CHAR BAR RIPPLE EXERCISER 



PART NO. 2196431 
.PAGE 12A 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


A 


0072 


AREA 


0063 


BUILD 


0041 


CAME 


0098 


CEOFF 


0058 


CEON 


005A 


DSW 


005C 


GONE 


0082 


COT A 


0076 


G?U 


0068 


IM'12 


005E 


1 U3<> 


008B 


:ri 


0062 


NNNN 


7007 


NOTRO 


0064 


PRCOM 


0053 


OQQO 


OOOD 


REBIT 


C07A 


RETUR 


0046 


REVER 


0086 


RPT 


007E 


SAVE2 


0069 


SAW 


-0061 


SENBI 


0056 


SER 


0060 


SOOP 


0090 


TBL52 


00A9 


TTTT 


7041 


TXFRC 


006A 


wwww 


0813 



REFERENCES 

0071 

0042 

0045 

00 76 

0041,0043,0040,0067 

0046, 0049, 006C,006E,007A,007C 

003E, 0050, 0068 

0079, 0097, 00A8 

0074 

004E 

0053 

0092 

003C 

0062 

004B 

0083 

0069 

0078 

00F2 

0077 

0081 

0054,0085 

0089, 0073, 009B,00A5 

0047, 0046, 004A 

0066,0082 

00A4 

005E,007E, 0087, 008B,008E, 0095, 0099, 009D,00A0,00A7 

005C 

0051 

0064 



1 
1 
1 
1 
1 
1 

1 
J 
J 
1 

1 



1 

1 
1 
1 
1 
1 
1 



DATE 
EC NO. 



28FE866 
415120 



PROG ID OSAB-0 
PAGE 12 



DATE 
EC NO. 



2eFEB66 
415120 



PROC ID 
PACE 



08AB-0 
UA 



o o o o 
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AUX 1443 E»f£r'.CISnR 

IJ CHAR BAR FLOATING REGISTRATION EXERCISER 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

© 
AUX 1443 EXERCISER 
13 CHAR 8AR FLOATING REGISTRATION EXERCISER 



PART NO. 2196431 
PAGE 13A 



02BC 



ABS 

ORG /36 

» 

♦ IF THIS PROG IS TO BE USED FOR A MACHINE 

♦ WITH A DIFFERENT ARC* CODE, THE LOCATION WHICH 

♦ REFER TO THE LABEL AREA IN SYMBOL TABLE MUST 

♦ BE CHANGED BY HEX COTRECTION CARDS TO OBTAIN A 

♦ MODIFIED AUX 8-8 OBJECT DECK. SEE AUX C£ PROG 

♦ GENERATOR WRITE-UP fS» PROCEDURE. 

V 

♦ 1443 FLCUTING REGISTRATION TEST 

♦ * WITH 13 CHAR SET 

♦ • AND 12S OR 144 

♦ ♦ PRINT POSITIONS 

♦ »♦»»»*»»«»»»»**♦♦ 
* 

♦ THIS PROG CAN BE LO&'KD FROM CARDS OR PAPER TAPE 

♦ CE SW«Tt« SETTINGS 

» 

* 

* 
« 

* 
* 
* 
* 
* 

* 

• 

* FOR ADDITIONAL INF3«>1ATICN ABOUT PROG. OPfcRATIOM 

♦ REFER TO THE PROGRi»e DESCRIPTION WRITE-UP. 

* 

» AUX PROS ENTRY POINTS 

• 1ST PASS ENTRY 

* 



NORMAL FLOAT PATTERN 
REVERSE FLOAT PATTERN 
LOCK ON LAST LINE PRINTED 

CE SERVICE STOP 
TERMINATE RUN 
SELECT CHARACTER TO BE 
PRINTED. THE DESIRED CHAR 
IS SELECTED BY MEANS OF 
THE STANDARD BCD CH CODE 
AS SHOWN B;L0W 



0036 la&o 

0037 1200 

0038 1000 



eAB124B0 

8AB12490 

8AB12500 

8ABI2510 

8A812520 

8AB12530 

8AB125H0 

8A812550 

8AB12560 

8AB12570 

8A812500 

8AB12590 

8ABi2600 

3AB12610 

8AB12620 

8AB12630 

8AB12640 

8AB12650 

8A812660 

8AB12670 

8AB12680 

8AB12690 

8AB12700 

8ABI2710 

8AB12720 

8AB12730 

8&B12740 

8AB12T50 

8A012760 

3A812770 

8Abl2780 

8AB12790 

8AB12600 

eA&12810 

8AB12a20 

8AB12830 

8AB1284t) 

8AB128S0 

6AB12860 

eAB12870 

8AB12e80 

8A812890 

8AB12900 

8AB12910 

8AB12920 

8AB12930 

8AB12940 

8AB12950 

8A812960 

8A812970 

8AB12980 

8AB12990 

8AB1300O 

8AB13010 

OAB13020 

8AB13030 

8AB13040 

eAB13050 

8AB13060 

8A31i070 

8AB130e0 

eABl3090 

• THE NEXT EIGHT WORSS WILL NOT APPEAR IN CORE WHEK 8AB13100 

• * USING THE AUX PAPER TAPE DIAGNOSTIC LOADER 8AB13U0 

• 8AB13120 
NOP NO OPERATION 8AB13130 
NOP NO OPERATION 8AB1314a 
NOP NO OPERATION 8AB131!>0 



XXXXXX09 
XXXXXXOJ 
XXXXXXli 
OOOC III 
llllUll 
CCCCCC19 

»♦$*** 
$•$•»* 

$*$*{•»*••« 1 
t*t»$t(ttS 2 

$«$*«&«»»«« i, 

t*$$»t(£$St 8 
$****•*»«•« A ZONE 
ttSt(tt»»S B ZONE 



EXPLANETARY NOTES 

THE % CHAR MEANS DOES NOT MATTER 

♦ UftlttSS THE OPERATION CODE 

* SECOMES A TFRM OR CE SERV STOP 



NOTE 



H*INTING OF A SPECIFIC CHAR 
* DESTROYS RIPPLE PATTERN 



0039 





1000 


003A 





1000 


003B 





1000 


003C 





C025 


003D 





00F7 


003E 





COID 


003F 





D0C4 



0040 





6107 


0041. 





C158 


on 1 2 





E820 


0-i'.5 





D158 


OC'!^ 





71FE 


0045 





70FB 


0046 





0813 


0047 





080E 


0048 





EOOD 


0049 





DOlO 


004A 





FOOB 


004B 


00 


4C180064 


004D 





COOC 


004E 





F009 


004F 


00 


4C 180068 



0051 080A 

0052 00 4C2f006A 



0054 

0055 



0809 
7013 



0056 




GOOD 


0056 





OOFF 


0057 





0760 


0058 





OOOF 


0059 





0000 


005A 





0000 


005B 





0001 


005C 





7041 


0050 





0701 


005E 





00A9 


005F 





0500 


0060 





OOOC 


0061 





0000 


0062 





7007 


0063 





3000 



NO OPERATION 
NO OPERATION 
NO OPERATION 
RESTORE LOG NICE 
* IN AUX LOADER 



LD DSW PLACE BRANCH 
STO /04 * TO RETUR LABEL 

♦ 



NOP 




NOP 




NOP 




LD 


NN 


STO 


/35 



* 






ADD ARL'A 


* 










LOX 


1 


7 


BUILD 


LO 


1 


CEOFF 




OU 




AREA 




STO 


1 


CEOFF 




HDX 


1 


-2 




MOX 




BUILD 


*■ 








♦ 






ALL BUT 1 


* 








RETUR 


XiO 




CEON 




XIO 




SENBI 




AND 




SENBI 




STO 




CEON 




60R 




SENBI 




BSC 


L 


NOTRD.*- 


.* 










LD 




CEON 




„EOR 




CEOFF 




BSC 


L 


GSTR,+- 


* 










XIO 




OSW 




BSC 


L 


TXFRC,+Z 



GET lOCC WORD AND 
«■ OR IN AREA AND 
* PLACE BACH 



SENSE CE SW TO ACCOM 
BLOCK OUT PROG SEL SW 



BR OUT OF PROGRAM 



BR CE SERVICE STOP 

SENSE DEVICE STATUS 
BR TRANSFER COM? INT 

♦ . 

♦ PRINT INT ROUTINE 

♦ ♦»♦♦»♦»»♦»♦♦♦»*♦♦ 
♦ 

PRCOH XIO INI52 1443 INIT WRITE OP 
«DX SAVE2 

* 

CONSTANTS ANO/CR lOCC WORDS 



END COMMAND COMPARE 
SENSE CE SWITCHES 

CE OFF WORD 
CHAR WORK LOC 
CE ON WORD 

OSW WORD 

INIT WRITE 



1ST 1443 AREA CODE 

* DEVICE ON ANOTHER AREA 

* CHANGE THIS VALUE FOR A 
******«**•***« «4ii)i4>*«,**««4,4, «,*«,«»«««««, ««««^,»«^ 

* 

* EXIT POINTS TO AUX LOADER 

♦ TERMINATE EXIT POINT 



* 


( 


CONST/ 




BSS 


E 


SENBI 


DC 


/OOFF 




DC 


/0760 


CEOFF 


DC 


/OOOF 




DC 


/OOOO 


CEON 


DC 


/OOOO 




DC 


/OOOl 


DSW 


DC 


TTTT 




DC 


/0701 


INI52 


DC 


TBL52 




DC 


/0500 


SER 


DC 





SAW 


DC 





NN 


DC 


NNNN 


AREA 


DC 


/3000 


* 






♦ 







DATE 
EC NO. 



26FEB66 
415120 



PROG 10 
PAGE 



08AB-0 
13 



DATE 
EC NO. 



28FEB66 
415120 



6AB13160 

8AB13170 

8AB131B0 

8Artl3190 

8AB13200 

8AB13210 

8AB13220 

8AB13230 

8AB1J240 

8AB13250 

8A313260 

8AB13270 

8AB13280 

8AB13290 

8 AB 1 3300 

8AB13310 

8AB13320 

8A613330 

8AB13340 

8AB13353 

8AB13360 

8AB13370 

8A313380 

8AB13390 

8AB13400 

8AB13410 

8AB13420 

8Abl3430 

BAB13440 

8AB13450 

8A613<«60 

8AB13470 

8AB13480 

9AB13490 

8AB13500 

8AB13510 

SAB13520 

8AB13530 

8AB13540 

8AB13550 

8AB13560 

8AB13570 

8AB13580 

8AB13590 

8A313600 

8AB13610 

8AB13620 

8AB13630 

8AB13640 

8AB13b50 

8AB13660 

8AB13670 

8AB13680 

8AB13690 

8AB13700 

8AB13710 

8AB13720 

8AB13730 

6AB13740 

8AB13750 

8AB13760 

8AB13770 

8AB13780 

8AB13790 

8AB13800 

8Aai3810 

8AB13820 

8AB1383a 



PROG 10 
PAGE 



1 

1 

1 



1 

1 

> 
1 

1 
1 
> 
1 
1 
1 



08AB-0 
13A 



1 
1 



o o o 



OOOiiCiOOUUCCCCOCOOCCGCiJCCCCCOlitI 



IBM KAINTCNANCE DIAGNOSTIC PROGRAM FDR THE 1800 SYSTEM 



AUX 1443 EXERCISER 

13 CHAR BAR FLOATING REGISTRATION EXERCISER 



0064 00 65000813 
0066 699D 
006/ 08F0 



0068 08F3 



0069 70A3 



NOTRD LDX LI UWWW 

STX 1 /04 

XIO 
* 
« 
* 

GSTR XIO 
* 

SAVE2 MDX QQQQ EXIT TO AUX LOADER 

* 

IXANSFER COMP INT 



CfcOFF 

C£ SERVICE EXIT POINT 

DSW 

NORMAL EXIT POINT 



006A 

0068 

006C 

0060 

006E 

006F 

GOTO 

0071 

0072 00 

0074 00 



188D 

D0F4 

COED 

1382 

DOEB 

lOIO 

1032 

0001 

65000000 

40800076 



« 

TXFRC SRT 
STO 
LD 
SRT 
STO 
SLA 
SLT 
STO 

A LDX 
BSC 



0076 0098 

0077 0086 

0078 007A 

0079 0082 



« 
GOT A 



DC 
DC 
DC 
DC 



13 

SER 

CEON 

2 

CEON 

16 

2 

A* I 
LI 
II GOTA 

CAKE 

REVER 

REBIT 

GONE 



TEST FOR PRINT 

* INTERRUPT LATER 



BR TO SM OPTION 

NORMAL RIPPLE 
REVERSE Rr>PLE PATTN 
READ BIT SWITCHES 
LOCK ON LAST LINE PR 



0C7A 





CODF 


007B 





1008 


007C 





E8DD 


0070 





61B8 



007E 00 050000F2 

0080 7101 

0081 70FC 



0082 COOD 
0033 00 4C040054 
0085 70F3 



* 

♦ PRINT SW CHARACTER 

REBIT LD CEON 

SLA 8 

OR CEON 

LDX 1 -72 

RPT STO LI TBL52*73 

MDX I 1 

HOX RPT 

* LOCK ON ROUTINE 

* 

GONE LD SER 

BSC L PRCOM.E BR PRINT COMP INT 

MDX SAVE2 









* 






REVERSE f 


0086 





61B9 


REVER 


LDX 




-71 


008 7 


00 


C50000F1 




LD 


LI 


TBL52+72 


0089 





D007 




STO 




SAW 


008i 





1890 




SRT 




16 


0080 


00 


C50000F2 


LOOP 


LO 


LI 


TBL52+73 


008D 





18C8 




RTE 




8 


008E 


00 


050000FI 




STO 


LI 


TBL52+72 


0090 





1888 




SRT 




8 


0091 





7101 




MOX 




1 


0092 





70F8 




MDX 




LOOP 


0093 





COCO 




LD 




SAW 


0094 





18C8 




RTE 




6 


0095 


00 


D40000F1 




STO 


L 


TBL52*72 


0097 





70EA 




MDX 




GONE 


DATE 




28FEB66 










EC NO. 


415120 











PART NO. 2196451 
PAGE . 14 



8AB13840 

8AB13850 

8AB13860 

8AB13870 

8AB138eO 

8AB13890 

8AB13900 

eAB13910 

6AB13920 

8AB13930 

8AB13940 

8AB13950 

8ABU960 

8AB13970 

8AB13980 

8AB13990 

8AB14000 

8AB14010 

8AB14020 

8AB14030 

8AB14040 

8AB14050 

8AB14060 

8AB14070 

aAB14060 

8AB14090 

8AB14100 

8ABU110 

8A814120 

8AB14130 

8AB14140 

8AB14150 

8AB14160 

8AB14170 

8AB14180 

eABl4190 

8AB14200 

BAB14210 

8AB14220 , 

eAB14230 

eAB14240 

8AB14250 

8A614260 

8AB14270 

8AB14280 • 

8AB14290 

8AB14300 

8AB14310 

8AB14320 

8AB14330 

8AB14340 

8AB1435G 

8AB14360 

8AB14370 

3AB143B0 

8AB14390 

8AB14400 

8AB14410 

8AB14420 

8AB14430 

SAB14440 

8AB14450 

8AB14460 

8A314470 

BAB144eO 

8AB14490 

8AB1'500 

8AB14S10 



IBM MAINTENANCE DIAGNOSTIC PROGRA« FOR THE 1800 SYSTEM 



AUX 1443 EXERCISER 

13 CHAR BAR FLOATING REGISTRATICN EXERCISER 



* 



PROG 10 
PAGE 



08AB-0 
14 







* 


FORWARD 


ROUTINE 


0098 


M47 


CAME LDX 


1 71 




0099 00 


C50000AA 


LD 


LI TBL52+1 




009B 


DOC 5 


STO 


SAW 




009C 


1890 


SRT 


16 




0O9O 00 


C50000A9 


SOOP LD 


LI TBL52 




009F 


1808 


RTE 


24 




OCiO 00 


050000AA 


STO 


LI TBL52+1 




0OA2 


1088 


SLT 


a 




00A3 


71FF 


MDX 


I -1 




00 A > 


70F8 


MDX 


SOOP 




OCA 3 


COBB 


LI) 


SAW 




OJAv 


1088 


SLT 


8 




Ok/hI 


0002 


STO 


TBL52+1 




0OA8 


7009 


MOX 


GONE 








*••*«**•«*»••«*« **4:4i*«««:^4i«c*«« 


00A9 


0048 


T6L52 DC 


72 




OOAA 


0808 


DC 


/080R 


8f 8 


OOAS 


0808 


DC 


/0808 


8. 8 


OOAC 


0808 


DC 


/0808 


8, 8 


OOAO 


0808 


DC 


/0808 


8, 8 


OOAE 


0808 


DC 


/0808 


8. 8 


OOAF 


0808 


DC 


/oeo8 


8. 8 


OOBO 


0808 


DC 


/0808 


8. 8 


0031 


0808 


DC 


/0808 


8. 8 


0OB2 


0808 


DC 


/080e 


8. 8 


00B3 


0808 


DC 


/0808 


8f 8 


0034 


0808 


DC 


/08O8 


8, 8 


0035 


0808 


DC 


/0808 


8i 3 


00B6 


0808 


DC 


/0808 


B. 8 


0037 


080L 


DC 


/0808 


3, 8 


0038 


0808 


DC 


/0808 


8. 8 


ooe? 


0806 


DC 


/0808 


8« 8 


003A 


0808 


DC 


/0808 


8, 8 


OOBB 


0808 


DC 


/0808 


8t 8 


OObC 


0808 


DC 


/0808 


8. 8 


003D 


0808 


DC 


/0808 


8. 8 


OOBE 


0808 


DC 


/0808 


8, 8 


003F 


0808 


DC 


/0808 


8. 8 


OOCO 


0808 


DC 


/0808 


3f 8 


OOCl 


0808 


DC 


/080B 


8, 3 


00C2 


0808 


DC 


/0808 


8, 8 


00C3 


0808 


DC 


/0808 


8, 8 


DOC 4 


0808 


DC 


/0808 


8i 8 


00C5 


0808 


DC 


/0808 


8, 8 


00C6 


0808 


DC 


/0808 


8, 8 


00C7 


0808 


DC 


/080B 


8. 8 


00C8 


0808 


DC 


/0808 


8t 8 


00C9 


0808 


DC 


/oeoB 


8. 8 


DOCA 


0808 


DC 


/0808 


8i 8 


OOCB 


0808 


DC 


/0808 


8. 8 


OOCC 


080A 


DC 


/080A 


8, 


OOCO 


OAOA 


DC 


/OAOA 


0, 


OOCE 


080J 


DC 


/oeo8 


8t 8 


OOCF 


0808 


DC 


/0808 


8. 8 


0000 


0808 


DC 


/0808 


8, 8 


0001 


0808 


DC 


/0808 


8. a 


0002 


0808 


DC 


/O808 


8, 8 


00D3 


0808 


DC 


/0808 


8. 8 


00D4 


0808 


DC 


/0808 


8. 8 


0005 


0808 


DC 


/0808 


8. 8 


0006 


0808 


DC 


/0308 


8, 8 


00D7 


0808 


DC 


/0808 


8, 8 


0OD8 


0808 


DC 


/0808 


e. 8 


0009 


0808 


DC 


/0808 


S, 8 


DATE 


2BFEB66 








EC NO. 


415120 









PART NO. 21964SI 
PAGE 14A 



8AB14520 
8AB14530 
SAB14540 
BA»14550 
8AB14560 
8A814570 

eABi45eo 

8AB14590 

8AB14600 

8AB14610 

8A914620 

8A814630 

8AB14640 

8AB14650 

8 AB 14650 

8AB14670 

8AB14680 

8AB14690 

8A814700 

8AB14710 

8AB14720 

8A614730 

8A814740 

8AB147S0 

8A6I4760 

8AB14770 

eAB14780 

8Alil4790 

8AB14800 

6AB14810 

8AB14820 

eAB14630 

eAB14e40 

f AB14850 

8AB14S<,0 

8ABI4870 

8AB14880 

eAB14890 

8ASI4900 

8ABl49tO 

eAB14920 

8AB14930 

8AB14940 

8AB14950 

8A814960 

6AB14970 

8AB14980 

8AB14990 

8AB15000 

SABISOIO 

8AB15020 

8AB1$030 

eAB15040 

8AB15050 

8AB15060 

SAB15070 

8A615080 

8AB15090 

8AB151O0 

SABtSllO 

6AB1S120 

8AB15130 

8AB15140 

8AB15150 

6AB15160 

BABISITO 

SAB1J180 

8AB15190 



PROG ID 
PAGE 



08AB-0 
14A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1<K.3 EXERCISER 
13 CHAR BAR FLOATING 



REGISTRATION EXERCISER 



00D& 





0S08 


DOOR 





0808 


OOOC 





0808 


OOOU 





OS08 


CODE 





0308 


GOOF 





083B 


DOEO 





0808 


OOEl 





0SO8 


00E2 





0308 


00E3 





0308 


OOE'i 





0808 


ODE 5 





0308 


00E6 





0908 


00E7 





090S 


00E8 





0308 


0069 





0308 


OOEA 





0808 


OOEB 





0908 


OOEC 





0308 


OOEO 





0308 


OGEE 





0908 


OOEF 





0808 


OOFO 





OSOA 


OOF I 





OAOA 


0000 






70D7 






0813 






7041 







00F2 



OOF I 



DC 
OC 
OC 
OC 
DC 
OC 
DC 
DC 
DC 
OC 
DC 
PC 
DC 
DC 
OC 
DC 
OC 
DC 
OC 
• DC 
• DC 
DC 
OC 
DC 
* 

OQQQ 
HNNN 
WWWH 
TTTT 

♦ ^ 

END 



•EOU 
ECU 
ECU 
EQU 



/0808 
/0808 

/oeoa 

/0808 
/0808 
/0808 
/0808 
/0808 
/0808 
/0808 
/0808 
/0808 
/0808 
/0808 
/0808 
/0808 
f0808 
/0808 
/0808 

/oeo8 

/0808 
/0808 
/0 80A 
/OAOA 



8, B 
8. 8 
8. 8 
8, 8 
8, 8 
8f 8 
8, 8 
8. 8 
8t 8 
8, 8 
8« 8 
8. 8 
8, 8 
8, 8 
8. 8 
S. 8 
8, 8 
8, 8 
S, 8 
8t 6 
8. 8 

e> 8 

8, 
0. 



/D GO TO LOADER AT /D 

/70D7 FOR CARD LOADER AT /35 
/OBIj set in LOADER AT /O'^ 
/7000+RETUR-/4-1 THIS IS EQUAL TO 
THE BRANCH FROM THE LOADER 
TO REIUR IN THIS PROGRAM. 

«-l END CARD NEVER USED 



PART NO. 2196451 
PAGE 15 



8AB15200 

8AB15210 

8AB15220 

8AB15230 

8AB15240 

8AB15250 

8AB15260 

8AB15270 

8AB15280 

8AB15290 

8AB15300 

8AB15310 

8AB15320 

8AB15330 

8AB15340 

8AB15350 

8AB15360 

8AB15370 

8AB15380 

8AB15390 

8AB15400 

8AB15410 

8A1U5420 

8AB15430 

8AB15440 

8AB15450 

eAB15460 

8AB\5470 

8AB15480 

8AB15490 

8AB15500 

8AB155I0 

8AB15520 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1443 EXERCISER 

13 CHAR BAR FLOATING REGISTRATION EXERCISER 



CROSS REFERENCE LISTING 



PART NO. 
PAGE 



21964t>l 
ISA 



SYM50L 


VALUE 


REFERENCED 


A 


0072 


0071 


AREA 


0063 


0042 


BUILD 


0041 


0045 


CAME 


0098 


0076 


CEOFF 


0058 


0041, 0043. 004E, 067 


CEON 


005A 


0046, 0049, 0040, 006C,006E,007A,C07C 


DSW 


005C 


003E, 0051, 0068 


GU'iE 


008 2 


0079, 0097, 0OA8 


:oi A 


0076 


0074 


GST? 


0068 


004F 


ir.-:>^ 


005E 


0054 


LC:;» 


008B 


0092 


K-i 


0062 


003C 


nn:.n 


7007 


0062 


NOTRD 


0064 


004B 


PRCOM 


0054 


0083 


OQSO 


0000 


0069 


RESIT 


007A 


0078 


RETUR 


0046 


00F2 


REVER 


0086 


0077 


RPT 


007E 


0031 


SAVE2 


0069 


0055,0085 


SAW 


0061 


0039, 0093, 009B,00A5 


SENBI 


0056 


0047, 0048, 004A 


SER 


0060 


0068,0082 


SOOP 


0090 


00 A4 


TeL52 


O0A9 


005Ef007E, 0087, COBB, 008E, 0095. 0099, 009D, DO AC ,00A7 


TTTT 


7041 


00 5C 


TXFP.C 


006A 


0052 


NHUU 


0813 


0064 



) 
1 

1 
1 

1 

1 

1 



DATE 
EC NO. 



2BFEB66 
415120 



PROG ID 
PAGE 



08AB-0 
15 



DATE 
EC NO. 



28FEB66 
415120 



PROG 10 
PACE 



08AB-0 
15A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM fOR THE 1800 SYSTEM 

AUX 1443 EXti^ClSER 

39, 52, 63 CHAR BAR FLOATING REGISTRATION EXERCISER 



02BC 



ABS 

ORG /36 

* 
* 
* 

* 

* 
* 

* THIS PROG CAN BE LOADED FROM CARDS OR PAPER TAPE 



IF THIS PROG IS TO BE USED FOR A MACHINE 
WITH A DIFFERENT AREA CODE, THE LOCATION WHICH 
REFER TO THE LABEL AREA IN SYMBOL TABLE MUST 
BE CHANGED BY HEX CORRECTION CAROS TO OBTAIN A 
HODIFIEr AUX 8-8 OBJECT DECK. SEE AUX CE PROG 
GENERATOR WRITE-UP FOR PROCEDURE. 



1443 FLOATING REGISTRATION TEST 

• WITH 39, 52 OR 63 CHAR SET 

• AND 120 OR 144 

• PRINT POSITIONS 



CE SHiTCH SETTINGS 



NORMAL FLOAT PATTERN 
REVERSE FLOAT PATTERN 
LOCK ON LAST LINE PRINTED 

CE SERVICE STOP 
TERMINATE RUN 
SELECT CH/''ACTER TO BE 
PRINTED. THE DESIRED CHAR 
IS SELECTED BY MEANS OF 
THE STANDARD BCD CH CODE 
AS SHOWN BcLOW 



* 
* 

* 
* 
* 

* 
* 
* 
* 
♦ 
* 
* 
* 
* 

* 
* 

* FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 

♦ REFER TO THE PROGRAM DESCRIPTION W^ITE-UP. 

• 

• AUX PROG ENTRY POINTS 

* ♦•♦•»»♦•♦•♦*»*♦♦»»»»» 

♦ 

• 1ST PASS ENTRY 

♦ THE NEXT EIGHT WORDS WILL NOT APPEAR IN CORE WHEN 

♦ • USING THE AUX PAPER TAPE DIAGNOSTIC LOADER 



XXXXXXOO 
XXXXXXOl 
XXXXXXll 
0000.111 
IIIUIU 
CCCCCCIO 

»*»*»♦ 
»»»•»♦ 
»*»*»♦ 
$»(*$****** I 
S»i*tStttS 2 
{*(*•****»• 4 
S^-tttStttSS 8 
»»••*♦**»♦• A ZONE 
StttStSStt B 20NE 



EXPLANETARY NOTES 

THE X CHAR MEANS DOES NOT MATTER 

♦ UNLESS THE OPERATION CODE 

* BECOMES A TERM OR CE SERV STOP 



NOTE 



PRINTING OF A SPECIFIC CHAR 
• DESTROYS RIPPLE PATTERN 



0036 1000 

0037 1000 

0038 1000 



NOP 
NOP 
NOP 



NO OPERATION 
NO OPERATION 
NO OPERATION 



PaRT no. 2196451 
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8A815530 

8A815540 

BAB15550 

eABl5560 

8AB15570 

8AB15580 

8AB15590 

8AB15600 

8AB15610 

8AB15620 

8AB15630 

8AB15640 

8AB15650 

8AB1S660 

8AB15670 

8AB15680 

8AB15690 

8AB15700 

8AB15710 

8AB15720 

8AB15730 

8AB15740 

8AB15750 

8AB15760 

8A815770 

8AB15780 

8AB15793 

8AB15800 

8A815810 

8A815820 

8AB1S830 

8AB15840 

8AB15850 

8AB15a60 

8AB15870 

8AB15880 

8AB15890 

8AB15900 

eAB15910 

eA815920 

8AB15930 

eAB15940 

eAB15950 

8AB15960 

8AB15970 

8AB15980 

8AB15990 

8AB16000 

8A816010 

8AB16020 

8AB16030 

flAB16040 

eAB16050 

8A'316060 

l)A816070 

8AB16080 

8AB16090 

8AB16100 

8AB16110 

8AB16120 

8AB16130 

8AB16140 

8AB16150 

8Abl6160 

8AB16170 

eAB16180 

8AB16190 

8AB1620U 



DATE 
EC NO. 



28FEB66. 
415120 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

AUX 1443 EXERCISER 

39, 52, 63 CHAR BAR FLOATING REGISTRATION EXERCISER 



0039 





1000 


003A 





noo 


003B 





1000 


D03C 





C025 


0030 





00 FT 


003E 





CMO 


003F 





D0C4 



00' 





6107 


0041 





C158 


O'.-A? 





E820 


CC-. » 





0158 


0044 





71FE 


004 5 





70FB 


0046 





0813 


0047 





080E 


0048 





EOOD 


0049 





DOIO 


004A 





FOOB 


004B 


oc 


4C180064 


004D 





COOC 


304E 





F009 


004F 


00 


4C 1 80068 



0051 080A 

0052 00 4C28006A 



0054 

0055 



0056 
0056 
0057 
0058 
0059 
005A 
005B 
005C 
0050 
005E 
005F 

0060 

0061 

0062 

0063 



0809 
7013 



0000 
00 HF 
0760 
OOCF 
0000 
0000 
0001 
7041 
0701 
00A9 
0500 
0000 
0000 
7007 
3000 



NOP 

NOP 

NOP 

LD 

STO 



NN 
/35 



NO OPERATIC 1< 
NO OPERATIC* 
NO DPERATICM 
RESTORE LOC NICE 
• IN AUX LC*DER 



LD DSW PLACE BRANCH 

STO /04 » TO RETUR LABEL 

* 

♦ ADO AREA CODE TO THE I/O COMMANDS 



LDX 
BUILD LO 
OR 
STO 
MOX 
MDX 

* 

RETUR XIO 
XIO 
AND 
STO 
EOR 
BSC 



1 7 

1 CEOFF 

ARE* 
1 CEOFF 
1 -2 

euiLo 



GET IDCC Wf ^0 AND 

♦ OR IN AREA AND 

• PLACE BACK. 



ALL BUT 1ST PASS ENTRY POINT 



LD 
EOR 

BSC 

XIO 
BSC L 



CEOJ* 

SEfilSI 

SE«<3I 

CEOH 

SEN3I 

NOTRD,*- 

CEOM 

CEOFF 

GSTa,*- 

DSW 
TXFSC,*Z 



SENSE CE SW TO ACCUM 
BLOCK OUT PROG S£L SW 



BR OUT OF PROGRAM 



BR CE servi:e stop 

SENSE DEVIC; STATUS 
BR TRANSFER COHP INT 



♦ PRI«fT INT ROUTINE 

PRCOM XIO 1NI52 1443 INIT WRITE OP 

MDX SAVe2 

* 

• CONSTANTS AND/OR lOCC WORDS 



BSS 

SENBI DC 

OC 
CEOFF DC 

DC 
CEON OC 

DC 
PSW DC 

OC 
INI52 DC 

DC 
SER DC 
SAW DC 
NN DC 
AREA DC 
* 
* 





/OOFF 

/0763 

/OOOF 

/OOOO 

/0OC.O 

/OOOI 

TTTT 

/OTCl 

TBL52 

/0500 





HHtiH 

/3000 



END COMMAND COMPARE 
SENSE CE SWITCHES 

CE OFF WORD 
CHAR VORK LOC 
CE ON WORD 

DSW WORD 

INIT WRITE 



1ST 1443 AREA CODE 

• CHANGE THIS VALUE fa« A 

• DEVICE ON ANOTHER ARE* 



* 

* EXIT POINTS TO AUX LOADER 

* ************************* 

* 

* TERMINATE EXIT POINT 
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SAB16340 
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8A316370 
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eA&16390 

eAB16400 
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8AB1643!> 

3AB16440 

8AB16450 

8*816460 

8A316470 

8AB16480 

8*B16490 

8AB16500 

8*B16S10 

8AB16520 

8AB16530 

eA916540 

8A816550 

8AB16560 

eAB16570 

SAB]65eO 

8AB16590 

8AB16600 

8Atll6610 

8AB16629 

8A816630 

eAB16640 

8AB16650 

8AB16660 

8AB16670 

8AB16689 

BAB 1 6690 

8AB16703 

8AB16710 

8*B16.'20 

8*B16730 

e*B16740 

8AB16750 

8AB16760 

SAB16770 

eAB167t>0 

8AB16790 

8AB16800 

8AB16810 

8AB1682C 

8A8168 30 

8AB16840 

6*816850 

8*816860 

8*816870 

8*B16880 
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17A 



0064 00 65000813 

0066 6990 

0067 08F0 



0068 08F3 



0069 70A3 



NOTRD LOX LI WWWW 
STX 1 /04 
XIO 

« 



006A 
006B 
006C 
006D 
006E 
006F 

0070 

0071 

0072 00 
0074 CO 



18SD 

D0F4 

COED 

1882 

DOEB 

1010 

1082 

0001 

65000000 

40800076 



0076 0098 

0077 0086 

0078 007A 

0079 0082 



007A COOF 

007B 1008 

007C E80D 

0070 61B8 

007E 00 D50000F2 

0080 7101 

0081 70FC 



0082 CODO 

0083 00 4C040054 
0085 70E3 



* 

GSTR XIO 

* 



SAVE2 HDX 



CEOFF 

CE SERVICE EXIT POINT 

DSW 

NORMAL EXIT POINT 



OQQQ EXIT TC AUX LOADER 

****:*l*tt«** t: *********** ti**»*^1l»H:tt >*»**»* »*»t^» 

* 

TRANSFER COMP INT 



* 

TXFRC SRT 
STO 
LO 
SRT 
STO 
SLA 
SLT 
STO 



13 

SER 

CEON 

2 

CEON 

16 

2 

A+1 

LOX LI 

8SC II GOTA 



TEST FOR PRINT 

» INTERRUPT LATER 



GOTA DC 
DC 
DC 
DC 



CAME 

REVER 

REBIT 

GONE 



BR TO SH OPTION 

NOB><AL RIPPLE 
REVERSE RIPPLE PATTN 
READ BIT SWITCHES 
LOCK ON LAST LINE PR 



PRINT SW CHARACTER 



* 

• 

REBIT LD 
SLA 
OR 
LOX 



CEON 
8 

CEON 
1 -72 



RPT 



STO LI TBL52»73 



MDX 11 

MOX RPT 

♦ 

• LOCK ON ROUTINE 

* 

GONE LO SER 

BSC L PRCOM.E BR PRINT COMP INT 

MOX SAVE2 
****** ****«****1f**»*t**»»^»^tt0t^t*»*»**tt»»t» 

♦ 









• 






REVERSE 1 


0086 





61B9 


REVt-R 


LOX 


1 


-71 


0087 


00 


C50000F1 




LO 


LI 


TBL52+72 


0089 





0007 




STO 




SAW 


008A 





1390 




SRT 




16 


008B 


00 


C50000F2 


LOOP 


LD 


LI 


TBL52+73 


008D 





18C8 




RTE 




8 


008E 


00 


050000F1 




STO 


LI 


TBL52*72 


0090 





1388 




SRT 




8 


0091 





7101 




HDX 


1 


1 


0092 





70F8 




MOX 




LOOP 


0093 





COCO 




LD 




SAW 


0094 





18Cfi 




RTE 




8 


0095 


00 


D40000F1 




STO 


L 


TBLS2+72 
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70EA 
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0OA8 
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00A9 
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00A8 

OOAC 

OOAO 
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OOAF 

OOBO 

OOBl 

0082 

00B3 

D0B4 

0035 

00B6 

0037 

00B8 

0039 

UOBA 

OOBB 

OOBC 

0080 

OOBE 

OOBF 

OOCO 

OOCl 

00C2 

00C3 

00C4 

00C5 

00C6 

00C7 

00C8 

00C9 

OOCA 

00C8 

OOCC 

OOCO 

OOCE 

OOCF 

0000 
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0002 

0003 

0004 

0005 

0006 

0007 

0008 
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* 
* 
CAME 



SOOP 



FORWARD ROUTINE 

LOX 1 71 

LD 11 TBL52< 

STO SAW 

SRT 16 

LO LI TBL52 

RTE 24 

STO LI TBL52+1 

SLT 8 

MOX 1 -1 

MDX SOOP 

LO SAW 

SLT 8 

STO TBL52+1 

MOX GONE 



TBL52 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
OC 
OC 
OC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
OC 
OC 



72 

/3838 

/3838 

/3838 

/3838 

/3838 

/3833 

/3838 

/3838 

/3838 

/3838 

/3838 

/383e 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3838 

/3833 

/3826 
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/3838 
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/3838 

/3838 

/3838 
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H 
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H 

H 

H 
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H 

H 
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H 
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H 

H 

H 

H 

H 

H 

H 

H 

H 
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8AB17570 

8A817580 

8AB17590 

8A&17600 

8AB17610 

8AB17620 

8AB17630 

8A317640 

8AB17650 

8A817660 

8A317670 

8A317680 

8AB17690 

8AB17700 

8AB17710 

8AB17720 

8AB177 30 

8AB17740 

8AB17750 

8AB17760 

8AB17770 

8AB17r80 

8AB17790 

8AB17800 

8A817810 

8AB17820 

8AB178J0 

8AB17840 

eAB17850 

8AB17860 

8AB17870 

8ABt7880 

8AB17890 

8AB17900 

8A317910 

8A917920 

eABI7930 

8A317940 

8AB17950 

8A317960 

8AB17970 

8AB17980 

8AB17990 

8AB18000 

8AB18010 

8AB18020 

8AB18030 

8AB18040 

8AB18050 

aABia060 

8AB18070 

SABiaOBO 

8AB18090 

PABISIOO 

8AB16110 

8AB18120 

6AB:31)0 

SABtai40 

BABlSiSO 

eAB18160 

eAElBt70 

8AG18iaO 

8Aai8190 

8AB18200 

8ABt8219 

8AB18220 

8AB18230 

8AB18240 
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IBM KAlNTEKANCt Olii'iOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX 1443 EXERCISE!? 

i9, 5?, 6J C^AR otA FLOATING REGISTRATION EXERCISER 



CODA 





383e 


003B 





383S 


OODC 





353S 


OODO 





3838 


OOOE 





3a3S 


oo:>F 





3633 


OOEO 





3939 


OOF I 





3338 


00E2 





3938 


00E3 





39 38 


00E4 





3833 


00E5 





333S 


00E6 





3338 


0OE7 





333B 


00E8 





33 38 


0OE9 





3938 


OOEA 





3838 


DOtB 





383S 


OOEC 





3838 


COED 





3333 


OOEE 





3838 


OOEF 





3838 


OOFO 





33?6 


OCF! 





2626 


0000 






7007 






0813 






7041 







DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
OC 
DC 
OC 
DC 



EOU 
EQU 
EOU 
EOU 



/3a38 
/3833 
/3838 
/3638 
/3838 
/3838 
/3838 
/3838 
/3838 
/3838 
/3838 
/3838 
/3838 
/3838 
/3838 
/3838 
/3838 
/3838 
/3838 
/3338 
/3838 
/3838 
/3326 
/2626 



03F2 



OOFl 



QQOQ 
NNNN 
WWMW 
TTTT 

♦ 

END 
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H, H 
H, H 
H, H 
H, H 
H, H 
H, H 
H, H 
H 
H 
H 
H 
H 
H 
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H, H 
H, H 



H, 
H, 
H, 
H, 
0, 



/D GO TO LOADER AT /O 
/70D7 FOR CARD LOADER AT /35 
/0813 SET IN LOADER AT /04 
/7000tRETUR-/4-l THIS IS EOUAL TO 
THE iCANCH 'ROM THE LOADER 
TO RETUR IN THIS PROGRAM. 

»-l END CARD NEVER USED 
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ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

AUX 1443 EXERCISER 

39, 52, 53 CHAR BAR FLOATING REGISTRATION EXERCISER 
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0045 
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SYMBOL 


va;.ue 


A 


0072 


AREA 


0053 


BUILD 


0041 


CAME 


0098 


CEOFF 


0058 


CtON 


005A 


DS^I 


005C 


GONE 


0082 


G TA 


00 76 


GSfi. 


0068 


1NI5.. 


005E 


LOC 


008B 


NN 


0062 


NNNn 


7007 


NJTRD 


0064 


PRCOM 


0054 


OQOO 


ODOO 


RE3IT 


007A 


RETUR 


0046 


REVER 


0086 


RPT 


007E 


SAVE2 


0069 


SAW 


0061 


SENS' 


0056 


SER 


0060 


SOOP 


0090 


TBL52 


00A9 


TTTT 


7041 


TXFRC 


006A 


WWUW 


0013 
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PARAGRAPH 

1. PURPOSE 

l.l 
1.2 
1.3 



PAGE 

01 



PURPOSE - 7 CARD EDIT AND PUNCH PROGRAM 
PURPOSE - AUX 1 CARD EDIT AND PUNCH PROGRAM 
PURPOSE - AUX JOEVICE) SKELETON PROGRAMS 



2. PREREOUISITES 

2.1 SEPARATE CARD DECKS 
Z.2 PROGRAM REQUIREMENTS 
2.3 PROGRAM REQUIREMENTS 



. 01A 



7 CARD EDIT AND PUNCH 
AUX 1 CARD EDIT AND PUNCH 



3. USE PROCEDURE 
3A. USE PROCEDURE 



7 CARD EDIT AND PUNCH 



«2 
0t 



3.1 CALCULATE THE CHANGES TO BE MADE 

3.2 EDITING AN EXISTING AUX DIAGNOSTIC PROGRAM 

3.3 ESITING Mi EXIST!** AUX DIAf iOSTIC LOADER 
POSSIBLE ERRORS 



3.« 

36. USE PROCEDURE 



AUX 1 CARD EDIT AND PUNCH 0; 



(Ik 



3-1 EDITING AN EXISTING AUX DIAGNOSTIC PROGRAM 

3.2 PREPARE CARD DECK 

3.3 LOADING AND PUNCHING 
3.* TERMINATING PROCEDURE 

3C. USE PROCEBURE - AUX tOEVICE! SKELETON PROGRAMS 

5. COMMENTS (NOT APPLICABLE! 
«. PRINTOUTS (NOT APPLICABLE) 

6. APPENDIX (NONE) 

I. PURPOSE 

THE PURPOSE OF THE AUX PROGRAM GENERATOR UTILITY PROGRAM IS TO SUPPLY THF 
NECESSARY EDIT AND PUNCH PROGRAMS FOR THE C.E. TO CHANGE 

(MODIFY) AN EXISTING AUX PROGRAM DECK (7 CARDS). THF AUK PRfirSAK rnucoAsna 
UTILITY PROGRAM CONSISTS OF THE FOLLOwInG PrSgrImIInuTLEO- «^="^«"''« 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
AUX PROGRAM GENERATOR UTILITY PROGRAM 

1.3 PURPOSE - AUX DEVICE SKELETON PROGRAMS. 

THE PURPOSE OF THESE PROGRAMS ARE TO PROVIDE A SASE (TAILORED TO 
VARIOUS DEVICES) UPON WHICH THE CE MAY WRITE HIS OWN AUX PROGRAM':, 
(THE AUX I CARD COIT AND PUNCH PROGRAM ALLOWS FHE CE TO MAKE CHANGES 
TO AN EXISTING AUX PROGRAM WHILE THE CUSTOMERS PROGRAM IS OOERATING 
IN MAIN CORE STORAGE.) 

2. PREREQUISITES 

2.1 SEPARATE CARD DECKS 

J»ru'^n«'^c?T'^L^"^f^'^° "'^" ^"'^ DOCUMENT CONTAINS 15 OBJECT DECKS. 
EACH OBJECT DECK IN THE SUPPLIED CARD DECK IS SEPARATtO BY A BLANK 
CARD. UPON RECEIPT. SEPARATE AND IDENTIFY THE DECKS AS FOLLOWS, 

STARTING AT THE FRONT OF THE CARD DECK REMOVE THE FIRST 16 CARDS 
FROM THE DECK AND OBSERVE THAT THE LAST CAttO RFMOVEO WAS 4 BLANK 
CARD. PLACE A RUBBfcR BAND ApOUND THESE CARD AND IDENTIFY THE 
CARDS WITH THE NAME 

AUX PROG. GEN. UTIL. - 7 CARD EDIT AND PUNCH 

CONTINUE THE SEPARATION PROCESS BY REMOVING THE NEXT 10 CARDS AND 
AGAIr^ OBSERVE THAT THE LAST CARD RtMOVF.D WAS A BLANK CARD. 
IDENTIFY THESE CARDS WITH THE NAME 

AUX PROG. GEN. UTIL. - AUX 1 CARD EDIT ANO PUNCH 

SEPARATE ANO IDENTIFY THE REMAINING DECKS BY REMOVING 8 CARDS 
EACH TIME WHILE AGAIN OBSERVING THAT THE LAST CARD REMOVED FOR 
EACH GROUP IS A BLANK CARD. THE NAMES OF THE REMAINING DECKS 
ACCORDING TO THEIR QRD6R IN THE CARD DECK ARE AS TDLLOWS, 
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7 CARD EDIT ANO PUNCH (UStS ENTIRE 1800 SYSTEM) 
AUX 1 CARD EDIT AND PUNCH (USES AUX STORAGE) 
AUX (DEVICE) SKELETON PROCRAHS. 



AUX 


PROG. 


GEN. 


UTIL. 


-AUX 


PROCESSORS 


AUX 


PROG. 


GEN. 


UTIL. 


-AUX 


1ST 1053 SKEL 


AUX 


PROG. 


GEN. 


UTIL. 


-AUX 


2ND 1053 SKEL 


ftUX 


PRQG. 


GEN. 


UTIL. 


-AUX 


3Rn 1053 SKEL 


AUX 


PROG. 


GEN. 


UTIL. 


-AUX 


«TH 1053 SKEL 


AUX 


PROG. 


GEN. 


uriL. 


-AUX 


lOS'i./SS SKELE 


AUX 


PROG. 


GEN. 


UTIL. 


-AUX 


1«A2 SKELETON 


AUX 


PROG. 


GEN. 


UTIL. 


-AUX 


I'V'tS SKELETOfJ 


AUX 


PROG, 


GEM. 


UTIL. 


-AUX 


1627 SKELETON 


AUX 


PROG. 


GEN. 


UTIL. 


-AUX 


1816 SKELETO^J 


AUX 


PROG. 


GEN. 


UTIL. 


-AUX 


1ST 2310 SKEL 


AUX 


PROG. 


GEN. 


UTIL. 


-AUX 


2N0 2310 SKEL 


AUX 


PROG. 


GEN. 


UTIL. 


-AUX 


3RD 2310 SKEL 



1.1 PURPOSE - 7 CARD EDIT ANO PUNCH PROGRAM 

InMru"r°!^ S*" ^"'* PROGRAM IS TO ENAOLE THE CUSTOMER ENGINEER TO 
imc ■,on?»!^„\'^*'*'' *"* P«eCI»AH DECK WITH DESIRED PROGRAM CHANCES. 
Inlnr ^SfcT^^"?"*-" "^ "^^" ""^'^ '"<= l«0» ^'^STEM IS INSTALLED TO 
ASSIGNED ArJa codes'' '^^ '"^'^ "" "^VICES EMPLOYING CUSTOMER 

1.2 PURPOSE - AUX 1 CARD EDIT AND PUNCH. 

THE PURPOSE OF THIS AUX PROGRAM IS TO ENABLE THE CUSTOMER PM-.IMFFS Tfi 
PUNCH ONE NEW CARD OF A 7 CARD AUX PRoIrAH DECK «ITH SesJrIS PROCRaJ 
CHANGES. BY MEANS OF THIS PROGRAM IT IS POSSIBLE TO OBTA N A NEW 7 
CARD AUX PROGRAM DECK BY MAKING 7 SEPERATE PASSES. '™ * '**'^ ^ 



ETON PROG. 
ETOM PROG. 
ETON PROG. 
ETON PROG. 
TON PROG. 

PRQG. 

PROG. 

PRQG. 

PROG. 
ETON PROG. 
ETON PROG. 
ETON PROG. 

2.Z PROGRAM BEQUIREMENTS - 7 CARD EDIT ANO PUNCH. 

lYlTirinlT^«?°cnnILcn'^ulf'^'°" "''^ ""TROL SYSTEM IS PEQUIREO ANO THE 
SYSTEM MUST BE EQUIPPED WITH A 14<,2 CARD READ/PUNCH. „_ 

NOTE 

IF THF 1442 USES A CUSTOMER ASSIGNED ARgA CODE A HEX 
CORRECTION CARD MUST BE MADE UP ACCORDING TO THE STANDARD 
FORMAT SHOWN IN SECTION 3.2.1. THE CORE LOCATION REFERRED TO 
AS AREA IN THIS PROGRAM LISTING MUST BE CHANGED TO THE 
CUSTOMER ASSIGNED l'iA2 AREA CODE. THE CORRECTION CARD 
CONTAINING THIS CHANGE MUST BE INSERTED PRIOR TO THE 
7 CARD EDIT ANO PUNCH PROGRAM END CARD. 
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2.3 PROGRAM REOUIRHHENTS - AUX I CARD EDIT AND PUNCH 

THE AUX DIAGNOSTIC LOADER MUST BE IN AUXILIARY - STORAGE BFFORE THE 
AUX 1 CARD EDIT AND PUNCH PROGRAM CAN BE LOAOtn. IN ADDITION, A 
PROGRAM MUST 8E IN MAIN-CORE RUNNING OR AT A WAIT INSTRUCTION KEAOY 
TO START RUNNING. 

3. USE PROCEDURE 

3A. USE PROCEDURE - 7 CARD EDIT AND PUNCH 

3.1 CALCULATE THE CHANGES TO BE MADE FOR A PARTICULAR AREA CODE. 



A. 

B. 
C. 



E. 



OBTAIN LISTING OF PROGRAM TO BE EDITED. 

IN THE SYMBOL TABLE OF THE LISTING, LOCATE THE LABEL 'AREA'. 
WRITE DOWN ALL THE LOCATIONS REFERENCED BY THE LABEL "AREA*. 
AND PREPARE A HEX PATCH CARD. (REFER TO 3.2.1 - A-A». THIS COULD 
ALSO BE CHANGED BY THE AUX I CARD EDIT PORTION OF THIS PROGRAM 
(REFER SECTION 3BJ. IF AREA IS AN EOU STATEMENT PROCEDE TO 
STEP 0. 

LOCATE ALL THE LOCATIONS IN THE LISTING THAT ARE REFERENCED BY 
THE LABEL "AREA". 
PROCEED AS FOLLOHS- 

EXAMPLE 

ASSUME THE FOLLOWING CONDITIONS- 
OLD AREA CODE " 1800 (AREA 3), 
NEW AREA CODE « 2000 (AREA 41, 
LOCATIONIS) REFERENCED « 00B5, ETC., 
CONTENTS OF REFERENCED LOCATIONISI » IFQO, ETC., 

1. SUBTRACT OLD AREA CODE FROM THE CONTENTS OF EACH REFERENCED 
LOCATION (E.G., lFOO-1800 = 0700). 

2. ADD NEW AREA CODE TO THE DIFFERENCE OBTAINED IN STEP 1. 
(E.G., 0700 ♦ 2000 « 2700J. 

F. CALCULATE CHANGES FOR EACH LOCATION TO BE, CHANCED AS SHOWN IN THE 
ABOVE EXAMPLE. . 

3.2 EDIT THE EXISTING PROGRAM AS FOLLOWS- 

THE FOLLOWING STEPS OUTLINE THE EDITING PROCEDURE. 00 NOT ALTER 
EXISTING AUX OBJECT DECK (BY MEANS OF A KEYPUNCH) AS THE CHECK-SUM 
ROUTINE IN THIS PROGRAM WILL PREVENT THE CARDS FROM LOADING. 

3.2.1 PREPARING CARD DECK 

A. OBTAIN THE FOLLOWING DECKS AND CAROS- 



1. CYCLE-STtAL LOADER DECK. (PID 08BI). 

2. THE 7 CARD EDIT AND PUNCH PROGRAM DECK. ENSURE THAT THE BLANK 
END CARD HAS BEEN REMOVED. 

3. AUX OBJECT DECK TO BE EDITED. ENSURE THAT THE BLANK END CARD 
HAS BEEN REMOVED AND THAT THE 7 CARDS UF THE PROGRAM TO BE 
EDITED ARE IN CORRECT ORDER. 
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B. 



4. PREPARE THE CORRECTION OVERLAY CA)IDS AS FOLLOWS- 
COLUMN FIELD OESCKIPriON 

1 12 PUNCH 

2 THRU 5 ADDRESS WHERE FIRST CORRECTION IS TO BE PLACED 
6 BLANK 

T THRU 10 FIRST CORRECTION WORD 

11 BLANK 

12 THRU 15 SECOND CORRECTION WORO 

16 BLANK 

17 AND ON UP TO 15 CORRECTION WORDS CAN BE PUNCHED IN ONE 

CARD. ENTER CORRECTION WORDS AT SUCCESSIVELY 
HIGHER ADDRESSES FULLOMINC THE FIRST CORRECTION- 
UORD ADDRESS. 

NOTE 

ALTHOUGH HEXADECIMAL-FORMAT CORRECTION CARDS ARF NORMALLY 
USED, THE CORf(ECTION CARDS CAN ALSO BE PUNCHED IN 
STANDARD 12-4 BINARY FORMAT. 

5. NINE OR MORE BLANK CARDS. 

COMPILE THE CARDS SPECIFIED IN STEP A INTO A DECK, ORGANIZING THE 
CARDS AND DECKS IN THE ORDER THAT THEY ARE LISTED IN STEP A. 



3.2.2 LOADING AND PUNCHING 

LOADING AND PUNCHING IS ACCOKPLISHtO IN OME CONTINUOUS OPERATION. 
PROCEED AS FOLLOWS- 



A. DEPRESS NPRO PUSHBUTTON OF 1442 TO EJECT ANY CARDS LEFT IN THE 
MACHINE. 

B. PLACE CARD DECK COMPILED IN PARAGRAPH 3.2.1 INTO THE HOPPER OF 
THE 1442. 

C. PRESS 1442 START PUSHBUTTON. READY INDICATOR SHOULD LIGHT. 

D. TURN OFF IDOWN) AT LEAST ONE SENSE/PROGRAM SWITCH OF 1800 P-C 
CONSOLE. 

E. PRESS RESET PUSHBUTTON AND THEN THE PROG LOAD PUSHBUTTON OF THE 
1800 P-C CONSOLE. THE 1442 SHOULD BEGIN TO READ CARDS. CARD 
PUNCHING SHOULD COMMENCE WHEN THE BLANK CARDS REACH THE PUWCH 
STATION OF THE 1442. 



3.3 EDITING AN EXISTING AUX DIAGNOSTIC LOADER 



Iv^,^?.'-'-°^"*°^^"'*^ OUTLINE THE EDITING PROCEDURE. DO NOT ALTER THE 
^«.'.!!'^'^ *"'' OBJECT DECK (BY MEANS OF A KEYPUNCH) AS THE CHECK-SUM 
ROUTINE IN THIS PROGRAM WILL PREVENT THE CARDS FROM LOADING. 

3.3.1 PREPARING CARD DFCK 

OBTAIN THE FOLLOWING DECKS 



I. 
2. 

3. 



CYCLE-STEAL LOADER DECK (PID OBBll MUST BE IN AUX STORAGE. 

Jm^ J.?**"* ^" *''° ''"**^** PROGRAM DECK. INSURE THAT THE BLANK 
END CARD HAS BEEN REMOVED. 

n^K.^oL^J.^S""""^ LOADER, INSURE THAT THE BLANK END CARD HAS 

CORRECT ORDER ^**" ^**^ ''°"'* *^*'"'^ °^ ^"^ LOADER AR6 IN 
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'I. PREPARE THE CORRECTION OVERLAY CAROS AS FOLLCHS- 

COLUMN FIELD DESCRIPTION 

I 12 PUNCH PLUS ONE W THE FOLLOHING- 

n* i^oflMi'E" ""^'^ EOMING FIRST BOOTSTRAP CARD. 

B. PUNCH WHEN EDITING SECOND BOOTSTRAP CARoI 

C. I PUNCH UHEN EDI I INC CARDS CONTAINING THE 
ACTUAL AUX LOADER. 

ADDRESS WHERE FIRST CORRECTION IS TO BE PLACED 

BLANK 

FIRST CORRECTION WORD 

BLANK 

SECOND CORRECTION WORD 

BLANK 

UP TO 15 CORRECTION WOkOS CAN BE PUNCHFO IN ONE 
CARD. ENTER CORRECTION WORDS AT SUCCESSIVELY 

"oro"dores""^ following the FIAST CORRECTION- 

5. SIX OR MORE BLANK CARDS. 

cA°R"^iiNr^E^jr^N^^^^'^^^L'?H^T"r^^Y'^j^*,^?^^',r^?^^'r%;:^^ 

ToA^Ed""" °' '"' CYCLE-STEAL tOAOER'oECK^^^';.^Fl::sf ^'Lo'TrL 
3.3.2 LOADING AND PUNCHING 

PROCEED AS°F0lT0WS-° *"' ACCOMPLISHED IN ONE CONTINUOUS OPERATION. 



3.2 



PREPARE CARD DECK 



A. 



OBTAIN THE FOLLOWING DECKS AND CAROS, 



2 THRU 5 

6 

7 THRU 10 

U 

12 THRU 15 

16 

17 AND ON 



1. 
2. 



3. 

4. 



S=v ?LI^5 ' *"'' *"'C'iR*1 CARDS BEING CHANGED 

HEX CORRECTION CAROS ISTANOARO FORMATl 

THESE CAROS MUST ADHERE TO THE FOLLOWING FORMAT 



B. 



COL. 

1 
2-5 

6 

?-lO 

11 

12-15 

16 

ETC. 



A. 
B. 

C. 
D. 

F. 



F. 



DEPRESS NPRO PUSHBUTTON TO EJECT ANY CARDS LEFT fM TMt MAruiue 
PLACE-CARD DECK COMPILED ,N PARlGRA?H'5!3!liN"o'?HrHOPpi"'SI* 

fSR^ormorirj cV?!!?"!^""* """^ INDICATOR SHOULD LIGHT. 
CONSOLE. SENSE/PROGRAM SWITCHES OF 1800 P-C CONSOLE 

1800%-l^lnN^n?p°"I!r'* *"" ^"^^ ^"^ ''•*°<^ «-"*0 PUSHBUTTON OF THE 
1800 P-C CONSOLE. THE l««2 SHOULD BEGIN TO READ CARD*; r»pn 

STA'noN'ol"?HE"i"2:''" ""''* '"' '''"' c?rd"reacS°^;e pu5?h 

LABEL THE NEW AUX PROGRAM OFCK FOR FUTURE IDENTIFICATION. 



B^ 



FIELD DESCRIPTION 

12 PUNCH 
ADDRESS WHERE 1ST CORRECTION GOES 
BLANK 
FIRST CORRECTION WORD 

BLANK 
SECOND CORRECT IDN WORD 
BLANK 
rLl° it CORRECTION WORDS CAN BE PUNCHED IN ONE 
CARD. CORRECTION WORDS ARE ENTERED AT 
SUCCESIVELY HIGHER ADDRESSES FOLLOWING THF I<;t 
CORRECTION WORD ADDRESS '^"•-'-UWING THE iST 

5. ONE BLANK CARD. 

t* rt^il NUMBERED 6 AND 7 OF THIS AUX PROGRAM. 

7. THREE OR MORE BLANK CAROS. 



3.3 LOADING AND PUNCHING 



-CAUTION- 



3.4 



POSSIBLE ERRORS 

IF THE EDITING AND PUNCHING PROGRAM FAILS 10 PUNCH THP nFoiiiocn 
NUMBER OF CARDS. TWO ERRORS MAY HAVE OCCURRED. RMU'REO 

A. 



B. 



PROGrIS ?n"'lTnp''»T\''*I^^'* '° '*"'' '" CORRECTLY, CAUSING THE 
PROGRAM TO STOP AT A WAIT INSTRUCTION. THE ERROR MAY H&VF ncciu 
CAUSED BY ENTERING CORRECTIONS DIRECTLY INlbTHE B-l SbjIc? npr^ 
InOIcJuSn? '•°°"* CONTINUOUSLY TeIt.NG fSr^'i'^-RE^y"' "'"' 



DO NOT ATTEMPT TO LOAD THIS PROGRAM IF THE CARD READFa ^h.bcc . 
CHANNEL WITH ANOTHER DEVICE WHILE THAT D;:VICE ^S OPERATINg! 

LOADING AND PUNCHING IS ACCOMPLISHED IN ONE COHTINOOUS OPERATION. 

NOTE 

ViLicf ?ii'^!;'°SIi5„'-°*°" ""^^ »f PRESENT IN AUX CORE 
STORAGE ANO A PROGRAM MUST BE IN ilAiN CORE RllNMlmr no »t 
A WAIT INSTRUCTION READY TO START RU-JsINg! 

PROCEED AS FOLLOWS, 



3B. USE PROCEDURE - AUX 1 CARD EDIT AND PUNCH 



3.1 



THrF0Linw.N?'^«o5 AUXILIARY-STORAGE DIAGNOSTIC PROGRAM 
OF THF 7 M,^ Donro!-°^^*-'^" ^"^ EDITING PROCEDURE. 00 NOT ALTER ANY 
OF THE 7 AUX PROGRAM CARDS BY MEANS OF A KEYPUNCH AS THF CHFric-^iii 
ROUTINE IN THIS PROGRAM WILL PREVENT THE cIrOS FROM LOAOiSg! 



A. 

B. 

C. 
D. 

E. 
F. 



BE SORE THE 1442 IS AVAILABLE AND ALL CARD5 ABF PFxnucn 

"pReIs IhF fF^fFuJf'Lr"*"^""'"'- "^'"^ IMOICATOR SHOULD LIGHT. 
utPRESS THE CE LEVEL INTERRUPT PUSHBUTTON inrj rp damci i rn • X.i 
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C. IF THE PREPARED CARD DECK DID NOT LOAD AND PUNCH, ONE OF THE 
FOtLOHlMG THIMeS MA It HAVE OCCURRED, 



1. 



2. 



}. 



nuP ?n\h?*?ucr?*I "*^^ "EJECTED ANY ONE OF THE FIRST T CARDS 
CARD sequence! «0"nNE OF THE lOADER. CHECK FOR PROPER 
THE PARTICULAR AUX CARD BEING EOITFO MAV HAVE BEEN REJECTED 
DUE TO THE CHECK-SUM ROUIINE LOCATED IN THE AUX I CARD 
EDIT AND PUNCH PROGRAM. REJECTION OF THIS CARD WILL RESULT IF 
^PVPnSJi?''' *" '"'■*"'' "IRECTLY INTO THE CARD I b5 MEANS OF i 
THE INFORHATION CONTAINED IN THE HEX CORRECTION CARDS MAY BE 

Bpl^r'^fnl^L"""'*^'^" '^^^^^ f^"" ^"f PARTICULAR AUX CARD 
BEING EDITED. THE TABLt BELOW INDICAIES THE ALLOWABLE RANGE 
OF CORRECTION CARD ADDRESSES FOR EACH OF THE 7 AUX PROGRAM 
L AH Ds 9 



AUX CARD NUMBER 

X 

1 
2 

3 
♦ 
S 



RANGE OF 
ALLOWABLE CORRECTION ADDRESS 
0036 THRU 0050 
0051 THRU 006S 
006C THRU 0086 
0087 THRU OOAl 
Q0A2 THRU 003C 
006D THRU 0007 
OOOe THRU OOFO 



4. 



CARDS NUMBERS 6 &«0 T OF THE AUX 1 CARD EDIT AfH) PUNCH 
PROGRAM MAY BE JUT OF SEQUENCE. 

NOTE 

REGARDLESS OF THE PROSLEM THAT MAY HAVE fROHIBITED THE 
PUNCHING OF A NEW AyX CARD THE AUX LOAOER WILL BE READY IS 
READ IN A NEW AUK PROGRAM. TO TRY AgAIN RETURN TO %n^ A. 

3.4 TERMINATING PROCEDURE 

THERE SS NO tERMINATION PROCEDURE NECESSARY AFTER OPERATING THIS 
PROGRAM. TO OFFSET THE POSSIBILITY THAT fHE 1442 MIGHT EE 

<f.rrp^rlil°^i^? I"^ ""^ "^"^^ ^"* '8°° "STEM IS SERVICEO. IT IS 
SUGGESTFO THAT THE AUX 14«2 PACKED RfcAO DIAGNOSTIC PROGRAM 3E LSADED 
TO DOCUM NTArInN'^n»'!. "/"' CONCLUSION OF EACH SERVICE CALL. REfIr 
tOAS'pROCEoSREs!" *"' "" "*"'" ""^ DIAGNOSTIC PROGRAM FOR 

3C. USE PROCEDURE - AUX IDEVICEJ SKELETON i>ROGRAMS. 

NECFS^ARrin%^?c2?!?f "^ITAINS THE BASIC PROGRAMMING INSTRUCTIONS 
NECESSARY TO INTERFACE WITH THE, AUX OIAGNOSIIC LOADER. THE AUX 
SKELETON PROGRAM PERTAINING TO A PARIICULAR DEVICE SHOULD BE USED 
WHEN WRITING AN AUX PROGRAM FOR THAT DEVICE. THE LISTINGS FOR THE AUX 

PROGRlMMIN^^iFFaRV-'^J*!^ ^'^^ ""^^" °" "^^" TO aIS^hI^CE « HIS 
FOMDwrn A^ V/,?uh II II «"P°«TANT THAT THESE COMMENTS ARE READ AND 
A^PBcEr/Jn tic"2nJS ?° ^" "*^ ADVERSELY AFFECT CUSTOMER OPERATION. 
JourL'S^CEV^PROGR^MMlNl ^ScCESs! ""^'°'' '''°'"' ''''''" "*'^''"" 

A. ALTER ONLY WORDS IN THE AUX SKELETON PROGRAMS LOCATED AT 0061 
THRU OOFD 

B. *'-|***S EXIT TO^CUSTOMERS PROGRAM BY BRANCHING TO THE LOCATIQ!* 

^' u?.."°I.o?'^"^"'^^ *^^ ^''^"'^ "^"O"* "-OOPS IN AUX STORAGE AS THIS 
HILL BLOCK OPERATION OF THE CUSTOMERS MAINLINE PROGRAM. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FO^HE I 



92BC 

0CE4 1000 



ABS 
0$6 



3300 



AREA DC /lOOO 1ST 1*42 AREA CODE 

• IF THIS PROG IS TO BE USED FOR A MACHINE 

• WITH A OIFF AREA CODE THE CONTENTS AT THE LOCATN 

• REFERRED TO AS AREA MUST BE CHANGED BY A 
« STANDARD HEX CARO OVERLAY INSERTED PRIOR TO THIS 

• P1?0CRAHS 12-4 OBJECT DECKS END CARD 






7 CARO EDIT AND PUNCH 

*»»•«*»♦»»»»♦•»»»»♦»» 



• THIS PROG IS OPERATED IN MAIN CORE AND REQUIRES 

• * THE ENTIRE 1800 SYSTEM 

• 

• PURPOSE 

• TtllS PROGRAM ALLOWS THE CE TO MAKE CHANGES TO 

• A-H EXISTING AUX 8-8 C <IRD DECK BY MEANS OF CARO 

• OVERLAYS. AMD OBTAIN A NEW AUX 8-8 DECK IT CARDS! 

• 

• OPERATING INSTRUCTIONS TO CONVERT AN EXISTING 

• • AUX 8-8 PROG CARD DECK 

• MAKE SURE THAT AT LEAST ONE OF THE EIGHT 

• * CONSOLE PROG AND SENSE SWITCHES ARE OFF 

• LOAD CARO DECK ASSEMBLED IN ORDER SHOWN BELOW 

• I. CYCLE STEAL LOADER 

• 2. THIS PROGRAMS 12-4 OBJECT DECK 

• 3. THE AUX 8-8 OBJECT DECK Of AUX PROG TO BE 

• * MODIFIED (7 CARDS IN CORRECT DRDERJ 

• 4. HEX OVERLAY CARDS (STANDARD FORMAT. 

• THESE CARDS MUST ADHERE TO THE FOLLOWNG 

* 

• COL. FIELD DESCRIPTION 

• 1 12 PUNCH 

• 2-5 ADDRESS WHERE 1ST CORRECTION GOES 

• 6 BLANK 

• 7-10 FIRST CORRECTION WORD 

• 11 BLANK 

• 12-15 SECOND CORRECTION WORD 

• - 16 BLANK 

• ETC. UP TO 15 CORRECTION WORDS CAN BE 

• PUNCHED IN ONE CARO, CORRECTION 

• WORDS ARC ENTERED AT SUCCESIVELY 

• HIGHER ADDRESSES FOLLOWING THE 

• 1ST CORRECTION WORDS ADDRESS. 

• 5. BLANK CARDS 



IM»£RATINC INSTRUCTIONS TO CONVERT AN EXISTING 
• AUX 8-3 LOADER CARO DECK 

MAKE SURE THAT ALL OF THE EIGHT 

♦ CONSOLE PROG AND SENSE SWITCHES ARE ON 

THE METHOD TO BE FOLLOWED IS IDENTICAL 
TO THE AJX 8-8 PROG CONVERTION PROCEDURE 
EXCEPT THAT AN ADDITIONAL PUNCH MUST BE 
PLACED IN COL I OF HEX OVEPLAY CARDS AS 
• SHOWN BfLOU 

X PUNCH CORRECTION FOR 1ST 
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EC NO. 



28F£e6« 
415129 



8AC0OOO0 

8AC000I0 

8AC00020 

8AC00030 

8AC00040 

8AC00050 

8AC00060 

8AC00070 

8AC00080 

8AC00090 

8AC00100 

8AC00110 

8AC00120 

8AC00133 

eAC00140 

8AC00150 

8AC00160 

8AC00170 

8AC0O180 

eAC00190 

8AC002C0 

8AC00210 

8AC00220 

8AC00230 

8Ar00240 

8AC00250 

8AC00260 

8AC00270 

8AC00280 

8AC00290 

8AC0030a 

SACC0310 

8AC00320 

eAC00330 

8AC00340 

8AC0035e 

8AC00360 

8AC00370 

8AC003BO 

8AC00390 

eAC00400 

8AC00410 

8AC00420 

8AC00430 

8AC00440 

8AC004S0 

BAC00460 

8AC00470 

8AC00480 

8AC00490 

8AC0050a 

8AC00510 

8AC00520 

8AC00530 

8AC00540 

8AC00550 

8AC00560 

8AC00S70 

8AC00S80 

8AC00590 

8AC00600 

8AC00610 

8AC00620 

8AC00630 

8AC00640 

8AC006S0 

8AC00660 

8AC00670 
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OCES 





FFFF 


0CE6 





0001 


0CE7 





8000 


0CE8 





0080 


0CE9 





0008 


OCEA 





0000 


OCEB 





0000 


3CEC 





0000 


OCEE 




0000 


OCEE 





0000 


OCEF 





0760 


OCFO 





03^6 


OCFl 





0501 


0CF2 





1802 



0CF3 00 C4000085 
0CF5 00 4C200007 



0CF7 00 
0CF9 
OCFA 
OCFB 00 
OCFO 00 
OCFF 00 
ODOl OU 
0DC3 00 
ODDS 00 



4C000EC2 

OEEF 

COFE 

04000EEE 

65001000 

60D00CE8 

OCOO0E8E 

4C040DOI 

4C000EC6 



3037 00 65C00536 
0009 69E2 



, OOOA 
ODOB 
OOOC 
3D0£> 
OOOE 00 
3DI0 
CDll 
0012 00 
0014 
0D15 
0016 
0017 
0018 
0019 
DOIA 
OJilB 
3D1C 
3010 00 
ODIF 
0020 
QD21 
0022 



DATF 
EC NU. 














6126 

COEO 

0002 

0005 

CSOOOOOO 

DO 09 

6127 

CSOOOOOO 

0006 

6125 

COOS 

0013 

DOOS 

000 B 

COOT 

1802 

O0D5 

85000000 

71FF 

70FC 

FOCJ 

80C3 



28FEB66 
415120 






• BOOTSTRAP CARO 

PUNCH CORRECTION FOR 2N0 

• BOOTSTRAP CARO 

1 PUNCH CORRECTION FOR ACTUAL 

• AUX LOADER CARDS 



* For AODITICAL INFORMATION ABOUT PROG. OPERATION 
- REFER TO THE PROGRAM DESCRIPTION WRITE-UP. 



« 

FFFF OC 
ADO DC 
NUMBE OC 
EOR OC 
TWELV OC 
*38 DC 



X39 

PUN 



DC 
DC 
OC 

ass 

SEN8I OC 
OC 

PUNCH OC 

DC 
CEOFF DC 



/FFFF 

/OOOl 

/SOOO 

/0080 

8 













/0760 

/0336 



TERMINATOR FOR CARO PUNCH 



LOC OF DATA TO BE PUNCHED 
* PLACED HERE 



/0501 
/1802 



SENSE SENSE SWITCHES 
ALL CARDS PUNCHED FROM 
• THIS ADDR 



MOO LO L BITS 

BSC L AUXX.Z 



LO 
BOO 



MOR 



BSC 

DC 

LO 

STO 

LOX 

STX 

XIO 

BSC 

BSC 



BR AUX PROGRAM 
PUNCH AUX 8-8 LOADER PROGRAM DECK 
BOOT 



LOAD 

to 

L ABQ»1 
LI /lOOO 
LI EOR 

L OSWOO 
t M3R,E 
L LA 



SEHSF DEVICE STATUS 
BR READER NOT READY 



* 



AUX PROGRAM PUNCH ROUTINE 



AUXX 



MORE 



SAV 



SAVE 



CHECK 



LOX 
STX 

LOX 

LO 

STO 

STO 

LO 

STO 

LOX 

LO 

STO 

tox 

LO 

STO 

STO 

STO 

LO 

SPA 

sro 

A 

MOX 
MOX 
EOK 

A 



LI 

t 
LI 



LI /0536 
1 PUN 



38 

PUN 

SAV*1 

SAV£*1 



X38 

39 



X39 

37 

PUN 

NUK*1 

CHECK*! 

HASH*1 

CEOFF 

2 

CEOFF 



-» 

CHFCK 

FFFF 

AOO 



Lt 

I 



SET LOCATION OF LOADED 

* AUX PROG IN PUN 

SAVE LOCATIONS 

* WHERE HASH 

* AND ID NU''BE« 
» WILL BE STORED 

• 



LOAD UNIQUE 

* CARD 

* 10 NUMBER 



8AC00680 
qAC00690 
8AC00700 
8AC0071O 
8AC00720 
8AC00730 
8AC00740 
8AC00750 
* 8AC00760 
8AC0077O 
8AC00780 
8AC00790 
eAC00809 
SACOOBIO 
8AC00820 
8ACn0830 
8AC00840 
8AC00850 
8AC00860 
8AC00870 
8AC00880 
8AC00890 
8AC00900 
8AC00910 
8AC00920 
8AC00930 
8AC00940 
8AC00950 
8AC00960 
8AC00970 
8AC00980 
8AC00990 
SACOIOOO 
8AC01010 
8AC01020 
8AC01030 
8AC01040 
8AC01050 
8AC01060 
BACOIOTO 
SAC01080 
8AC01090 
8AC01100 
eACOlllO 
8AC01120 
BAC01130 
8AC01140 
BACOllSO 
8AC01160 
BAC01170 
BACOUSO 
8AC01190 
8AC01200 
8AC01210 
8AC01220 
8AC01230 
8AC01240 
8AC01250 
8AC01260 
8AC012TO 
8AC012S0 
8AC01290 
8AC01300 
8AC0I310 
8AC01320 
8AC01330 
8AC01340 . 
8AC01350 



PROG ID 
PAGE 



08AC-0 
lA 
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IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAH GENERATOR UTILITY PROGRAM 
7 CARD EDIT 



PART NO. 21964SS 
PACE 2 



002 3 





6126 




LOX 


1 


38 




8AC01360 




0024 


CO 


05000000 


HASH 


STO 


LI 





PLACE HASH TOTAL 


8AC01370 




9U26 





6127 




LOX 


1 


39 




8AC01380 




0027 





COBF 




LO 




NUH8E 




8AC01390 




0028 





1801 




SRA 




I 




8AC01400 




0029 





DO 80 




STO 




NUH3E 




8AC01410 




0D2A 


00 


05000000 


NUM 


STO 


LI 





PLACE CARD NUMBER 


8AC01420 




002C 





F08B 




EOR 




EOR 




8AC01430 




0020 


00 


4C18005B 




8SC 


L 


WAIT,+- 


BR 7 CARDS PUNCHED 


8AC01440 




002F 





6123 




LOX 


1 


40 


COUNTER 


8AC014S0 




0030 





6200 




LOX 


2 







8AC01460 




3031 


00 


67000 335 




LOX 


L3 


/335 


PUNCH TABLE AODR AT /3?6 


8 AGO 1470 




3033 





COBS 




LO 




PUN 




8AC01480 




0034 





0003 




STO 




SPLA*l 


• 


8 AGO 1490 




0035 





lOAO 


NIG 


SLT 




32 




8AC01500 




0036 





7301 




MOX 


3 


1 


a 


8AC01510 




003 7 


00 


C6000000 


SPLA 


LO 


L2 





OBTAIN DATA FROM CARD READ 


8AC01520 




3039 





1808 




STE 




24 




8AC01S30 




J03A 


00 


D7000000 




STO 


L3 





STORE IN PUNCH TABLE 


8AC01540 




0D3C 





7301 




«ox 


3 


I 




8AC015S0 




0030 





1098 




SLT 




24 




8AC01560 




a03E 


00 


07000000 




STO 


L3 





STORE IN PUNCH TA3LE 


8AC01S70 




0040 





7201 




MDX 


2 


1 




8AC01S80 




0041 





71FF 




MOX 


1 


-1 




8AC01590 




0042 





70F2 




hDX 




NIG 




8AC01600 




0043 


00 


C4000385 




LO 


L 


/385 


PLACE PUNCH TERMINATOR 


8AC01610 




004S 





C8A3 




CR 




TWELV 


» 


8AC01620 




0046 


00 


04000385 




STO 


L 


/385 


• 


8AC01630 




0048 





08A7 




XIO 




PUNCH 


PUNCH CARD IN 8-8 FORMAT 


8AC01640 




0049 





C0A2 




LO 




PUN 


RESTORE LOCATIONS 


8AC01650 




304A 





0004 




STO 




SAVA*1 


• DESTROYED BY -• 


8AC01660 




0048 





0007 




STO 




SAVEA + l 


* HASH AND 10 


8AC01670 




004C 





6126 




LOX 


I 


38 


» NUMBER 


8AC01680 




0040 





C09C 




LO 




X38 


• 


8AC01690 




D04E 


00 


05000C00 


SAVA 


STO 


LI 





• 


BAC01700 




0050 





6127 




LOX 


I 


39 


* 


8AC01710 




0051 





C099 




LO 




X39 


* 


8AC01720 




0052 


00 


05000000 


SAVEA 


STO 


LI 





* 


8AC01730 




3054 


00 


741B0CEC 




KDX 


L 


PUN, 27 


UPDATE OUTPUT AREA ADDR 


8AC01740 




0DS6 


00 


0C000E8E 




XIO 


L 


DSWOQ 


SENSE DEVICE STATUS 


8AC01750 




0058 


00 


4C040D56 




8SC 


L 


• -4,£ 


BR READER NOT READY 


8AC01760 




005A 





70AF 


BtX 


MDX 




MORE 




8AC01770 


. 








••*••••*••*••**»*•••*«**•*•****••*•**•••***•*• 


8AC01780 










• 






THE AUX 


8-8 DECK HAS BEEN 


8AC01790 










• 






» MODIFIED AND PUNCHED 


8AC01800 




0058 





3000 


WAIT 


WAIT 






JOS COMPLETE 


8AC01810 




005C 





70FE 




MDX 




♦-2 




8AC01820 










• 






»«•••*****•*****••**••******»•**•***• 


8AC01830 




0050 


00 


C4000E9I 


HEXA 


LO 


L 


0300 




8AC01840 




0D5F 


00 


04000 12A 


« 


STO 


L 


UPPER 


- 


8AC01850 
8AC01860 










• THIS ROUTINE READS 


THE OBJECT CARDS 


8AC01870 










• 










8AC01880 




0061 





0812 


RD05 


XIO 




MSK 


MASK 


eAC01890 




0062 





0813 


RD20 


XIO 




STRD 


START READER 


8Ar01900 




0063 





081A 


RC25 


XIO 




ESH 


CHECK OSM 


8AC01910 




0064 


00 


4C040063 




BSC 


L 


RD25.E 


STILL BYSY IF BR 


8AC01920 




0066 





BOIB 




CMP 




MSK2 




8AC01930 




0067 





7004 




MDX 




RD40 


ERROR 82 ON 


8AC01940 




3D68 





7001 




MOX 




RD30 


READY MAY NOT BE N 


8AC01950 




0069 





7004 




MDX 




R050 


B4 ON. CARD IN 


8AC01960 




306A 





8018 


RD30 


CMP 




HSK3 


CHECK IF BS OR 6 N 


8AC01970 




0068 





1000 




NOP 






YES 


8AC01980 




0D6C 





lOOO 


RD40 


NOP 








8AC01990 




3060 





70F5 


. 


MDX 




RD25 


READY NOT ON 


8AC02000 




0D6E 





0811 


R050 


XIO 




REDSU 


RESET 


8AC02010 




306F 


00 


C4000E1T 




LC 


L 


COIN 




8AC02020 




0071 


00 


4C2800D2 


ROSS 


BSC 


L 


Ha05,»Z 


BR HEX CARD 


8AC02030 




DATE 




28FEB66 












PROG 19 


OSAC-Q 


EC NO. 


415120 












PACE 


2 
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0073 





7014 




MDX 




S80$ 




8AC02040 




0074 




0000 




BSS 


E 







eAC020S0 




0074 





FFFF 


MSK 


DC 




/FFFF 




8AC02060 




3D75 





0480 




DC 




/0480 




9AC02070 




0076 





0EI7 


STRD 


CC 




COIN 




8AC02080 




0DT7 





0600 




DC 




/0600 




8AC02090 




0Q78 





0600 


RDIX 


OC 




/0600 




8AC02100 




0079 





0601 




DC 




/0601 




8AC02I10 




007A 





0500 


RBOTl 


OC 




/0500 




8AC02120 




0D7B 





0601 




OC 




/0601 




8AC02130 




3D7C 





0550 


RB0T2 


DC 




/0550 




8AC02140 




0D7D 





0601 




OC 




/0601 




BAC021S0 




007E 





0000 


ESU 


OC 




/OOOO 




8AC02160 




00 7«- 


C 


0700 




OC 




/0700 




8AC02170 




0080 





0000 


tEOSW 


OC 




/OOOO 




8AC02180 




0081 





0703 




OC 




/0703 




8AC02190 




0062 





0300 


MSK2 


DC 




/0800 




8AC02200 




0083 





0100 


MSK3 


DC 




/OlOO 




8AC02210 




0084 





OOFF 


FEED 


DC 




/OOFf 




8AC02220 




0385 





0000 


BITS 


OC 









8AC02230 




0036 





1802 


CEOFX 


DC 




/1 802 




8AC02240 




0087 





0180 


CEOX 

• 


DC 




/0180 




8AC022S0 
8AC02260 










* THIS ROUTINE PACKS 


AND STORES BINARY DA A 


8AC02270 










• 










8AC02280 




0038 





61B8 


SB05 


LOX 


1 


-72 




8ACQ2290 




3089 





6300 




LOX 


3 







8AC02300 




9D3A 





62F0 


SB06 


LOX 


2 


-3 




8AC02310 




0088 


00 


C60000A1 


SB07 


LO 


L2 


SL*3 




8AC02320 




0D8D 





0006 




STO 




S310 




8AC02330 




SDSE 


00 


C5000E60 




LD 


LI 


CDIN»73 




8AC02340 




0090 





1800 




RTE 




16 




8AC02350 




0D91 


00 


CS000E5F 




LO 


LI 


C0IN*72 




8AC02360 




0093 





1804 




SRA 




4 




8AC02370 




0D94 





1000 


SBIO 


SLA 









8AC02380 




0D9S 


00 


07000E17 




STO 


L3 


COIN 




8AC02390 




0097 





7301 




MDX 


S 


I 




8AC02400 




0098 





7101 




MDX 


I 


1 




8AC02410 




0099 





7201 




MDX 


2 


1 




8AC02420 




009A 





70F0 




."OX 




SB07 


FINISHED 


8AC02430 




0098 





7101 




MDX 


t 


1 




8AC02440 




009C 





70ED 




fOX 




SB06 




8AC02450 




0D9D 





7003 




MDX 




L805 




8AC02460 




009E 





1084 


SL 


SLT 




4 




8AC02470 




009F 





1088 




SLT 




8 




8AC02480 




OOAO 





108C 


• 


SLT 




12 




8AC02490 
8AC02500 










♦ THIS ROUTINE LCkOS 


BINARY -DATA INTO MEM RY 


8AC02510 










• 










8AC02520 




OOAl 





C077 


LB05 


LO 




C0IN*2 




8AC02530 




0OA2 





E017 




AND 




LBIS 




8AC02540 




0OA3 





0015 




STO 




PC AM 




8AC02550 




0OA4 


00 


4C180CF3 




BSC 


L 


MDQ,*- 


BR END CARD 


8AC02560 




30A6 


00 


66000E20 




LOX 


L2 


aiDA 




8AC0257O 




30A8 





6100 


L806 


LOX 


I 







8AC025eO 




00A9 





6A07 




STX 


2 


LB10*l 




8AC02590 




ODAA 





C06C 




LO 




COIN 




8AC02600 




00A8 


00 


8400012* 




A 


t 


UPPER 




8AC02610 




ODAD 





D069 




STO 




COIN 




eAC02620 




OOAE 


00 


6680UEI7 




LOX 


12 


COIN 




8AC02630 




3DbO 


OO 


C5000000 


LBIO 


LO 


tl 







8AC0i640 




3082 





0200 




STO 


2 







8AC02650 




0083 





7201 




HOX 


2 


I 




8AC02660 




00B4 





7101 




MDX 


1 


I 




6AC02670 




0085 


00 


74FF00B9 




fOX 


L 


PCAM,-i 


SKIP WORD COUNT ERO 


8AC02680 




3087 





70F8 




KOX 




LBIO 




8AC02690 




0088 





70A9 




nox 




R020 




8AC02700 




3039 





GOOD 


PC AM 


OC 







WQRO COUNT 


8AC02710 




DATE 




28FEB6& 










- 


PROG 10 
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EC NO. 


41SI20 
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ODBA 





OOFF 


LBIS 


DC 




/OOFF 








8AC02720 




ODBB 


00 


65000500 


BTl 


LDX 




/OSOO 








BAC02730 




006D 


00 


6000012A 




STX 




UPPER 








8AC02740 




OCBF 


00 


-iCOOOOOB 




BSC 




HES 








8AC027S0 




3aci 


00 


65000600 


813 


LDX 




/0600 








8AC02760 




00C3 


00 


60000 1 2A 




STX 




UPPER 








8AC02770 




3DC5 


00 


'VCOOOODB 




BSC 




HES 








8AC02780 . 




00C7 


00 


65000 500 


8T2 


lOX 




/0500 








8AC02790 




0DC9 


00 


6D00012A 




STX 




UPPER 








8AC02800 




OOCB 


00 


-^0000008 


* 


BSC 




HES 








8AC02810 
8AC02820 










• THIS ROUTINE PUTS CONVERTED HEX DATA IN 


8AC02830 










• 


STORAGE 








8AC02849 










« 














8AC02850 




OOCP 


ou 


66000E18 


LH05 


LOX 


L2 


C01N*I 








SAC02860 




ODCF 


00 


74FF00B9 


■ 


MOX 


L 


PCAM,-l 








8AC02870 




0001 





7006 


• 


MDX 




La06 








8AC02880 
8AC02899 










• THIS ROUTINE CONVERTS 


HEX TO BINARY 


8AC02900 










* 














8AC029tO 










* 


TEST 


FOR TYPE OF OVERLAY CARDS 


8AC02920 




D0D2 





1001 


H805 


SLA 




1 








8AC02930 




0DD3 


00 


4C280DBB 




BSC 


L 


BTl,»Z 


BR 


OVERLAY 


BOOT I 


8AC02940 




0005 





1001 




SLA 




1 








8AC02950 




0DD6 


00 


'.C2e00C7 




BSC 


L 


BT2,*2 


BR 


OVERLAY 


BOOT 2 


8AC02960 




D008 





1001 




SLA 




1 








8AC02970 




0009 


00 


4C280DC1 




BSC 


L 


BT3,*Z 


BR 


OVERLAY 


AUX LOADER 


8AC02980 




ODOB 





6IB0 


HES 


LOX 


I 


-80 








8AC0299Q 




OOOC 





isto 




SRA 




16 








8AC03000 




ODOO 





0008 




STO 




PC AM 








8AC03010 




ODDE 





1810 


HB06 


SRA 




16 








8AC03020 




ODOF 





620« 




LDX 


2 


4 








8 ACQ 30 30 




ODEO 





1004 


Hsro 


SLA 




* 








eAC03040 




OOEl 





0013 




STO 




TEMPI 








SACOSOSO 




30E2 


00 


C5000E68 




LO 


LI 


CDIN»81 








8AC03060 




30E* 


00 


•iClSOOCO 




BSC 


L 


IH05,*- 








8AC03070 




aOE6 


00 


4'iO0OOF6 




BSI 


L 


HTOB 








8ACO3080 




0DE8 





E80C 




OR 




TEMPI 








8AC03090 




0DE9 





7101 




MOX 


I 


I 








8AC03100 




30EA 





72FF 




MOX 


2 


-I 








8AC03tl0 




OOEB 





70F4 




MOX 




HBIO 








8AC03120 




OOEC 


00 


678Q0OB9 




LOX 


13 


PCAN 








8AC03130 




ODEE 


00 


D7000tl7 




STO 


L3 


COIN 








8AC03140 




ODFO 


00 


7'iO 10089 




MOX 


L 


PCAN. I 








8AC031S0 




DDF2 





7101 




MOX 


1 


1 








8AC03160 




00F3 





70EA 




MOX 




HB06 








8AC03170 




OOF* 





7008 




MOX 




tH05 








8AC03180 




0DF5 




COOl 


TEMPI 


BSS 




1 








8AC03190 
8AC03200 










♦ THIS SUBROUTINE CONVERTS 


HEX TO BEIN C AC) 


8AC03210 










• AND LEAVES RESULT IN 


ACCUMULATOR 


8AC03220 








- 
















8AC03230 




0DF6 




0001 


HT08 


BSS 




I 








8AC03240 




OOF 7 


00 


'ttClOOEOO 




BSC 


t 


HTIO.- 








8AC03250 




00F9 





6306 




LOX 


3 


6 








8AC03260 




3DFA 





1002 




SLA 




2 








8AC0S270 




OOFB 





13C0 




SLC 


3 










8AC03280 




3DFC 


00 


C7OO0EO7 




LO 


L3 


HTBl 








8AC03290 




30FE 


00 


4C800DF6 




BSC 


1 


HTOB 








8AC03300 




0£00 





630A 


HTIO 


LOX 


3 


10 








8AC03310 




OFOI 





1001 




SLA 




1 








8AC03320 




0602 





13C0 




SLC 


3 










8AC03330 




0EO3 


00 


C7000EOO 




LD 


L3 


HTB2 








8AC03340 




oeos 


00 


4C800OF6 




BSC 


1 


HTOB 








8AC03350 




0E07 





OOOF 


HTBl 


DC 




/OOOf 








8AC03360 




OEOS 





OOOE 




DC 




/OOOE 








8AC033T0 




0E09 





0000 




DC 




/OOOO 








8AC033S0 




OEOA 





OOOC 




DC 




/OOOC 








8AC03390 




DATE 


1. 


28FEB66 
415120 


- 




- 


1 






- 


PROG 10 
PACE 


OBAC-0 

> 



0E08 





0008 




OC 




/OOOB 




8AC03400 




OEDC 





OOOA 




DC 




/OOOA 




8AC03410 




OEOO 





0009 


HTB2 


OC 




/0009 




8AC03420 




DEOE 





0008 




OC 




/0008 




BAC03430 




OEOF 





0007 




DC 




/0007 




8ACC3440 




OEIO 





0006 




DC 




/0006 




8AC03450 




OEll 





0005 




DC 




/0005 




8AC03460 




3E12 





0004 




DC 




/0004 




8AC03470 




0E13 





0003 




DC 




/0003 




8AC0348a 




0E14 





0002 




OC 




/0002 




8AC03'.90 




0E15 





0001 




OC 




/OOOl 




8AC03500 




0E16 





0000 




DC 




/COOO 




8AC03510 




0E17 




0050 


COIN 


BSS 




80 




8AC03S20 




0E20 






BIDA 


EQU 




C0IN»9 




8AC03S30 




012A 






UPPER 


ECU 




298 




8AC03S40 










••»•**•**••**•**»•****•*»**»*•*»***«••**«•*««*•**»• 


8AC03550 




0E67 





0826 


bLA 


XIO 




OSWOQ 


SEN READER 


8AC03S60 




0E68 


00 


4C040E67 




BSC 


L 


BLA.E 


BR READER NOT READ* 


8AC03570 




0E6A 


00 


OCOOOCEE 




XIO 


L 


SENBI 




8AC03SS0 




0E6r 





1308 




sr.A 




8 




8AC03590 




OE60 


00 


F4000084 




EOR 


L 


FEED 




8AC03600 




3E6F 


00 


D400D085 




STO 


L 


BITS 




8AC03610 




0E71 


00 


4C18CE92 




BSC 


L 


TOOT,+- 


BR READ AUX LOADER 


8AC03620 




0E73 





0818 


8BB 


XIO 




RDIN 


READ CARD 


8AC03630 




0E74 





0819 


ABB 


XIO 




OSWOQ 


SENSE READER 


8AC03640 




0E75 


00 


4C040E74 




BSC 


L 


ABB.E 


BR READER NOT READY 


SAC03650 




0E77 





6126 




LDX 


J 


38 




8 AC 03660 




0E78 





C013 




LO 




RDIN 




8AC03670 




0E79 





0004 




STO 




OHECK+l 




8AC03680 




0E7A 





COIS 




LD 




DEOFF 




8AC03690 




0E7B 





1802 




SRA 




2 




8AC037OO 




0E7C 





0013 




STO 




DEOFF 




8AC03710 




0E70 


00 


85000000 


CHECK 


A 


LI 







BAC03720 




0E7F 





71FF 




MDX 


I 


-I 




8AC03730 




CcBO 





70FC 




MOX 




DHECK 




8AC03740 




3E81 


00 


4C200E8A 




BSC 


L 


INIZa.Z 


BR CARD IN WRONG 


8AC03750 




0EC3 


00 


741E0E8C 




HDX 


L 


RDIN, 27 




8AC03760 




0E85 





COOA 




LO 




OEOFF 




8AC03770 




0E86 


00 


4C200E73 


• 


BSC 


L 


BBB.Z 
ALL CARDS 


BR READ MORE CARDS 
LOADED AND CHECKED 


8AC03780 
8AC03790 




0E88 


00 


4C000DS0 




BSC 


L 


HEXA 


BR ALL AUX CARDS READ 


8At03800 










*•••»*»»»*•»»»»»♦»«*»»•*»♦»«#»»•«»»•♦»»»*»••*»**»•• 


8AC03810 










• 






THE AUX 8- 


8 CARDS FAILED TO READ IN 


8AC03B20 










• 






* CORRECTLY. CHECK FOR PROPER CARD 


8AC03830 










• 






» SEQUENCE 


AND TRY AGAIN 


8AC03840 




0E8A 





3000 


INIZA 


WAIT 








BAC03850 




0E8B 





70FE 




MDX 




»-2 




8AC03860 










• *•«••*•**•**>«:**•*••*•***•• t*********************^* 


8AC03870 




0E8C 




0000 




BSS 


E 







8AC03Be0 




0E8C 


■0 


0536 


RDIN 


OC 




/0536 


INITIAL READ IN AOO<tESS 


8AC03890 




0E80 





0601 




DC 




/0601 




8AC03900 




0E8E 





0000 


DSHOQ 


DC 









8AC03910 


. 


0c8F 





0703 




DC 




/0703 




8AC03920 




0E90 





1802 


DEOFF 


OC 




/1802 


COUNTER AND ID 


8AC03930 




0E91 





0500 


0300 


DC 




/0500 




8AC03940 










•***•*««•»•••*••**•***•••*•*•*•*••***••**•«•«•***•* 


8AC03950 




0E92 


00 


OC000D7A 


TOOT 


XIO 




RBOTl 


READ 1ST BOOT 


8AC03960 




0E94 


oc 


0C000E8E 




XIO 




OSWOQ 


SENSE READER 


8AC03970 




0E96 


00 


4C040E94 




BSC 




•-4,E 




8AC03980 




0E98 


00 


0C000O7C 




XIO 




RB0r2 


READ 2ND BOOT 


8AC03990 




0E9A 


00 


0C000E8E 




XIO 




OSWOQ 


SENSE READER 


8AC04000 




0E9C 


00 


4C040E9A 




BSC 




•-4,E 




8AC04010 










»**•*****•**•*********•»•***•«*•••******•**••* 


8AC04020 










• 










8AC04030 










• 






READ AND CHECK CARD 2 AND 3 OF AUX 


8AC04'040 










• 






• LOADER 




8AC04050 




0E9E 





7009 




MDX 




FIRA 




8AC04060 




0E9F 


00 


C4000D86 


FIRSQ 


LO 


L 


CEOFX 




8AC04070 




DATE 




28FEB66 












PROG 10 


08AC-0 


EC NO. 


415120 












PAGE 


3A 



fl t 
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IB1 HAINTCNANCE DIAGNOSTIC PROCRAN FOR THE 1800 SYSTEM 



AUX PROGRAM CfcNERATOR UTILITY PROGRAM 
7 CARD EDIT 



OE&l 
DEAZ 
0FA4 
3EA6 
0EA8 
OfcA9 
DEAA 
OEAC 
OEAO 
OEAF 
OEBO 
0ES2 
OEB-k 
0E85 
3E36 
0EB7 
OEBS 
0E3A 
0E9C 
0E8E 



D0Q6 
00 OC000078 
00 0C000E8E 
00 4C040EA4 
70F6 
6126 
00 C400007S 
0006 
00 C«0O0OS6 
1802 
00 04C00086 
00 85000000 
TIFF 
TOFC 
4820 
TOFF 
00 7*180078 
00 C4300D86 
00 F4000087 
00 <>C200EA2 



OECO 00 4C00005D 



0EC2 00 



3EC* 
0EC6 
iyEC7 
0EC8 
DECA 00 
OECC 
OECD 
OECE 
OECF 00 
OEDl 
0E02 00 
0E04 
0EO5 
0ED6 00 
0EO8 
0ED9 
OEDA 
OEOB 00 
3E0O 00 
OEOF 00 
OEEl 00 
0EC3 00 
0EE5 00 
0EE7 00 
0EE9 00 
OEEB 00 
OEED 00 



00 


00 








65000500 

6D0OOCEC 

6128 

62U0 

67000335 

CiOOOCeC 

0003 

lOAO 

7J01 

C6000000 

1808 

07000000 

7301 

1P98 

D7000000 

7201 

71FF 

70F2 

C40C038S 

EC000CE4 

04000385 

0C000E8E 

OCiOOCFO 

0C000E8E 

4C040EC5 

6S000SS0 

60000CEC 

<.CO00CFA 



3EEF 00 65000600 
OEFl 00 6D000CEC 
0EF3 00 4COO0DOA 

0EF5 00 C4000CF1 
0EF7 00 ECOOOCE* 
3EF9 00 0'«OOOCfl 



KK 



STQ 

XIO 
XIO 
BSC 
FIRA HOX 
LDX 
LD 
STO 
LD 
SRA 
STO 
CHECZ 4 

HOX 
HOX 
BSC 
A HOX 
KOX 
LD 
EOR 
BSC 



L 
LI 
I 



READ CARD 
SENSE READER 

riOX OR NO OP 



BSC L 

* 



r'iRA 

ROIX 
DSWQO 

*-4,e 

FIRSQ 

?a 

ROIX 

CHECZ*! 

CEtiFX 

2 

CEOFX 



-1 

CHECZ 

I 

A 

ROIX, 27 

CEOFX 

CEOX 

KK,2 BR READ MORE CARDS 

THE ACTUAL AUX LOADER IN CORE OK 

READ OVERLAY CARDS 

HEX A 

»»»♦»♦♦»**»♦»»♦♦»•*»•»»»*♦»*♦♦♦**♦*•• 



SKIP CARD IN CORE OK 
FAILED TO LOAO AUX LOADER 



BOOT 



BOOTSTRAP PUNCH ROUTINE 



LOX 
STX 
LDX 
LDX 
LOX 
LD 
STO 
^LT 
HOX 
SPLAS LO 
RTE 



LA 



NIGS 



LI 

LI 
1 
2 

L3 

L 



3 
L2 



SET fcOOR OF DAT* 

» TO BE PUNCHED (BOOT II 

COUNTER 



LJ 
3 



STO 

HDX 

SLT 

STO 

HOX 

MDX 

HOX 

LO 

OR 

STO 

XIO 

XIO 

XIO 

BSC 

LOX 

STX 

BSC 

• AUX L 
• 

LOAD LDX LI 
STX LI 

asc L 

»»»*»»*»»♦•*»* 
EDIT LO L 
OR L 
STO «. 



GO 



ABO 



L3 

2 
1 

L 

L 

L 

L 

L 

L 

L 

LI 

LI 

L 



/500 

PUN 

40 



/335 

PUN 

SPLAS»l 

32 

1 



24 



I 

24 



1 

-1 

NIGS 

/38S 

TWELV 

/38S 

nsuoQ 

PUNCH 
OSWOQ 
*-<,£ 
/t>l-0 

PUN 
BOO 
»»»♦**»♦»»*»»♦♦♦»*»•»»♦♦**•***♦»•*♦♦• 



PUNCH TABLE AODR AT /356 

OBTAIN DATA FROH CARD READ 
STORE IN PUNCH TABLE 

STORE IN PUNCH TABLE 
PLACE PUNCH TERMINATOR 



SENSE DEVICE STATUS 
PUf.CH CARD IN 8-8 FORMAT 
SENSE READER 

SET ADOR OF DATA TO BE 
• PUNCHED JBOOT 21 



OADER PUNCH ROUT I ME 



SET AODR OF DATA TO BE PU 



/6C0 

PUN 

MORE 

,♦»»♦»»»»»»•»»»♦♦♦••**•»»»♦♦••••»•**• 

PUNCH*l 

AREA 

PUNCH*! 



PART NO. 2t964S» 

PAGE ♦ 



8AC04080 

8AC04090 

8AC0410a 

8AC04110 

8AC04120 

8AC04130 

8AC04140 

8AC04150 

8AC04160 

8ACQ4170 

8AC0418a 

8AC04190 

8AC04200 

8AC04210 

8AC04220 

8AC04230 

8AC04240 

8AC042S0 

8AC04260 

8AC04270 

8AC0428a 

eAC04290 

8AC04300 

8AC04310 

8AC04320 

8AC04330 

8AC04340 

6AC04350 

8AC04360 

8AC04370 

8AC04380 

8AC04390 

8AC04400 

8AC04410 

8AC04420 

8AC04430 

8AC04440 

8AC04450 

8AC04460 

8AC04470 

8AC04480 

8AC04490 

8AC04500 

8AC04S10 

8AC04S20 

8AL04530 

8AC04S40 

8AC04550 

6AC04560 

8AC045T0 

8AC045B0 

8AC04590 

8AC04600 

eAC04610 

8ACC4620 

8AC04630 

8AC04640 

8AC04650 

8AC04660 

8AC04670 

8AC04680 

8AC04690 

8AC04700 

eAC04710 

8AC04T20 

8AC04730 

8AC04740 

8AC04r50 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

AUX PROGRAM GENERATOR UTILITY PROGRAM 
7 CARD EDIT 



OEFB 00 C40000TT 


LO 




STRO*l 


3EF0 00 EC0O0CE4 


OR 




AREA 


3EFF 00 D<.000D77 


STO 




STRO*l 


OFOl 00 C'.000D79 


LD 




R01X*l 


OF03 00 EC000CE4 


OR 




AREA 


0FO5 00 O40O0079 


5T0 




RDIX^t 


0F07 00 C4000D7B 


LD 




RBOTl*! 


0F09 00 EC000CE4 


OR 




AREA 


OFOB 00 D400007B 


STO 




RBOTl*l 


OFOD 00 C400aD7a 


LD 




RBQT2*l 


OFOF 00 EC0O0CE4 


OR 




AREA 


OFll 00 O4000DTD 


STO 




RBOTJ!*l 


0=13 00 C4000D7F 


LO 




ESM*l 


0F15 00 £C0O0Ce4 


OR 




AREA 


OF 17 00 0400007F 


STO 




ESM*1 


0F19 OQ C4000D81 


LD 




REDSH»l 


OFIB OC ECOOOCE% 


OR 




AREA 


3F10 00 D4000081 


STO 




RE0SH*l 


3F1F 00 C4000E80 


LB 




ROIN*l 


0F21 00 EC000CE4 


OR 




AREA 


0F23 00 D4000E80 


STO 




ROIN*l 


0F25 00 C400PE8F 


LO 




0SU0Q*1 


3F27 00 EC0C0CE4 


OR 




AREA 


0F29 OC D4000E8F 


STO 




DiWOQ*l 


3F2B 00 4CO0OE67 


BSC 




8LA 


0F2E 0EF5 


END 




EDIT 



PART NO. 219645S 
PAGE ** 



8AC04760 

8AC04770 

8AC04780 

8AC04790 

8AC04800 

8AC04010 

eAC04820 

8AC04830 

8AC04840 

8AC04850 

3AC04860 

8AC04a70 

8AC04080 

8AC04890 

8AC04900 

8AC04910 

8AC04920 

8AC04930 

SAC04940 

8AC04950 

8AC04960 

8AC04970 

8AC04980 

8AC04990 

8AC05000 

8AC05010 



DATE 
EC NO. 



26FEB66 
415120 



PROG 10 
PACE 



OSAC-O 



DATE 
EC NO. 



28FEB66 
415120 



PROG 10 
PAGE 



08AC-0 
4A 
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!BN MAINTENANCE OlAGNOSTK PROGRAM FOR THE 1800 SrSTEN 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
T CARD EDIT 



V '. ^. 


. r 

t 
\ 

I 

i 


t 


PART NO. 2196«5S 
PAGE 5 







CROSS REFERENCE LISTING 



SYHCOL 

A 

AB3 

A3Q 

AOO 

AREA 

AUXX 

B33 

atOA 

airs 

BLA 

BLK 

BOO 

BOOT 

BTl 

BT2 

BT3 

COIN 

CEOFF 

CEOFX 

CEOX 

CHECK 

CHECZ 

DEOFF 

OHECK 

OSWOO 

0300 

EDIT 

EOR 

ESK 

FEED 

FFFF 

FIRA 

FIRSO 

GO 

HASH 

HB05 

HB36 

HBIO 

HES 

HEXA 

hTBl 

HTB2 

HTOB 

HTIO 

INIZA 

KK 

LA 

LB35 

LB06 

LBIO 

L615 

LH05 

LO 

LOAD 

MOQ 

HOR 

MORE 

MSK 

HSK2 

HSK3 

NIG 

NIGS 

NUM 



VALUE 

0E87 

0E7« 

OEEO 

0CE6 

OCE* 

OCT 

0E73 

OE20 

0085 

0E67 

COSA 

OCFA 

0EC2 

OOBB 

00C7 

OOCl 

0EI7 

0CF2 
0086 
0087 
OOID 
0E82 
0E90 
0E70 
0E8E 

0E91 

0EF5 

0CE8 

007E 

0084 

0CE5 

0EA8 

0E9F 

0EE9 

0024 

0002 

ODDE 

OOEO 

OOOB 

0050 

0E07 

OEOD 

00F6 

OEOO 

0E8A 

0EA2 

0EC6 

OOAl 

00A8 

ODBO 

OCBA 

OOCD 

0CF9 

OEEF 

0CF3 

0001 

000 A 

007* 

0D82 

0083 

0035 

OECO 

002A 



REFERENCES 

0EB7 

0E7? 

0CF8 

0022 

0fcF7,OEF0,0FO3,0rO9,0F0F,CFlS,CF13,OF2l,OF2T 

0CF5 

CE86 

O0A6 

0CF3,OE6F 

0E68.0F2B 

OEEO 
0CF7 
0003 
0006 
0D09 

0D6F,OD76,OD8Et0091,0O95i0DAl,CDA4,O0AO,ODAE,0OCO» 

0DE?.00EE,0E67 

OOIA.OOIC 

0E9F,OEADtOEBOtOEBA 

OEBC 

0018.0020 

OEACOEBS 

0£7A,OE7C,0£85 

OE79,OE80 

0D01,0056,Ot67,OE74,OE94,OE9A,OE*«,0EEl,OEe5tOF2S. 
0F29 

ODSD 

OF 2D 

0CFF,OO2C 

0D63,0F13,OFI7 

OE60 

0021 

0E9Et0EAl 

0EA8 

0019 

0071 

00F3 

ODEB 

OD6F,0DC5,0DCB 

CESS. OECO 

ODFC 

0E03 

00E6,00FE>0E0S 

0DF7 

0E81 

OEBE 

COOS 

0090 

0001 

00A9,0DB7 

0DA2 

00E«,00F« 

OCFA 

0CF9 

00A4 

0003 

005A,0EF3 

0061 

0066 

006* 

0042 

OEOA 

OOIT 



IBM MAINTENANCE DIAGNOSTIC PROGPAM FOR THE 1800 SYSTEM 

AUX PROGRAM GENERATOR UTILITY PROGRAM 
7 CARD EDIT 



^ V, 



PART NO. 21964SS 
PAGE S* 



NUMBE 

PCAM 

PUN 

PUNCH 

RBOri 

RB0T2 

ROIN 

ROIX 

R005 

R020 

RD25 

R030 

R040 

R050 

R055 

REOSU 

SAV 

SAVA 

SAVE 

SAVEA 

SBOS 

SB36 

S807 

SBIO 

SENBI 

SL 

SPLA 

SPLAS 

STRO 

TEMPI 

TOOT 

TWELV 

UPPER 

MAIT 

X38 

X39 



0CE7 

0089 

OCEC 

OCFO 

007A 

007C 

0E8C 

0078 

0061 

0062 

0D63 

0D6A 

006C 

006E 

0071 

0080 

OOOE 

004E 

0012 

0052 

0088 

003A 

009B 

0094 

OCEE 

009E 

0037 

OECF 

0076 

0DF5 

0E92 

0CE9 

012A 

OOSB 

OCEA 

OCEB 



0027,0029 

CDA3.0085,ODCF,Ot>DD,OOEC,OOFO 

O009,O00B,0O16,0O33,0O*9,0D54,0EC4,0ECA,CE£8,OEFt 

00<.8,0EE3.0£FS,0EF9 

OE92,0F07,OF0B 

0E98,0F0D,CFII 

OE73,0C78,0E8 3,OFlF,OF23 

0EA2,0EAA,0£88.0F0l.OFOS 

00B8 

0064. 0U6D 
0068 
0D67 
0069 

OD6E,OF19,OF10 

OOOC 

004A 

ODQO 

0D48 

0073 

009C 

009A 

OOSO 

0E6A 

0D38 

0034 

OECC 

0062 

OOEl 

0E71 

0045 

0D5F 

0020 

ODtO 

0014 



2,OEFB,0EFF 
1.00E8 

.OEOO 

.ODAB,008D,ODC3,3DC9 

3.0040 
.0051 



DATE 
EC NO. 



28FEB66 
415^120 



PROG 10 
PACE 



08AC-0 
S 



DATE 
EC NO. 



28FEB66 
415120 



PROG 10 
PACE 



08AC-0 
SA 
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IBH HAINIENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEN 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1 CARO EDIT 



9ZSC 

1000 



ASS 
ORG 



/36 



PEA EQU /lOOO 1ST l-i^Z AREA CODE 

IF THIS PROG IS TO BE USED FOR A HACH 
WITH A OIFF AREA CODE AIL THE LOCATIONS WHICH 
REFER TO THE LA8CL AREA IN SYH90L TABLE MUST 
BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 
C03IFIED AUX 8-8 OBJECT DECK. SEE AUX CE PROG 
GENERATOR WIITE-UP FOR PROCf-DURE. (SPECIALI 
THE ABOVE STATEMENTS APPLIES TO THE FIRST SEVEN 
CARDS. 

FOR CARDS NUMBERED 6 AND 7 THE AREA CODES MUST 
BE CHANGED DIRECTLY BY MEANS OF A KEYPUNCH. 
THE FIVE AREA CODE BITS THRU « ARE CONTAINED 
IN PUNCH POSITIONS 12 THRU 2 RESPECTIVELY OF 

COLUMNS -iO OF CARD NUMBER 6 

COLUMNS 52 OF CARD NUMBER T 

COLUMNS 56 OF CARD NUMBER T 
CHANGE THE AflOVE PUNCH POS IN THE INDICATED 
COLUMNS TO IMPLEMENT A CHANGE IN AREA CODE 



AUX I CARD EDIT AND PUNCH 
THIS PROG CAN NOT BE LOADED FROM PAPER TAPE 



CE SWITCH SETTINGS 

NOT USED BY THIS PROGRAM 



LOAD CARO DECK ASSEMBLED IN ORDER SHOWN BELOW 
INTO &UX STORAGE 

1. THIS AUX PROGRAMS FIRST 7 CARDS. 

( THIS IS ESSENTIALLY A 9 CARD PROGRAM 
WHERE THE LAST TWO CARDS ARE ENTtREO AS 
SPECIFIED IN PART 5. I 

2. ONE OF THE 7 AUX PROG CARDS BEING CHANGED 

3. HEX CORRECTION CABOC I STANDARD FORMAT! 

THESE CARDS MUST ADHERE TO THE FOLLOWWG 
FORMAT 

COL. FIELD DESCRIPTION 

1 12 PUNCH 

2-5 ADDRESS WHERE 1ST CORRECTION GOES 
6 BLANK 

7-10 FIRST CORRECTION WORD 

II BLANK 

12-15 SECOND CORPFCTION WORD 

16 BLANK 

ETC. UP TO 15 CORRECTION WORDS CAN BE 
PUNCHED IN ONE CARD. CORRECTION 
WORDS ARE ENTERED AT SUCCESIVELV 
HIGHER ADDRESSES FOLLOWING THE 
1ST CORRECTION WORDS ADDRESS. 

4. ONE BLANK CAxD 

5. CARDS NUMBERED 6 AND 7 OF THIS AUX PROG. 

6. THREE OR MORE BLANK CARDS. 



FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 
REFER TO THE PROGRAM DESCRIPTION HRtTE-UP. 



PART NO. 2196«SS 
PACI: « 



8AC0S030 
8AC05040 
8AC05050 
8AC0S060 
8AC050T0 
8AC0S080 
8AC05090 
8AC0S100 
8ACO5110 
8AC05120 
8AC0S130 
SACOSl^O 
8ACO5150 
8 ACQS 160 
8AC0St70 
3AC05180 
8AC05190 
SAC0S200 
8AC052I0 
8AC0S220 
8AC05230 
8AC05240 
8AC05250 
8AC0S260 
8AC05270 
8AC05280 
8AC05290 
8AC05300 
8AC0S310 
8AC05320 
8AC05330 
8AC053A0 
8AC05350 
3AC05360 
8AC05370 
8AC05380 
8AC05390 
8AC05400 
8AC0S410 
8AC0542a 
8AC05*30 
8AC05440 
8AC05450 
8AC05460 
8AC05470 
8AC054S0 
8AC0S490 
BACO^SOO 
8AC0S51O 
8AC05S20 
8AC05530 
BAC05S40 
8AC05550 
8AC05560 
8AC05570 
8AC05580 
8AC05590 
8AC05600 
eAC0S610 
8AC0S620 
8AC0S630 
8AC05640 
SAC0S650 
8AC0S660 
8AC056T0 
8AC0S680 
8AC0S690 
8AC05700 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PRCGRAM GENERATOR UTILITY PROGRAM 
AUX 1 CARD EDIT 






0036 





C051 


0037 





DOCC 


0038 





COOO 


0039 





DGFB 


003A 





0840 


003B 





0306 


003C 





6A10 


0030 





6Blt 



003E 7040 



• 




AUX PROG ENTRY POINTS 


• 
• 
• 




*»»*«**«*»*»**•*•**•* 




1ST PASS ENTRY 


PCAM 


LO 


-CEO'^ PLACE BRANCH 


PCA27 


STO 


/O* * TO RETUR LABEL 


TEMP 


LD 


AEOFF PcSTORE LOC NICE 


TEMPI 


STO 


/35 » IN AU> LOADER 


• 




ALL BUT ISI PASS ENTRY POINT 


RETUR 


XIO 


CEON 




XIO 


OSKLX RESET DSH 




STX 


2 SAVE2»l 





STX 


3 SAVESt-l 


• 




BRANCH VECTOR 


GONE 


MOX 


QATAR 



003F 





4810 


0040 





703F 


3041 





7101 


0042 





700E 


0043 





0838 


0044 





C002 


0045 





D023 


0046 





7007 


0047 





7009 



* 

• THIS RT CONVERTS HEX TO BINARY AND PLACES IT 
• 

BSC 

MOX 
HB06 MOX 

MDX 

« 

LH05 XIO 

LD 

STO 
AEOFF DC 

MOX 



ENB 
1 1 

H8CT 

8R ENTIRE FIELD CONVtrtteO 
RE&3 ANOTHER CARO 
REED 
AECfF»l 
NO A 

NN'i'-J MOX SAVE2 
K FIRSr-NOA-l 



EXIT POINTS TO AUX LOADER 



3048 00 65000813 
004A 69B9 
004B 08CA 



304C 00 66000000 
004E 00 67000000 



0050 70BC 



» TERi-INATt EXIT POINT 

NOTRO LDX LI WWksi 

STX I /04 

XIO CEOFF 

• 

» N0R'4AL EXIT POINT 

SAVE2 LDX %.Z 

SAVE3 LDX L3 

» 

MDX QQCQ 



EXIT TO AUX LOADER 



DATE 
EC NO. 



78FEB66 
415120 



PR06 10 
PAGE 



08AC-0 



0051 





6204 


HB07 


LDX 


2 


4 


0052 





1004 


HBIO 


SLA 




4 


0053 





00 E5 




STO 




TEMP 


0054 


00 


C50000D9 




LD 


LI 


DUTA 


0056 





4818 




BSC 




♦- 


0057 





70EB 




MOX 




LH05 


0058 





6300 


HTOB 


LDX 


3 





3059 





4828 




BSC 




*l 


OOsA 





7309 




MOX 


3 


9 


005B 





1003 




SLA 




3 


005C 





4818 




BSC 




♦- 


0050 





700T 




HDX 




HTBZ 


005E 





7301 




MDX 


) 


1 


005F 





4828 


HTOBl 


BSC 




*l 


0060 





7002 




HDX 




HTBX 


3061 





1001 




SLA 




1 


DATE 




28FEe6* 










EC NO. 


415120 











CONVERT 1 HEX COL TO SIN 
SKIP IF NOT A-F 
AOO 9 FOR ALPHA 
ELIMINATE ZONE BITS 



PREPARE TO LK AT NEXT BIT 



PART NO. 2196455 
PACE 6« 



8AC05710 

8AC05720 

8AC05730 

8AC0S740 

8AC05750 

8AC05760 

8AC05770 

8AC05780 

8AC05790 

aAC05800 

8AC05810 

8AC05820 

3AC05d30 

8AC05840 

8AC05850 

8AC05860 

SAC05370 

8Af 05880 

8\C05890 

3AC059t)0 

8AC05910 

8AC05920 

8AC05930 

8AC05940 

3AC0S950 

8AC05950 

8AC05970 

BAC0S980 

8AC05990 

8AC06000 

3AC060IO 

8AC06020 

8AC06030 

8AC06040 

8AC05050 

8AC06060 

8AC06070 

eAC06030 

8AC0&090 

8AC06100 

8AC06110 

3AC06I20 

3AC06130 

8AC06140 

8AC06150 

SAC06160 

8AC06170 

8AC06180 

8AC06190 

8AC06200 

8AC06210 

8AC06220 

8AC05230 

8AC06240 

84C06Z50 

8AC06260 

8AC06270 

8AC06280 

8AC06290 

8AC06300 

8AC06J10 

8ACO6320 

8Af 06330 

8AC06340 

8AC06350 

8AC06360 

SAC06370 

8AC06380 



PROG 10 
PACE 



08AC-0 
6A 



( 1 ( ( ( ( C ( ( ( < ( ( ( ( ( 



r 



( ( 






IBH HAtNTENANCE DIAGNOSTIC PROGRAM FOR THE 1300 SYSTEM 



AUX PRCCRAH GENERATOR UTILITY PROGRAM 
AUX 1 CARD EDIT 



PART NO. 2t96«SS 
PA6C 7 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE IBOO SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1 CARD EDIT 



PART NO. 2196«SS 
PAGE 7A 



0062 





70FS 




KOX 




HTOBl-l 


eAC063<>0 




3063 





6B04 


HTBX 


STX 


3 


TEHP 


8AC06400 




0064 





C003 




LO 




TEMP LOAD BINARY BITS 


8AC06410 




0065 





E803 


HTB2 


OR 




TEHPl AOO TO PREVIOUS CHARS 


8AC06420 




0066 





7101 




HOX 


1 


1 


8AC06430 




0057 





72FF 




HDX 


2 


-1 


8AC06440 




0J&3 





70E9 




MOX 




H310 


8AC05450 




0069 





7009 


NOA 


KDX 




FIRSP 


8AC05450 




006A 


00 


1/400006A 


SAVE 

• 
• 


STO 


L 


SAVE PLACE DATA 
TEST FOR MAX ADOR BOUNDARY 


8AC05470 
8AC06430 
8AC06490 




006C 





COCA 




LO 




PCA2T 


8AC06500 




0060 





90F0 




S 




SAVE*l 


8AC05S10 




006E 





4803 




BSC 




♦ 


aAC05520 




006F 





7008 




HOX 




NOTRO 


8AC06530 




0070 


00 


7401006B 




MOX 


L 


SAVE+1.1 INCREMENT ADDRESS 


8AC06540 




0072 





70CE 




HOX 




H306 


8AC05550 










»»»»»»*»*»«♦»« *»»♦»*♦*»»»»»»**»*♦*»»»* ♦»♦*♦**»♦•♦♦♦ 


8AC06560 










• 








8AC06570 










• 






SET ADDRESS OF HEX DATA 


8AC06S80 




0073 





90C2 


FIRSP 


s 




PC AM 


8AC05590 




0074 





4828 




BSC 




♦2 


eAC05500 




0075 





7002 




MDX 




NOTRO 


8AC05610 




3075 





8000 




A 




PLUM 


8AC06620 




0077 





D0F3 




STO 




SAve*l 


8AC0663a 




0078 





COOS 




LO 




H307 


8AC0&640 




0079 





OOEF 




STO 




NOA 


8AC066S0 










*♦♦»« 


$«*««««»««»«»*»«*(*•*«»»**»»»*«»(>«******•**••* 


8AC06660 










• 








3AC0&670 




00 7A 




0000 




BSS 


E 





8AC05680 




007A 





70C6 




HDX 




Ha06 


8ACO&690 




007B 





7045 


RMAR 


HOX 


X 


ALS-GONE+1-3 


8AC05700 




307C 





0088 


SEED 


OC 




OUTAB 


8AC05710 




0070 





1600 




DC 




AREA»REAO READ CARD IMAGE lOCC 


8AC0&720 




007E 





0088 


PUCH 


OC 




DUTA8 


8AC05730 




007F 





1601 




DC 




A9EAtREADtBIT15 8-8 READ I OCC 


eAC05740 










»»»»*«.«*«»»»*»»»»»*«»»««»*»»»»*»«»«»»*»♦»*♦»♦♦»♦♦»* 


8AC05750 










• 








8AC06760 




0080 





tOFA 


END 


LO 




RHAR HOX TO ALS 


8AC05770 




0081 





DOBO 




STO 




CONE* I 


eAC057S0 




0082 





08FB 




XIO 




PUCH 


8AC05790 




0083 





70C8 




HDX 




SAVE2 


8AC06800 










••**»••»>*»«»»»•**«•*•********«««•«»*•*•*•***»••*** 


0ACO681O 




008* 





0008 


PLU«« 


OC 




RETAB 


8AC06820 




0085 





90B4 


ALS 


s 




RETUR 


8AC06830 




3035 





4320 




BSC 




I RESULT SHOULD BE 2ER0 


8AC06840 




9087 





70CO 




HDX 




NOTRO 


8AC05850 










• ••••••«**«»*»»*••*»••*••*«•«•»********•*•«.•*••»*•* 


8AC06850 










• 








8AC06870 










• 






OVERLAY HEX CARD READ IN AREA 


8AC06880 




0088 








ORG 




135 


8AC06890 




0088 




0000 


OUTAB 


BSS 


E 





8AC05900 




0088 





7035 


CEON 


DC 




TTTT 


8AC06910 




0089 





1001 


• 

• 

- • 


OC 




AREA*CEM0D*B1T15 CE ON lOCC 
READ AUX PROGRAM CARD 


8AC06920 
8AC05930 ' 
3AC06940 
8AC06950 




008A 





7053 


HEXl 


MOX 


X 


HEXll-CONE-1 HEX CARD XFER AD RESS 


-8AC05960 




0088 





61 AF 


RHEM 

• 


LOX 


1 


-81 


8AC06970 
8AC06930 




008C 





COFD 


DATAR 


LD 




HEXl 


8AC06990 




3080 





0080 




STO 




GONE - 


8AC07000 




008E 





COFC 




10 




RHEM 


8AC07010 




908F 





OOAA 




STO- 




RETUR 


8AC07020 




0090 





0820 




XIO 




RE ADA READ CARD TO BE MODIFIED 


8 ACQ TO 30 




0091 





708A 


' 


HOX 




SAVE2 ■ 


8AC07040 












8AC070S0 








• 


• 








8AC07050 




DATE 




28FEa66 


- 








PROG 10 


08AC-0 


EC NO. 


415120 








« 


PAGE 


7 









• 






INSPECT DATA CARD READ AND PREPARE 


8AC070T0 










• 






• FDR HEX 


OVERLAY CARDS 


8AC07080 




0092 





51F9 


HEXU 


LOX 


1 


-7 




8AC07090 




0093 


00 


C50000C8 


ERIC 


LO 


LI 


CANUM*7 




8AC07109 




0095 


00 


F40000FF 




EQR 


L 


RETAB*39 




8AC07110 




0097 


00 


4C180090 




BSC 


L 


MATCH, ♦- 


BR HATCH FQUNO 


8^007120 




0099 





7101 




MDX 


1 


1 




8AC07130 




009A 





70F8 




HOX 




ERIC 




8AC07140 




009B 


00 


4C000048 




BSC 


L 


NOTRO 


BR NO HATCH FOUND 


8AC07153 




0090 





6^26 


MATCH 


LOX 


2 


38 




8AC07160 




009E 


00 


C50000CF 




LD 


Li 


UNICE+T 




8AC07170 




OOAO 


00 


86000008 


HECK 


A 


L2 


RETA8 




8AC07130 




00A2 





72FF 




MDX 


2 


-I 




8AC07190 




00A3 





70FC 




HDX 




HECK, 




8AC07200- 




00A4 


00 


4C200048 




BSC 


L 


NOTRO. 2 


8!< CARO IN WRONG 


8AC07210 




0OA5 


00 


C50000CF 




LO 


LI 


UNIGE*7 




8AC07220 




00A8 


00 


040000FE 




STO 


L 


BETA8*38 


PLACE UMOUE OATA WORB 


8AC07230 




OOAA 





COO A 




LO 




SHERI 




8AC07240 




00A8 





009A 




STO 




AEOFP 




8AC0725O 




DOAC 


00 


C50000D5 




LO 


11 


STAO0*7 




8AC07269 




OOAE 





0037 




STO 




PC AH 




8AC07270 




OOAF 


00 


C50000BO 




LD 


LI 


AUX*7 




8AC07280 




OOBl 





0085 




STO 




PCA2r 




BAC07290 




00B2 





COOO 




LO 




HEX2 




8AC07300 




0083 





D08A 




STO 




GONE 


PLACE 8RASCH VECTOR 


8AC07310 




0OB4 





708E 


• 


HOX 




LHOS 




3AC07320 

8AC073SO 




0OB5 





7005 


SHERI 


MDX 


X 


SAVE2-AE0FF-1 


8AC07340 










• 










3AC07350 




0086 





00F3 


-AUX 


OC 




/F3 




8AC07360 




0087 





00F3 




DC 




•/F3 




8AC07370 




00B8 





OOFS 




OC 




/F3 




8AC07380 




0089 





OOFS 




OC 




/F3 




6AC07390 




OOBA 





OOF 3 




DC 




/F3 




8AC07400 




0018 





00F3 




DC 




/F3 




8&C07410 




OOBC 





OOFE 




DC 




/OOfg 




8AC0742O 




003E 




0000 




BSS 


E 







8AC07430 




OOBE 





0008 


READA 


OC 




RETAB 




8AC07440 




OOBF 





1601 




OC 




AREA»R£AD4 


Bins READ CARD IN 8-3 iOCf 


8AC07450 




OOCO 





C049 


HEX2 


LD 


X 


ouT/is-aon£ 


-1 


8AC07460 










»«•«•. **»««««i»*«e*)^V^«»«««»»»mtS «$«»«» «£»»»*«#*»«$$»«» 


8AC07479 










• 










8AC07480 










• 






CARD NUMBER TABLE 


8AC07490 




OOCl 





4000 


CANUM 


OC 




/4ooa 


1 ST CARO X COL 80 


8AC07500 




30C2 





2000 




OC 




/2CO0 


2 HO 


8AC07519 




0OC3 





1000 




DC 




/IOCS 


3 R3 1 


eAC07520 




30C4 





0800 




DC 




/08oa 


4 TM 2 


8AC07S30 




0OC5 





0400 




OC 




/0400 


5 TM 3 


8AC07540 




00C6 





0200 




DC 




/0200 


5 TH 4 


8AC07550 




00C7 





0100 


• 


DC 




/OiOO 


7 TH 5 


8AC07560 
8AC07570 










* 






UNIQUE DATA WCR0 TABLE 


8AC075flO 




00C8 





0600 


UNIGE 


DC 




/0600 




8AC07590 




00C9 





0180 




OC 




/0I80 




8AC07600 




OOCA 





0060 




DC 




/0060 




8AC07610 




OOCB 





0018 




DC 




/00I8 




8AC07520 




OOCC 





0006 




DC 




/0006 




8AC07630 




OOCO 





0001 




DC 




/OOOl 




8AC07540 




OOCE 





0000 


• 


DC 




/OOOO 




8AC07550 
8AC07660 










• 






STARTING AOORESS CF DATA CARD 


8AeO7670 




OOCF 





0035 V 


STADO 


OC 




54 




3AC07680 




OODO 





0051 




OC 




81 




8AC07590 




0001 





006C 




DC 




lOS 




8ACO7700 




0002 





0087 




DC 




135 




3AC077ia 




0003 





00A2 




DC 




15? 




8AC07720 




3004 





OOBO 




OC 




189 




3AC0T730 




0005 





0008 




OC 




21ft 




eAC07T40 




DATE 




28FEB66 












PROG ID 


08AC-0 


EC NO. 


415120 












PACE 


7* 



( i 1. ((( C (((((<(((( ( 



1 <((((((<( 1 ( < 



i i ( 



IBH MAINTENANCE OIAGNOSTiC PROGRAM FOR THE ISOO^VSTEN 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1 CARD EDIT 
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PAGE 8 



IBH MAINTENANCE OIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1 CARD EDIT 



PART NO. 2196^55 
PAGE BA 



00D6 


OOFE 




DC 




254 


8AC07750 








• *««*» *»»«**»*«»«***»*«i«** *******•*»*«•» *********** 


8AC07760 




0007 




• 


ORG 




216 


8AC077T0 
8AC07780 








* 


CARD 


TO 


BE MODIFIED STORED HERE 


8AC07790 




001)8 


0028 


RETAB 


BSS 




40 


8AC07800 








*««»»»»»****«*»«****»*»**•»»»***>«****«>******•**** 


8AC07810 




0600 




READ 


ECJU 




/0600 INITIALIZE READ 


8AC0T820 




0500 




WRITE 


EOU 




/0500 INITIALIZE WRITE 


8AC07830 




0002 




8IT14 


EQU 




/0002 


8AC07840 




0001 




BIT15 


EOU 




/OOOl CE ON, RESET Of OSa 


8AC07853 




0400 




CTRL 


EQU 




/0400 CONTROL FUNCTION 


8AC07860 




0700 




SENSE 


EOU 




/0700 SENSE FUNCTION 


8AC07870 




0000 




CEHOO 


EOU 




/OOOO CE fOOE FUNCTION 


8AC07.889 




0080 




eiTB 


EOU 




/0080 STACKER SELECT BIT 


8AC07S90 




0040 




BIT9 


EQU 




/0040 


8AC07900 




0020 




BITIO 

• 


EQU 




/0020 


8AC07910 
8AC07920 








»*»»»»*»** 


^**» »♦* t *»*♦»*♦♦*»*»* »«**v** *»»»»* ******* 


8AC07930 








»*»»***»»*»*« 


^«*«^d**»****4<> «***•**••«** *********** 


8AC07940 








»*»»**»»**»»»*»«*«*#»*****«,»»»*»•»*•»»»*»»•»*»»**• 


8AC07950 








* 








8AC07960 








* THE 


FOLLOWING PROGRAM DATA IS LOC IN CARD 6 


8AC07970 








* 








8AC07980 




otoo 






ORG 




136 


8AC07990 




0088 


61AF 


• 


LOX 


1 


-81 

PLACE CHECK SUM 


8ACO8O0O 
8AC08010 




0089 


6126 




LDX 


1 


33 


8ACO8020 




008A 00 


850000D8 


CHECK 


A 


LI 


RETA8 


8ACOS030 




008C 


71FF 




HDX 


1 


-I 


8AC08040 




0030 


70FC 




MDX , 




CHECK 


8AC08050 




008E 


FOOD 




E01 




FFFF 


8AC08060 




008F 


8000 




A 




ADO 


8XC0d070 




0090 00 


D40000FE 




STO 


L 


RETAB*38 


8AC08080 




0092 


€805 




LOO 




QUEN 


8ACO809O 




0093 00 


OC00003E 




SID 


L 


GONE 


8AC08100 




0095 


0804 




XIO 




REE 


8AC08110 




0096 00 


4C00004C 




BSC 


L 


SAVE2 


8AC08120 




0098 


OOOO 




BSS 


E 





8AC08130 




0098 00 


4C000O9E 


OUEN 


BSC 


L 


KING 


8AC08140 




009A 


0060 


REE 


DC 




96 


8AC08150 




009B 


1601 




DC 




AREAtREAO*BITlS 


8AC08160 




009C 


FFFF 


FFFF 


DC 




/FFFF 


8AC03170 




0090 


0001 


ADD 


DC 




/OOOl 


8AC08180 




009E 00 


C4000060 


KING 


LO 


L 


96 


8AC08190 




OOAO 00 


94000051 




S 


L 


HB07 


8AC08200 




00A2 00 


4C200048 




BSC 


L 


NOTRDfZ 


8AC08210 




00A4 00 


4C000060 




BSC 


L 


96 


8AC08220 








»»♦*♦***»»***»»••»»*****♦*♦**»*»»»♦**•*•***»*****♦» 


8AC08230 








*»••*»»••*«•* 


************************************** 


8AC08240 








* 








8AC08250 








* THE 


FOLLOWING PPOf.RAM DATA IS LOC IN CARD T 


8AC08260 








• 








8AC08270 




00A6 




• 


ORG 




96 

SET UP PUNCH TABLE 


8AC0a280 
8AC03290 




0060 


6204 




LDX 


2 


4 


8AC03300 




0061 00 


650000FF 




LDX 


LI 


RETAB*39 


8AC03310 




0063 


6250 




LDX 


2 


80 


8AC08320 




0064 


lOAO 


CONTR 


SLI 




32 


BAC08330 




3065 


ClOO 




LO 


1 





8AC08340 




0066 


1888 




SRT 




8 


8AC0S350 




3067 


lOOS 


IT 


SLA 




8 


8AC08360 




0068 


1800 




RTE 




16 


8AC08370 




0069 00 


OE000086 




STO 


L2 


OUTA8-2 


8AC083S0 




006B 


TIFF 




MDX 


1 


-1 


8AC08390 




006C 


72FE 




MOX 


2 


-2 


8AC08400 




0060 


70F6 




HOX 




CONTR 


0ACO841O 




006E 00 


74080007 




MOX 


L 


0UTAB*79«8 SET PUNCH TERMINATOR 


8AC08420 




DATE 


28FEB66 








PROe 10 
PACE 


08AC-0 

• 


EC NO. 


415120 











0070 





0807 




XIO 




PUNCH 


8AC03430 


0Q71 





C80A 




LOO 




VEX 


8AC03440 


0072 


00 


OC00003E 




STO 


L 


GONE 


8AC03450 


0074 


00 


4C00004C 




BSC 


L 


SAVE2 


8AC03460 








**»«**»»»« 


»««*»»♦«»**♦**»***************•*»******»* 


3AC03470 








• 








8AC03480 


0076 





0803 


FINA 


XIO 




FEED 


8ACC3490 


0077 





70 DO 




MDX 




NOTRO 


8AC03500 








♦»»»»»»»»*».♦»»««»»»»»»♦*♦**♦* *****9*»***»****»**** 


9AC03510 








* 








6AC03«i20 


0078 




OOOO 




BSS 


E 





sAcosssa 


0078 





OOOO 


PUNCH 


DC 







8AC03540 


0079 





1402 




DC 




AREAtCTRL*BITl* 


8AC085S0 


007A 





0083 


FEED 


DC 




OUTAB 


8AC03560 


0078 





1500 




DC 




*REA*HRITe 


3AC03570 


007C 


oo 


4C000076 


VEX 


BSC 


i 


FINA 


8AC03580 


OOOO 






OQQQ 


EQU 




/O GO TD LOADER AT /O 


8AC03590 


7007 






NNNN 


EQU 




/7007 FOR CARD LOADER AT /i5 




0313 






WMWW 


EQU 




/0el3 SET IN LOADER AT /04 


8iC03610 


7035 






TTTI 

• 
• 


EQU 




/7000»RETUR-/4-l THIS IS EQUAL TO 
THE BRANCH FROM THE LOADER 
TO RETUR IN THIS PROCRAH. 


8AC03^^0 
8AC03630 

aAC08640 


0016 






CEOFF 


EQU 




/16 LOC OF CE OFF lOCC IN LOR 


8^C03650 


0012 






DSWLX 


FOU 




/12 LOC OF DS-I IN CARD LDR 


8AC03660 








»»»»»»»»»»»»»»*»**»»»»«»»»»»»»*»«**»»»»«»•*»»♦*«*»* 


8AC0S670 


007E 




0070 




END 




*-l 


8AC03630 
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IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEH 



AUX PROGRAM GENERATOR UTILITV PROGRAM 
AUX t CARD EDIT 



PART NO. 21964SS 
PACE 9 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 S«5T£M 



*^E 



PART NO. 2196«SS 
PACE 9A 



AUX PROGRAM GENERATOR UTILITV PROGRAM 
AUX I CARD EDIT 



CROSS REFERENCE LISTING 



SyMBOL 

ADO 

AEOFF 

ALS 

AREA 

AUX 

BITIO 

BIT14 

81TI5 

BITS 

BIT9 

CANUM 

CEMOO 

CEDFF 

CEON 

CHECK 

CONTR 

CTRL 

OATAtf 

OSWLX 

OUTAS 

END 

ERIC 

FEED 

FFFF 

FINA 

FIRSP 

GONE 

He06 

HB07 

HBIO 

HECK 

HEXl 

HEXll 

HEX2 

HT8X 

HTBZ 

HTOB 

HTDBl 
IT 

KING 

LH05 

MATCH 

NNNN 

NOA 

NOTftO 

PCAM 

PCA27 

PLUM 

PUCH 

PUNCH 

OQQQ 

OUEN 

READ 

REAOA 

REE 

REED 

RETAB 

RETUR 

RHEH 

RMAR 

SAVE 

SAVE2 

SAVE3 

SENSE 

SHERI 



VALUE 

0090 

00 't6 

0035 

1000 

0086 

0020 

CJ02 

0001 

0080 

0040 

OOCl 

0000 

0015 

0088 

008A 

006* 

C*00 

008C 

0012 

0038 

0080 

0093 

007A 

009C 

0076 

0073 

003E 

OO'H 

0p51 

0052 

00 AO 

003A 

0092 

OOCO 

C063 

0065 

0058 

005F 

0067 

00?E 

00*3 

009D 

7007 

0059 

00*8 

0035 

0037 

0034 

007t 

0078 

000 D 

0098 

0600 

OOBE 

009A 

007C 

00D8 

00 3A 

0088 

0078 

006A 

004C 

004E 

0700 

00B5 



REFERENCES 

008F 

0038, 0044, OOAa,003S 

007B 

00 70, 007F, 0089, OOBF, 0098, 0079. OOTB 

00 AF 

0079 

00 7F, 0089, OOBF, 009B 



0093 

0089 

0048 

0036, 003A 

0080 

0060 

0079 

003E 

003B 

0054, O07C,007E, OOCO. 0069, 006E, 007* 

C040 

00 9A 

0075 

OOBE 

00 7C 

0047,0059 

00 78,008 I, 008 A, 0030,0083, OOCO, 0093,0072 

0072, 007A 

OC4Z,007a,OOAO 

0068 

00A3 

00 8C 

008A 

00B2 

0060 

0050 

0062 

0098 

0057,0084 

009? 

0046 

0045,0047,0079 

006F,00 75,008 7.009B,OOA4,OOA2,0077 

0073, OOAE 

006C,OOB1 

0076 

0082 

0070 

0050 

0092 

00 7D,007F, OOBF, 0098 

0090 

0095 

0043 

00 84>O09S,00A0,0OA8, OOBE, OOSA, 0090, 0051 

0035.00SF,007E 

OOBE 

0080 

006A, 0060, 0070.0077 

OOSC ,0083,0091,0085,0096,0074 

0030 

OOAA 



STAOD 


OOCF 


OOAC 


TEHP 


0038 


0053,0064 


TEMPI 


0039 


0053,0065 


TTTT 


7035 


0088 


UNIGE 


ooce 


009E.00A6 


VEX 


00 7C 


0071 


WRITE 


0500 


007B 


HWWW 


0813 


0048 



DATE 
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08AC-0 



DATE 
EC NO. 



28FEB66 
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PROG to 
PACfe 



08AC-0 
9* 
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IBH MAINTENANCE DIAGNOSTIC PROGRAH FOR THE 1600 SVSTEN 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX PROCESSOR 



02BC 



0036 

0037 

0038 

0039 















ABS 
ORG 



/36 



«.»»»»*♦»»»*♦»*»♦»»**♦»♦»»•»»♦»**»♦»♦*»»«*»»»**»•♦ 



PROCESSOR SKELETON PROG 
THIS t'ROG CAN NOT BE LOADED f^OH PAPER TAPE 



* 
• * 

* 
* 



*IBH*I 

* 

»I8M*1 

* 

* 



PURPOSE 

THE PURPOSE OF THIS PROGRAH IS 
TO PROVIDE A SKELETON PROGRAM 
UPON WHICH THE CE CAN WRITE AN 
AUX STORAGE PROGRAM. 



GENERAL INSTRUCTIONS 

CE SWITCH SETTINGS 

OOOOllll CE SERVICE STOP 

nUllll TFRMINATE PROGRAM 

ALL OTHtR C0!IBINATI3NS ARE STORED 

* AT THE LOCATION CESH FOR 

* POSSIBLE USE BY THE CE TO 
» CONTROL HIS PROGRAM 



»»»»»*»»*»*<*»»»♦♦»*♦♦*»»*♦**»•»»♦♦»•••• 



BM*I8H*IBM*ieH»lBH»IBH*IBM»IBH*IBH*IBH*IBH*l 
CORRECTIONS FOR THE FOLLOWING 27 • 
WORDS MUST BE HADE IN THE CARD • 
NUMBERED X OF THIS AUX PROGRAMS • 
T CARD OBJECT DECK. ♦ 

8M* 1 8M* I BM* 1 BM» I BH» IBM* I BM* I BM* I BM» I BM»I BM* I 



AUX PROG ENTRY POINTS 

^t ******* ************ 

1ST PASS ENTRY 

************** 



COIB 

DOFO 

COID 
DOC A 



LD 
5T0 

LD 
STO 



003A 
0038 
Q03C 
0030 
303E 
003F 
0040 
OOfil 
00'.2 
30<>3 00 

0045 

0046 00 



lOOC 

6A21 

6822 

1000 

1000 

0810 

EOOF 

DO 20 

FOOD 

4C1800S8 

FOOE 

4C18005C 



RETUR 



NOP 
STX 
STX 
NOP 
NOP 
XIO 
AND 
STO 
EOR 
BSC 
EOR 
BSC 



0SW52 RESTORE LOC NICE 
/3S * IN AUX LOADER 

CEOFF PLACE BRANCH 
/04 * TO RETUR LABEL 

ALL BUT 1ST PASS ENTRY POINT 
»♦»»♦»♦«»»*»»«*»♦♦»»♦♦»*•»*• 

NO OP INSTRUCTION CODE 

2 SAVE2H SAVE INDEX REGISTER 2 

3 SAVE3*1 SAVE INDEX REGISTER 3 

NO DP INSTRUCTION CODE 
NO OP INSTRUCTION CODE 
SENSE CE PROG SW TO ACCOM 
BLOCK OUT PROG SEL SliJ. 
SAVE CE PROG SW SETTINGS 

BR TERMINATE PROGRAM 

BR SERVICE STOP 



SENBI 

SENBI 

CESH 

SENBI 

NOTRDt* 

CEON 

SAVE2.* 



PART NO. 2196^55 
PACE 10 



aAC03700 
8AC0S710 
8AC08720 
aAC0873a 
8AC08740 
8AC03750 
8AC03760 
8AC0a770 
8ACOa780 
8AC03790 
8AC08800 
SACOSaiO 
eAC08820 
8AC0a830 
8AC08340 

SACoaaso 

8AC03860 

8AC03a70 

8AC03S80 

8AC08890 

8AC08900 

8AC0a9I0 

8AC03920 

SAC0a930 

aAC03940 

8AC03950 

8AC08960 

8AC0a970 

8AC039S0 

8AC03990 

8AC09000 

8AC09010 

8AC09020 

8AC0903a 

8AC09040 

8AC09050 

8AC09060 

8AC09070 

8AC09080 

8AC09090 

8AC0910a 

8AC09110 

8AC09120 

8AC09130 

8AC09140 

8AC09150 

8AC0916a 

8AC09170 

8AC09180 

8AC09190 

8AC09200 

8AC09210 

8AC09220 

aAC09230 

8AC09240 

8AC09250 

8AC09260 

8AC092T0 

8AC092aO 

8AC09290 

8AC09300- 

8AC09310 

8AC09320 

BAC09330 

8AC09340 

8AC09350 

SAC09360 

aAC09370 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX PROCESSOR 



0048 00 CC00004E 
904A 00 DCOOOOFE 



304C 00 4C000067 
304E 00 4C000058 



0050 0000 
0050 OOFF 



L03 L TERM 
ST3 t /OOFE 



SET TERHINAfOR BR AT END 

♦ OF AJX CORE AS A SAFETY 

• PRECAUTION 



SSt L CEGO BR TO DO IT YO-RSELF PROG 

TERM 5SC L NOTRD TERMINATOR BRANCH 
»*»»«».»»»»»»*»♦»»»»*»*»»»««»»»»»»«*»»**»*»*»****•* 



» CO^'STANTS ANO/QR lOCC WORDS 

5SS £ 
SENS! CC /OOFF TERMINATOR CONSTANT 



0051 


0760 


• 
• 


^.f 


/0760 


0052 


70D7 


0SW52 


t-t 


NNNN 


0053 


7004 




"DX 


NOTRD 


0054 


OOFO 


CEON 


d: 


/OOFO 


0055 


7002 




"^X 


NOIRO 


0056 


7035 


CEOFF 


CC 


TTTT 


0057 


7000 




""X 


NOTRD 



0058 00 65000813 
005A 69A9 
005B 1000 



005C 00 66000000 
005E 00 67000000 

0060 70AC 



*IBM*4S''*!BM»IBM»1BH*IBH»I8H»IBM»IBM*IBM»IBM-I8H*I 

• CO!«RfCTIONS FOR THE FOLLOWING 27 » 

• HUROS MUST BE HADE IN THE CARD * 

• NUMBtTED OF THIS AUX PROGRAMS * 
» 7 CARD OBJECT DECK. * 
*IBM*I5«*I3M*!BM*I8M»IPM»I6M*IBM*I8M*IBM»IBM*I8H»I 

SENSE CE SWITCHES 

THIS LOC IS NOT USED 

CE SERVICE STOP CONST 
THIS LOC IS NOT USED 

IHIS LOC IS NOT USED 

***** It I* it *************************** ******** 
• 

• , EXIT POINTS TO AUX LOADER 
« ****t^***************t**** 

* 

» TERMINATE EXIT POINT 

NOTRO L-X LI WWWW 

STX I /04 

,\0? NO OP INSIRUCIION CODE 
* 

• NORMAL EXIT POINT 
SAVE2 LZX L2 

SAVE3 L3X 13 

":x QOQQ 



0061 





70F6 


0062 




0000 


0062 





0000 


0063 





70F4 


0064 





70F3 


0065 





70F2 


0066 





70FI 



****^ 



CESM 



-.tit*****************************^******** 
t^ttt ************** ******** **^*'>^*'>**''^******* 
■.%tti ***»****"********************* *'********* 



■'Ot 

sss 

DC 

"DX 

"OX 

m:x 



NOTRO 


• 

NOTRO 
NOTRD 
NOTRD 
NOTRO 



THIS LOC IS NOT USED 

CE PROGRAM SW SETTING 
THIS LOC IS NOT USED 
THIS LOC IS NOT USED 
THIS LOC IS NOT USED 
THIS LOC 13 NOT USED 






0067 TOFO 



at^*********** ******************* *********** 



THIS IS THE STARTING POINT OF YOUR 
PROGRAM. 



ECO H3X NOTRD 1ST LOC OF YOUR PROGRAH 
BRANCH TO LOCATION SAVE2 WHEN 
EXITING FROM YOUR PROGRAH. 



PART NO. 21964SS 
PAGE lOA 



8AC09380 

8AC09390 

8AC09400 

8AC09410 

8AC09420 

8AC09430 

8AC09440 

8AC09450 

8AC09460 

8AC09470 

8AC09480 

8AC09490 

8AC09S00 

8AC09510 

8AC09520 

8AC09530 

aAC09540 

8Ar,09550 

8AC09560 

8AC09570 

8AC09580 

8AC09590 

8AC09600 

8AC09610 

8AC09620 

8AC09630 

8AC09640 

8AC096S0 

8AC09660 

8AC09670 

8AC09680 

8AC09690 

8AC09700 

8AC09710 

8AC09720 

8AC09730 

8AC09740 

8AC09750 

8AC09760 

8AC09770 

eAC09780 

8AC09790 

8AC09800 

8AC09810 

8AC09820 

8ACO9830 

8AC09840 

8AC09850 

8AC09860 

8AC09870 

8AC09880 

8AC09890 

8AC09900 

8AC09910 

8AC09920 

8AC09930 

8AC09940 

8AC09950 

8AC09960 

8AC09970 

8AC09980 

8AC09990 

8AC1O0OO 

8AC10010 

8AC10020 

8AC10030 

8AC10040 

8AC10050 



DATE 
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PROG ID 
PAGE 



08AC-0 
10 



DATE 
EC NO. 



28FEB6fr 
415120 



PROG ID 
PACE 



08AC-0 
lOA 



( C 1 



C 1 ((((<(<((( ( 
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tan MAINTENANCE OtACNOSTIC PROGRAM FOR THE 1800 SVSTEM 



AUX PROGRAH GENERATOR UTILITY PROGRAM 
A'JX PROCESSOR 



0068 70EF 

0069 70EE 
006A 70E0 
OOCB 70EC 



ao6C 





70EB 


0060 





70EA 


006E 





70E9 


006F 





70E8 


0070 





70E7 


0071 





70 E6 


0072 





TOES 


007J 





70E4 


007« 





70E3 


0075 





70E2 


0076 





70EI 


0077 





70E0 


0078 





70DF 


0079 





70DE 


007A 





7000 


007B 





700C 


007C 





70D& 


0070 





70DA 


007E 





7009 


007F 





7008 


0080 





700T 


0031 





7006 


0082 





7005 


U083 





70 D* 


008* 





7003 


0085 


G 


7002 


0086 





7001 



HOX NOTRO 

MOX NOTRO 

HOX NOTRO 

MOX NOTRO 



IBH»IBH»IBH»IB".*lBM»IB(i»lBH»I8H*IBM«l8M»IBM*iaM*l 
CO^IRECIIONS FOR THE FOLLOWING 27 ♦ 
WO^DS MUST BE MADE IN THE CARO * 

MJ^'.BERED I OF THIS AUX PROGRAMS *' 

7 CARO OBJECT DECK. * 

IBH»IBM»1BM«IBM*I0M»I8M*1BM*IBH*IBH*IBM»:BH*IBM*I 



HOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 



I BM* 1 BM» I BM* I BH* I BM* I BH* i BM» I BM* I BH» I BM» I BM»I BH* I 
CORRECTIONS FOR THE FOLLOWING 27 • 
WORDS MUST BE HADE IN THE CARD » 
NUMBERED 2 OF THIS AUX PROGRAMS • 
7 CARO OBJECT DECK. ♦ 

IBM*IBM»I8M»1BH»IBM»IBM»IBH*IBM»I8M»IBM»IBM»I8H*I 



0087 





7000 


HOX 


NOTRO 


0088 





70CF 


HOX 


NOTRO 


0089 





70CE 


MOX 


N0IP3 


008A 





70C0 


MOX 


NOTRO 


0088 





70CC 


MOX 


NOTRO 


008C 





70CB 


MOX 


NOTRD 


0080 





70C* 


HOX 


NOTRO 


008E 





70C9 


MDX 


NOTRD 


008F 





70C8 


HOX 


NOTRO 


0090 





70C7 


HOX 


NOTRO 


0091 





70 C6 


HOX 


NOTRO 


0092 





70C5 


MOX 


NOTRO 


0093 





70C« 


HOX 


NOTRD 


0094 





70C3 


MOX 


NOTRO 


0095 





70C2 


HOX 


NOTRO 


0096 





70CI 


MOX 


NOTRD 


0097 





70C0 


MDX 


NOTRO 


OATE 




26FEB66 






EC NO. 


«t5120 







PART NO. 2t96«SS 
PAGE It 



8AC1C060 
8AC10070 
8 AC 10080 
8AC10090 
8 AC 10 100 
8AC10110 
8AC10120 
8AC10130 
8AC10140 
8AC10150 
aAC10160 
8AC10170 
8AC10180 
8AC10190 
8AC10200 
8AC10210 
8AC10220 
8AC10230 
8AC10240 
8AC10250 
8AC10260 
8 AC 102 70 
8AC10280 
8AC10290 
8AC10300 
8AC10310 
8AC10320 
8AC10330 
8AC10340 
8 AC 103 50 
8AC10360 
8AC10370 
8AC10380 
8AC10390 
8AC10400 
6AC10410 
8AC10420 
8AC10«30 
8ACI04A0 
8AC10450 
8AC10'i60 
8AC10470 
8AC10480 
8AC10490 
8AC10500 
8ACIO5I0 
8AC10S20 
8ACt0530 
8AC10S40 
8AC10550 
8AC10560 
8AC10570 
8AC10580 
8AC10S90 
8AC10600 
8AC10610 
8AC10620 
8AC10630 
8AC10640 
8AC106SO 
8AC10660 
8ACI0670 
8AC10680 
8AC10690 
8AC10700 
SAClOTtO 
8AC10720 
8AC10T30 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEM 



AUX PROGRAH GENERATOR UTILITY PROGRAM 
AUX PROCESSOR 



0098 





70BF 


0099 





70BE 


009 A 





7080 


009B 





708C 


009C 





70 BB 


009') 





70BA 


009E 





70B9 


009F 





7088 


OOAO 





70a7 


OOAl 





70B6 



90A2 





7085 


00A3 





70B* 


00A4 





7083 


OCAS 





70B2 


00A6 





7081 


00A7 





70B0 


00A8 





70AF 


00A9 





70AE 


OOAA 





70A0 


OOAB 





70 AC 


OOAC 





70AB 


OOAO 





70AA 


OOAE 





70A9 


OOAF 





70A8 


OOBO 





70A7 


0031 





70A6 


0052 





70A5 


00B3 





70A* 


OOB* 





70A3 


00B5 





70A2 


00B6 





70A1 


008 7 





70A0 


00B8 





709F 


0OB9 





709E 


OOBA 





7090 


OOBB 





709C 


ODBC 





709B 



HOX 


NJTRO 


MDX 


NOTRD 


MOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MJX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 



IBM»IBM*IBH*IB''*IBH»!SK»IBM»I8M*iaM*I8H*IBM®IBH»I 

CGRPECTIOfJS FCa THE FOLLOWING 27 ♦ 
WO^OS MUST 8E MAOe IN TKE CARO • 
NU'^IBERED 3 GF THIS AUX PRUGRAMS * 
7 CARD OBJECT DECK. « 

IBH»16H»iaH*IBH»SaM*I3H»I8M*IBM*IBM*IBH»IBH«ISH»l 



HOX 


NOTRO 


MDX 


NOTRD 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRD 


MDX 


NOTRD 


MDX 


NOTRO 


MDX 


NOTRD 


MDX 


NOTRO 


MDX 


NOTRD 


HOX 


NCTPO 


MOX 


NOTRO 


MDX 


N3TR0 


MDX 


NOTRD 


MDX 


NOTRO 


MDX 


NOIAO 


MDX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRD 


MDX 


NOTRO 


MOX 


N3TR0 


MDX 


NOTRD 


MDX 


N3TR0 


MOX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 



IBM*IBM»!BH»IBK*IBM»IBH*IBM*IB«»SB''*l6M*I8M*ieM»I 
CORRECTIONS FOR THE FOLLOWING 27 • 
WORDS MUST BE MADE IN THE CARO » 
NUMBERED 4 OF THIS AUX PROGRAMS ♦ 
7 CARD OBJECT DECK. * 

IBM*IBM»IBM»!6M»IBM»13M*lBf»IB''»IBM*IBH»{8H»IBM»I 



PROG 10 
PACE 



08AC-0 
11 



OOBO 


709A 


MOX 


NOTRO 


OOBE 


703F 


MOX 


/OOFE 


008F 


703E 


MOX 


/OOFE 


COCO 


7030 


MDX 


/OOFE 


OOCl 


703C 


MDX 


/OOFE 


00C2 


7038 


MOX 


/OOFE 


00C3 


703» 


MUX 


/OOFE 


00C4 


7039 


MDX 


/OOFE 


0OC5 


7038 


HOX 


/OOFE 


aoc6 


7037 


MDX 


/OOFE 


00C7 


7036 


MOX 


/OOFE 


OATE 


28FE866 






EC NO. 


415120 
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8AC10740 
8ACI0750 
8ACI0760 
8AC10770 
8AC10780 
8ACI079U 
8AC10800 
8AC10810 
8AC10820 
aAC10830 
8AC10840 
8AC10850 
SACS 0860 
8AC10870 
SAClOadO 
8 AC 10890 
SACI0900 
3AC109I0 
8 AC 10920 
8AC10930 
a AC 10940 
8AC10950 
8AC10960 
8 AC 10970 
8 AC 10980 
8AC1099D 
3AC11000 
SACilOlO 
9AC11020 
SAC11030 
8AClt040 
SACUOSO 
SAC 11060 

aAciio7a 

SACUOSO 
6AC11090 
SACUIOO 
SACilllO 
8AC11120 
8AC11130 
8AC11140 
8AC111S0 
8AC11160 
8AC11170 
8AC11180 
SAC11190 
8AC11200 
eAC11210 
8AC11220 
8AC11230 
8AC11240 
8AC11250 
8AC11260 
8AC11270 
8AC11280 
8AC11290 
8AC11300 
SAC11310 
8AC11320 
8AC11330 
8AC11340 
SAC11350 
8AC11360 
8AC11'J70 
8AC1I380 
8AC11390 
8AC11400 
8AC11410 



PROG to 
PACE 



08AC-0 
It* 



( < 1 



V 






< ( ( 



I, i ( I ■. ■ 



IBM MAINTENANCE DIAGNOSTIC PROGRAM' FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX PROCESSOR 



PART NO. 2196459 
PAGE IZ 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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00C8 


7035 


HOX 


/OOFE 












8AC11420 




0TC9 


7034 


HOX 


/OOFE 












8ACll43a 




OOCA 


7033 


nox 


/OOFE 












8AC11440 




OOCB 


7032 


HDX 


/OOFE 












8AC11450 




OOCC 


7031 


MDX 


/OOFE 












8 AC 11460 




30CD 


7030 


MOX 


/OOFE 












8AC11470 




OOCE 


702F 


MDX 


/OOFE 












8AC11480 




OOCF 


702E 


MUX 


/OOFE 




, 








8 AC 11490 




0000 


7020 


MOX 


/OOFE 












8AC11500 




OODl 


702C 


HDX 


/OOFE 












8AC11510 




0002 


702 B 


MOX 


/OOFE 












8AC11520 




0003 


702A 


MOX 


/OOFE 












8AC11530 




0OD« 


7029 


MOX 


/OOFE 












8AC11S49 




0005 


7028 


HOX 


/OOFE 












8AC11550 




0006 


7027 


MOX 


/OOFE 












8AC11S60 




0007 


7026 


MOX 


/OOFE 












8AC11S70 
SACllSSO 
8AC11590 








H BH» I BM» I BH» I BH» I BH» t BM 


*I8M»IBH* 


IBM* I Br 


* IBM* IBM* I 


8AC11600 










CORRECT !0», 


S FOR THF 


FOLLOWING 38 • 


8AC11610 










WORDS MUST 


6E 


MADE 


IN THE 


CARD * 


8AC11620 










WHOERtO 5 


OF 


THIS 


AUX 


PROGRAMS • 


8AC11630 










7 CARD OBJECT 


DECK. 






♦ 


8AC11640 








>IBH»IBM»I8M« 


in;islBM»lEH 


»I8H»IBH* 


IBM*IBH*IBH*IBM*I 


8AC116S0 






















SAC11660 






















8AC11670 




0008 


7025 


HOX 


/OOFE 












SAC 11680 




00D9 


702* 


H3X 


/OOFE 












8 AC 11690 




OOOA 


7023 


HOX 


/OOFE 












8AC1170a 




OODB 


7022 


HDX 


/OCFE 












8AC11710 




OODC- 


7021 


MOX 


/OOFE 












8AC11720 




OODO 


7020 


MDX 


/OOFE 












8AC11730 




OODE 


701F 


MOX 


/OOFE 












8AC11740 




OODF 


701E 


HDX 


/OOFE 












8AC11750 




ooeo 


7010 


HDX 


/OOFE 












8AC11760 




OOEl 


70 IC 


MDX 


/OOFE 












8AC11770 




0062 


701B 


MOX 


/OOFE 












8AC11780 




OOEJ 


701A 


MOX 


/OOFE 












8AC11790 




00E4 


7019 


MOX 


/OOFE 












8AC11800 




00E5 


7018 


MDX 


/OOFE 












8AC11810 




00E6 


7017 


HDX 


/OOFE 












8AC11320 




OOET a 


7016 


MOX 


/OOFE 












8AC11830 




00E8 


7015 


MOX 


/OOFE 












8AC11840 




00E9 


7014 


MOX 


/OOFE 












8AC11850 




OOEA 


7013 


MDX 


/OOFE 












8AC11860 




OOEB 


7012 


MOX 


/OOFE 












8AC11870 




OOEC 


7011 


MCX 


/OOFE 












8AC11880 




OOED 


7010 


HDX 


/OOFE 












8AC11890 




OOEE 


700F 


MDX 


/OOFE 












8AC11900 




OOEF 


700E 


MOX 


/OOFE 












8AC11910 




OOFO 


700J 


MDX 


/OOFE 












8AC11920 




OOF I 


700C 


HOX 


/OOFE 












8AC11930 




00F2 


700 B 


MDX 


/COrE 












8ACU940 




0OF3 


700A 


MDX 


/OOFE 












8AC11950 




OOF* 


7009 


MDX 


/OOFE 












8AC11960 




OOFS 


7008 


HDX 


/OOFE 












8AC11970 




00F6 


7007 


MOX 


/OOFE 












8ACll98a 




OOFT 


7006 


HDX 


/OOFE 












84C11990 




OOF 8 


7005 


HOX 


/OOFE 












8AC12000 




00F9 


7004 


HOX 


/OOFE 






- 






8ACt2010 




OOFA 


7003 


HOX 


/OOFE 












8AC1202a 




0OF8 


7002^ 


HOX 


/OOFE 












BAC1203O 




OOFC 


7001^ 


HDX 


/OOFE 












8AC12040 




OOFD 


7000 


MOX 


/OOFE 












8ACt2050 






»***f*t»*r**»»t»tt****»**»»»»***»*****»***^*»**«t» 


8AC12060 






• 
















8AC12070 




OOOD 





000 EOU 


/a 


GO 


TO LOADER 


AT 


/D 


eAC12080 




TOOT 


N 


NNN EQU 


/TOO? 


FOR 


CARD 


LOADEIt 


AT /35 


8AC1209a 




DATE 


28FEB66 
















PROG 10 


08AC-b 


EC NO. 


415120 
















PAGE 


12 



0813 
7035 



OOFE 



WMWW 
TTTT 

* 



EOU /0813 SE1 IN LOADER AT /04 8AC12100 

EOU /7000*RETUR-/4-l THIS IS EQUAL TO 8AC12110 

THE BRANCH FROM THE LOADER 8AC12120 
TO RETUR IN THIS PROGRAM. 8ACt2130 



OOFO 



*******«*»****«**»*>****««*««9«*t«tt»*t««»t» «•»**** 8 AC 121 40 
END •-! END CARD NEVER USED 8^C1^150 






DATE 
EC NO. 



28FE866 
415120 



PROG 10 08AC-0 
PAGE 12* 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEM 

AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1ST 1053 



PART NO. ^(^6453 
PACE ^ I3A 



SYMBOL 


VALUE 


REFERENCES 


CECO 


0067 


00 *C 


CEOFF 


0056 


0033 


CtON 


005* 


C04S 


CESW 


0052 


00*1 


0SW52 


0052 


0036 


NNNN 


7007 


0052 


NOTRD 


0058 


0043, 00*E, 0053, 
0067,0068,0069, 
0071,0072,0073, 
00 7B, 0070,0070, 
0085,0086,0087, 
003F, 0090, 0091, 
0099,009A,C098, 
00A3,00A*,00A5, 
OOADtOOAE.OOAF, 
00B7,C0B8,O0B9,( 


OQQO 


OOOD 


0060 


RETUR 


00 3 A 


OOFE 


SAVE2 


005C 


0038,0046 


SAVE3 


OOSE 


00 3C 


SENBI 


0050 


003F, 0040, 0042 


TERM 


00*E 


0048 


TTTT 


7035 


0056 


MMWM 


0313 


0058 



DATE 
EC NO. 



02BC 
0800 



0055, 
006A, 
0074, 
007E, 
008S, 
0092, 
009C, 
00A6, 
OOBO, 
OOBA. 



0057, CC51 

ocaB,006C 

0075,0076 
007F,OOeO 
0089, C08A 
0093,0094 
009D,009£ 
00A7,00A8 
0031,0032 
OOBB.OOBC 



,0063 
,0063 
,00 77 
.0081 
,0088 
.0095 
,009F 
,00*9 
.0033 
,0080 



,0064, 
,00%E. 
,0073, 
,0082, 
,008C, 
,0096, 
.OOiO, 
•OOAA, 
,0084, 



0065,0066. 
00&F,0070. 
0079,007*, 
0033,0084, 
003D,003E« 
0097,0098, 
00Al,OOA2, 
OOAS.OOAC, 
00B5,00B6, 



0002 



ABS 

ORG /36 

AREA £QU /0500 1ST 1053 A«6A CODE 

* IF THIS PROG IS 10 BE USED FOR A HtkCH 

* WITH A DIFF AREA CODE ALL THE LCCATIDNS WHSCH 

* REFES TO THE LABEL AREA Vi SYMBOL TASLE lUST 

* BE CHANGED 8Y HEX CORRECTION CARDS TO D3TAIN A 
MOOIFJEO AUX 8-8 OBJECT DECK. SEE AUX CE PR&G 
GENERATOR WRITE-UP FOR PROCEDURE. 

/0002 1ST 1053 MODIFIER BIT 



* 
• 
MOOIF EOU 

• 

• THIS PROO 



3036 COIB 

0037 DOFO 

003S COlO 

0039 OOCA 



* 

« 
* 

♦ ♦ 

* 

♦ I 

♦ I 



1ST 1053 SKELETON PROGRAM 

I SEE AUX CE PROG GENERATOR 

* WRITE-UP FOR USE PROCEOUPEJ 

CAN '.QT BE LOADED FROM PAPER TAPE 



PURPOSE 

THE PURPOSE OF THIS PROGRAM !S 
TO PROVIDE A SKELETON PRGGRAN 
UPON WHICH THE CE CAN WRITE AN 
AUX STORAGE PROGRAM. 



GEMERAL INSTRUCTIONS 

CE SWITCH SETTINGS 

OOOOllU CE SERVICE STOP 

nmui TERMINATE PROGRAM 

ALL OTHER COMBINATIONS ARE STORED 

o AT THE LOCATION CES« FOR 

• POSSIBLE USE BY THE CE TO 

» CO^•TROL HIS PROGRAM 



BH*IBM*lBM»IBM*|BM»I6M»IBM»IBf<»lBM»!8H»I8M»IS'<»I 
CORRECTIONS FOR THE FOLLOWING 27 • 
WORDS MUST BE MADE IN THE CARD . 
NUX8ERED X OF THIS AUX PROGRAMS • 
7 CARD OajECT DECK. • 

BM»lbH»|BM»ieM»ia«1»IBM*i8.M»IBH»IBM»lBH»IBM»iaH«I 



AUX PROG ENTRY POINTS 
1ST PASS ENTRY 



LO 
STO 

LD 
STO 



DSW52 
/35 

CEOFF 
/04 



RESTORE LOC NICE 

• IN AUX LOADER 

PLACE BRANCH 

• TO RETUR LABEL 



ALL BUT 1ST PASS ENTRY POINT 



28FEB66 
415120 



PROG 10 
PACE 



08AC>9 
13 



DATE 
EC NO. 



26FEB6* 
415120 



8AC12160 
8AC12170 

8AC12180 

8AC12190 

8AC12200 

SAC12210 

8AC12220 

8AC122J0 

8ACI2240 

8aC12250 

8AC12260 

8ACI2270 

6AC12280 

8AC12290 

8AC12300 

8ACI2310 

8AC12320 

8ACI2330 

8AC12340 

8AC12350 

8AC12360 

8AC12370 

8AC12380 

8AC12390 

8AC12400 

8AC124I0 

8AC12420 

8aC12430 

8AC12440 

SAC12450 

8AC12460 

8AC12470 

aACi248a 

8 4C 12490 

eAci2soo 

8AC12510 

8AC12520 

8AC12530 

8AC12540 

8AC12550 

SAC12560 

8AC12570 

8AC12580 

aACl2590 

8AC12600 

8AC12610 

8AC12620 

8AC12630 

3AC12640 

8AC12650 

3AC12660 

8AC12670 

8AC12680 

8AC12690 

8AC127C0 

8AC12710 

8AC12720 

8AC12730 

8AC12740 

8AC12750 

8AC12760 

8AC12770 

8AC12780 

8AC12790 

8AC12800 

8AC12810 

8AC12820 

8AC12a30 



PROG 10 
PACE 



08AC-0 
13A 






<{((((((((<(( 1 ((( < 



s " \ 



IBM HAINTEfiiNCe DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

AUX PROGRAM GENERATOR UTILITY PROGRAM 
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003A 
303B 
003C 
0030 
303E 
003F 
0040 
OCl 
00<>2 
GCtS 00 

3045 

3046 00 
3048 00 
304A 00 















0819 

6A21 

6822 

081* 

0024 

0810 

EOOF 

0023 

FOOD 

40180058 

FOOE 

4C18005C 

CC00004E 

DCOOOOFE 



334C 00 4C00006T 
004E 00 4C000058 



0050 
0050 



0000 
OOFF 



0051 





0T50 


0052 


3 


7007 


0053 





0F03 


3054 





OOFO 


0055 





0803 


3056 





7035 


0057 





0802 



0058 00 65000813 
005A 69A9 
005B 08FA 



305C 00 66000000 

305E 00 67003000 

0060 70AC 



0061 70F6 

0062 0000 
3062 0000 

0063 0000 



RETUR XIO 
STX 
STX 
XIO 
STO 
XIO 
ANO 
STO 
EOR 

BSC L 
EOR 

BSC L 
LOO L 
STO L 

BSC L 
TERM BSC L 

♦♦*♦«»»•*♦»»*« 

* 

ess E 

SENS I OC 

*IBH*I6M»I8M*I 

* 
* 



CEON 

SAVE2H 

SAVE3*1 

0SW52 

STATU 

SENBI 

SENBI 

CESM 

SENBI 

NOTRD.*- 

CEON 

SAVE2i+- 

TERM 

/OOFE 



SET DEVICE IN CE HODE 
SAVE INDEX REGISTER 2 
SAVE INDEX REGISTER 3 
SENSE DEVICE STATUS 
SAVE DEVICE STATUS 
SENSE CE PROG SM TO ACCUH 
BLOCK OUT PROG SEL SW 
SAVE CE PROG SH SETTINGS 

BR TERMINATE PROGRAM 

BR SERVICE STOP 

SET TERMINATOR BR AT ENO 
* OF AUX CORE AS A SAFETY 
» PRECAUTION 



»IBM«!BM*IBH*J 

• 

OC 
0SW52 OC 

OC 
CEON CC 

OC 
CEOFF OC 

DC 



CEGO 8R TO 00 IT YOURSELF PROG 

NOTRO TERMINATOR BRANCH 

♦ »♦»»»**»» ***»««**»•*■>•*»» •»»♦*♦***♦♦ 

CONSTANTS AND/OR lOCC WORDS 



/OOFF TERMINATOR CONSTANT 

BM5-1BH»IBM»IBM*I8H*IBH*IBH»IB»*IBM*I 
CORRECTIONS FOR THE FOLLOWING 27 * 
HOROS MUST BE HAQE IN THE CARD • 
riUIBEREO OF THIS AUX PROGRAMS » 
7 CARD OBJECT DECK. * 

eH*fB"1»IBV*IEM*IBM*IBM»IBH»lBM»I8M*I 



NOTRO LDX 
STX 

XIO 



SAVE2 LDX 
SAVE3 LOX 

MDX 

* 



/0760 SENSE CE SWITCHES 

NNNN 

/0701*AREA»"OOIF RESET DEVICE STATUS 

/OOFO CE SERVICE STOP CONST 

/OOOl^AREAt'-QDIF CE ON WORO 

TTTT 

/OOOO^ARLAtKOOIF CE OFF WORD 

»»»»»»»*»«»»»•*«♦»*•**♦»»»*•*•** 

EXIT POINTS TO AUX LOADER 



TERMINATE EXIT POINT 
LI WWMW 

* CEOFF REMOVE DEVICE FROM CE MODE 

NORMAL EXIT POINT 
L2 
L3 

OOQQ 
»«»♦»»»»*•»**«*»•«♦»*»♦**»»**♦*****• 
»»»*»♦»*»»»«»»«»»»*»»»*»•*******«■*****♦** 
»»»»♦»*»«»»»♦»*»*»**»*♦»*»*»*»*♦*♦**♦**** 

THE FOLLOWING CONSTANTS AND lOCC 
WORDS HAS BEEN PLACED HERE TO AID 
THE CE IN HIS PROGRAMMING EFFORT. 



CESU 



HDX 
BSS 
OC 



STATU OC 



NOTRO 
E 





THIS LOC IS NOT USED 

CE PROr.RAM SW SETTING 
DEVICE STATUS WORD 



PART NO. 21964SS 
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8AC12840 

8AC12853 

8AC12860 

8AC12870 

8AC12880 

8AC12890 

8AC12900 

8AC12910 

8AC12920 

8AC12930 

8AC12940 

8AC12950 

8AC12960 

8AC12970 

8AC12980 

8AC12990 

8AC13000 

8AC13010 

8AC13020 

8AC13030 

8AC13040 

8AC13050 

8AC13060 

8AC13070 

8AC13080 

8AC13090 

8AC13100 

8AC13110 

8AC13120 

8AC13130 

8AC13140 

8AC13150 

8AC13160 

8AC131T0 

8AC13180 

8AC13190 

8AC13200 

8AC132I9 

8AC13220 

8AC13230 

8AC13248 

8AC13250 

8AC13260 

8AC13270 

8AC13280 

8AC13290 

8AC13300 

8AC13319 

8AC13320 

8AC13330 

8AC13340 

8AC13350 

8 AC 13360 

8AC13370 

8AC133B0 

8AC13390 

8AC13400 

8AC13410 

8AC13420 

8AC13430 

8AC13440 

aAC134S0 

8AC13460 

8AC134T0 

8AC13480 

8 AC 13490 

8AC13S00 

8AC13S10 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1ST 1053 



0064 0066 

0065 0902 

0066 0000 



0067 70F0 



0063 70EF 

0069 70EE 

006A 70ED 

006B 70EC 













OO&C 
0060 
006E 
3')6F 
0070 
0071 
0072 

0073 a 

0074 
0075 
0076 
0077 
0078 
0079 
007A 
0078 
00 7C 
0070 
007E 
007F 

ooao 

0081 
0082 
0083 
0084 
0085 
0086 



70EB 

70EA 

70E9 

70E8 

70E7 

70E6 

70E5 

70E4 

70E3 

70E2 

70E1 

70E0 

700F 

70DE 

7000 

700C 

7008 

70DA 

7009 

7008 

70DT 

70D6 

7005 

70D4 

7003 

70D2 

7001 



OUTWO REFERS TO OUTPUT CHAR. 
/0100»AREA*M0DIF I CCC «RITE WORO 



WRITE OC 
DC 

OUTWD DC PLACE OUTPUT CHAR. HERE 

»,,»*»v*»»**»**»»*»*»*»»**»»*» »»»»»»♦»»••*** ******* 



* 

CEGO HOX 

* 

• 

HDX 
MDX 
MOX 
HDX 



THIS IS THE STARTIn,G POINT OF YOUR 
PROGRAM. 



NOTRO 1ST LOC CF YOUR PROGRAM 

BRANCH 10 LOCATICN S&VE2 ^HEN 

EXITING FROM YOUR PROSHAM. 

NOTRO 

NOTRO 

NGTRO 

NOTRO 



IBH*I6M»!8H»IBH»IBH»IBM*IBH*IE-^»I3S»iaH*IBH*IBH» 
CORRECTIONS FOR T-iS FGLLOHING 27 
WORDS f.USI BE MADE I*. THE CARD 
f^JKBERED I OF THIS A-X PROGRAMS 
7 CARD OBJECT DEC". 

IBM»IBH»IBM*IBM*IBM»lBM*I8M«ieM«!3H»I3K»I3M*IBM*I 



MDX 


NOTRO 


HDX 


NQ-'RO 


MDX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


MDX 


NQTRD 


MOX 


N3TRD 


HDX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


MDX 


NOTRO 


HDX 


NOTRO 


MDX 


NQTRD 


HDX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRD 


MDX 


NOTRO 


MOX 


NOTRD 


MDX 


NOTRO 


MOX 


NOTRD 


HDX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRD 


HOX 


NQTRO 


MDX 


NOTRD 


MOX 


NOTRO 



IBH«IBH»iBM»lBH»IBM*IBH»IBH*I5H»I3K»IBH»IBM»IBH*I 
CORRECTIONS FOR T"E FOLLOWING 27v * 
WORDS MUST BE MA3E IH THE CARD » 

NUMBERED 2 OF THIS AUX PROGRAMS » 

7 CARD OBJECT DECK. • 

IBM»ieM»IBH*I8M»IBM*IBM»18M»IOH»I6H»IBH*IBM»IBM*l 
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8AC13520 

8AC13530 

8AC13540 

8AC13550 

8AC13560 

aAC13570 

eAC135S0 

8AC13590 

8AC13600 

8AC13610 

8AC13620 

8AC13630 

aACl3640 

8AC13650 

8AC13660 

8AC13670 

8AC13680 

8AC13690 

eAC13700 

8AC137I0 

8AC13720 

8AC13730 

8AC13740 

8AC137S0 

8AC13760 

8ACI3770 

8AC13780 

3AC13790 

8AC13800 

8AC13810 

8AC13820 

8AC13830 

8AC13840 

8AC13850 

8AC13860 

8ACl337a 

SACUBSO 

8AC13890 

8AC13900 

8AC13910 

8AC13920 

8AC13930 

8AC13940 

8AC13950 

8AC13960 

8AC13970 

8AC13980 

8AC13990 

8AC14000 

8AC14010 

8AC14020 

8AC14030 

8AC14040 

8 AC 140 50 

8AC14060 

8AC14070 

8AC14080 

8AC14090 

8AC14100 

8AC14110 

8AC14120 

8AC14130 

8AC14140 

8AC14150 

8AC14160 

8AC14170 

8AC14180 

8AC14t90 



DATE 
EC NO. 



28FEB66 
415120 



PROG 10 
PACE 



08AC-C 
1« 



DATE 
EC NO. 



28FEB66 
41S120 



PROG (D 
PAGE 



08AC-0 
14» 



( C t ( C (((((<(( C i (( ( 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEH 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1ST 10$3 



0O8T 
0038 
0089 
008A 
0088 
008C 
003D 
008E 
008F 
0090 
0091 
0092 
0093 
009* 
0095 
0096 
009 7 
0098 
0099 
009A 
0098 
009C 
0090 
009 E 
009F 
OOAO 
OOAl 



Q0A2 
00A3 
00 A* 
00A3 
OOAb 
OOAT 
00A8 
00A9 
OOAA 
OOAB 
OOAC 
OOAO 
OOAE 
■ OOAF 
OOBO 
0091 
O0B2 
0083 
0084 
0085 
0086 
008T 
OOBS 
0089 
OOSA 
0088 
OOSC 



7000 
70CF 
70CE 
70C0 
70CC 
70tB 
70CA 
70C9 
7i,C8 
70CT 
70C6 
70C5 
70C4 
70C3 
70C2 
70CI 
70C0 
703F 
7C8E 
7030 
70BC 
7083 
708A 
7089 
7098 
7087 
7086 



70B5 
708* 
7083 
70B2 
7081 
7080 
70 AF 
70AE 
70AD- 
70AC 
TO AS 
70AA 
70A9 
70A8 
T0A7 
70A6 
70A5 
70A* 
70A3 
70A2 
70A1 
.70A0 
709F 
709E 
7090 
709C 
709B 



MDX 


NOTRO 


HOX 


NOTRD 


HOX 


NOIRO 


KOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOIRO 


MOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


* 
*IBM»IBM*I3M«IBM*lf 



I3M«IBM*lfH»IBH*IBK*IBM»I8M»lBM»IBH*I8M»I 
CORRECTIONS /OR THE FOLLOWING 27 * 
WORDS MUST 8*E CAOE IN THE CARD * 
NUMBERED 3 OF THIS AUX PROGRAMS • 
7 CARD OBJECT DECK. • 

IBM*I9H*i8M»IBM*I9M»lBM»I8H*IBK*IBH*lBM*I 



IBM*IBK»IBM* 


I 9H* i 8M 


MOX 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRD 


HOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


MDX . 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


N01R3 


HOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


-HOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 



♦IBM»IBH»I8H»IBM»IBM*IBM»IBH»IBM*1BM*IBM»1BM»I8H»I 



PART NO. 21964SS 
PAGE IS 



8AC14200 

8AC14210 

8AC1*220 

3AC1'V230 

8AC14240 

8AC14250 

8AC14260 

SAC14270 

8AC14230 

8AC14290 

8AC14300 

8ACt*319 

8AC14320 

8AC14339 

8AC14340 

8AC14350 

8AC14360 

8AC14370 

8AC14380 

8ACl*390 

8AC14400 

8AC14410 

8AC14420 

8AC14430 

3AC14440 

8AC144S0 

8AC1*<>60 

8ACX4470 

SACl'i^SO 

8 AC 14*90 

8 AC 1*500 

8AC1*S1S 

8AC1*520 

8AC14530 

8AC1*S*0 

8AC1*5S0 

8AC1*560 

8ACt*570 

8AC1*S80 

8AC1*S90 

8 AC 1*600 

8AC1*610 

8AC1*620 

8AC1*630 

8AC1*6*0 

8AC1*650 

8ACl*660 

8AC1*670 

SAC 1*680 

8AC1*690 

8AC1*700 

8AC1*710 

8AC1*720 

8AC1*73Q 

8AC1*7*0 

8AC1*7S0 

8AC1*760 

8AC1*770 

8AC1*780 

8AC1*790 

8AC1*800 

BAC1*310 

8AC1*820 

8AC1*830 

8AC1*8*0 

8AC1*S50 

8ACl*860 

8ACI*870 



BN MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1ST 1053 



OOBO 





709A 


OOBE 





70 3F 


OOBF 





703E 


OOCO 





7030 


OOCl 





703C 


00C2 





7038 


0OC3 





703A 


OOC* 





7039 


00C5 





7038 


0OC6 





703T 


0OC7 





7036 


0OC8 





7035 


00C9 





703* 


OOCA 





7033 


OOCB 





7032 


OOCC 





7031 


OOCO 





7030 


OOCE 





702F 


OOCF 





702E 


OODO 





7020 


OODl 





702C 


0002 





7028 


00D3 





702A 


000* 





7029 


0005 





7028 


0OD5 





7027 


0QD7 





7026 



CORRECTIONS FOR THE FOLLOWING 27 * 
WORDS MUST BE HADE IN THE CARD * 
NUMBERED * OF THIS AUX PROGRAMS ♦ 
7 CARD OBJECT DECK. * 

IBM* IBM* IBM* IBM* IBM* IBM* IBM* IBM* IBM* IBM* IBM* IBM* I 



HDX 
MOX 
MDX 
MOX 
HOX 
MDX 
HDX 
MOX 
MDX 
HDX 
MOX 
MDX 
MOX 
HOX 
KOX 
HOX 
HOX 
HOX 
MDX 
MDX 
MDX 
MDX 
MDX 
HOX 
HDX 
MOX 
MOX 



NOTRtJ 
/00F£ 
/OOFE 
/OOFS 
/OOFf 
/OOFE 
/OOFE 
/OOF* 
/00F£ 
/00F£ 

/ooFc: 

/00F€ 
/OOFE 
/OOFt 
/OOFf 
/00f£ 
/OOFF 
/00F5: 
/OOFl 
/OOFf 
/OOFC 
/OOFf 
/OOFC 
/OOFC- 
/00F€ 
/OOFC 
/OOF^ 



»I8H*ISM*13M«1BM»I9M»IBM*IB"«!BH*I8M*IBM»IBM*I8M»I 
» CORRFCTIONS FOR THE FOLLOWING 38 • 

• WORDS MUST BE MADE IN THE CARD » 

• NUHbrRED 5 OF THIS AUX PROGRAMS • 
» 7 CA'^D OBjECT DECK. • 
*lBH»IBK»I8K*IBM»I3M»16H»IBM»iBM*IBM»I8M»l8M»ISM«I 



■ DATE 
EC NO. 



28F€666 
*1S120 



PROS ID 
PACE 



08AC-0 
15 



0008 





7025 


0009 





702* 


OODA 





7023 


0008 





7022 


OOOC 





7021 


0000 





7020 


OOOE 





701F 


OODF 





701E 


OOEO 





7010 


OOEl 





701C 


00E2 





701B 


00E3 





701A 


OOE* 





7019 


00E5 





7018 


00E6 





7017 


00E7 





7016 


0OE8 





7015 


00E9 





701* 


OOEA 





7013 


00E8 





7012 


OOEC 





7011 


OOEO 





7010 


OOEE 





700F 


OOEF 





700E 


DATE 




28FEB66 


EC NO. 


*IS120 



HDX 

MOX 
MOX 
MOX 
MDX 
MOX 
MDX 
MOX 
MDX 
HDX 
MOX 
MOX 
MOX 
MDX 
MOX 
MOX 
MOX 
fOX 
MDX 
MDX 
MOX 
MOX 
HOX 
MOX 



/OOFS 
/OOFE 
/00F€ 
/OOFS 
/OOFE- 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
"/OOFE 
/OOFE 



PART NO. 2196*SS 
PACE 15A 



8AC1*380 

8aCl*890 
3AC1-.900 
3AC1*910 
8AC1*920 
8AC1*930 
8ACl*9*0 
8ACl*950 
8AC1*96D 
8AC1*970 
8AC1*980 
8AC14'?90 
SAC 15000 
8AC150i0 
8AC1S&20 
8AC15030 
8 AC 1 50*0 
8*015050 
8ACI5063 
8AC15070 
SACISOSO 
8AC15090 
8AC15100 
8AC15110 
8AC151'0 
8ACl5t30 
SACISI'.O 
8*C15150 
8ACi5l60 
8ACl5irO 

aftcisieo 

6ACI5190 
8ACi J200 
8AC15210 
8ACI5Z20 
8»'"15230 
8AC152*0 
8ACJ5250 
8AC15260 
8AC15270 
8AC15280 
e&C15290 
8AC15300 
8AC15310 
SAC15320 
8AC:5330 
8AC1S3*0 
8AC15350 
8AC15360 
8AC15370 
3AC15380 
8AC1539D 
8ACIS*00 
8AC15*10 
8 AC 15*20 
8AC15*30 
8AC15**0 
8AC15*S0 
SAC 15*60 
8AC15*70 
8AC15*80 
8AC15*90 
8AC1SS00 
8AC1S510 
8AC15520 
8AC1S530 
8AC155*0 
6AC15SS0 
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08AC-0 
IS* 
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S 
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AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1ST 1053 



PART NO. 21964SS 
PAGE 16* 



OOFO 





7000 


OOFl 





700C 


00F2 





7008 


OOF 3 





700A 


OOF* 





7009 


OOFS 





7008 


00F6 





7007 


0OF7 





7006 


OOFS 





7005 


0OF9 





TOO* 


OOF A 





7003 


OOF 8 





7002 


OOFC 





7001 


OOFO 





7000 


OOOD 






7007 






0313 






/03S 







OOFE 



OOFO 



MOX 


/OOFE 










8AC15560 


MDX 


/OOFE 










8ACIS570 


MDX 


/OOFE 










8AC15580 


KOX 


/OOFE 










8AC15590 


MOX 


/OOFE 










8AC1S600 


MOX 


/OOFE 










8AC1S610 


MDX 


/OOFE 










8AC15620 


MDX 


/OOFE 










8AC15630 


MOX 


/OOFE 










8AC156*0 


MOX 


/OOFE 










8 AC 1 5650 


MOX 


/OOFE 










8AC1S660 


MDX 


/OOFE 










8AC15670 


MOX 


/OOFE 










8AC15680 


MDX 


/oof: 










8AC1S690 


»«♦»«»*»*»♦»»»♦♦♦*»»♦*»»♦**»»»*•*»*»♦»*»♦»»»•**♦»•♦ 


8AC15709 


* 












8AC15710 


QOQO EOU 


/O 


GO 


rO LOADER AT 


/O 


8AC15720 


NNNN EQU 


/7O07 


FOR 


CARD 


LOADER 


AT /35 


8AC15730 


WWWW EQU 


/0813 


SET 


IN LOADER AT 


/0« 


8AC1S740 


FTTT ESU 


/7000* 


RETUR-/* 


-I 


THIS IS 


EQUAL TO 


8AC15750 


• 




THE 


BRANCH FROM 


THE LOADER 


8AC15760 


( 




TO 


■lETUR 


IN THIS 


PROGRAM. 


8AC15T70 


**«»**««*« 


«»*»»»»»*»*»»*»»»»♦*♦»»»»»•»»»»♦••****♦•♦ 


aACt5783 


ENO 


• -1 


ENO 


CARD 


NEVER USED 


8ACIS79C 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 




ARE* 


0800 


0053,0055,0057,0065 




CEGO 


0067 


00*C 




CEOFF 


0056 


O033fC0Sa 




CEON 


005* 


003A,00*S 




CESW 


0062 


00*1 




DSW52 


0052 


00*6,0031) 




MOOIF 


0002 


0053,0055,0057,0065 




NNNN 


7007 


0052 




NOTRO 


O0S8 


00'»3,00<.E,0061,006 7,006 8,C069,006A 


0063,0060,0060, 






005E. 006 F, 0070, 007 1,0072, 0073,007* 


0075,0076,0077, 






00 78,0079,007A,007B,O07C,O07O,007e 


007F, 0030, 0031, 






0082, COS 3, 008*, 08 5, 0066, 00 8 7, 00 sa 


,0089,003A,008B, 






00 9C,0C8D,008E.008F, 0090, 0091, 0092 


0093. 009*, 0095, 






0096,C09 7,099B,0099,00->A,009B,009C 


009D,009E,009F, 






OOA0,C0Al,0OA2,0O&3.00A*,O0A5,00A5 


,00A7,O0A3,0OA9, 






OOAA,COA8,00AC,0OAD,O0AE,0OAF,O0BO 


,0031,0032,0083, 






OOB*,C085.00B6,OOB7,OOB8,0089,003A 


,0OB3,009C,O08D 


OUTWD 


0066 


006* 




OCQO 


OOOD 


0060 




RETUR 


003A 


OOFE 




SAVE2 


005C 


0038,00*6 




SAVE3 


005E 


003C 




SENBI 


0050 


003F, 00*0,00*2 




STATU 


0063 


003E 




TERM 


00*E 


00*8 




TTTT 


7035 


0056 




WRITE 


006* 






wwww 


0313 


0058 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEN 

AOX PROGRAM GENERATOR UTIUlTr PROGRAM 
AUX 2N0 lOS) 



92BC 
0800 



ABS 
ORG 



/36 



0004 



3036 COIB 
0037 OOFO 



0038 

0039 



COtO 
OOCA 



REA EQU /08C0 1ST 1053 AREA CODE 

IF THIS PROG IS TO BE USED FOR A HACH 
WITH A DIFF AREA CODE ALL THE LOCATIONS WHICH 
REFER TO THE LABEL AREA IN SYHbDL TABLE MUST 
BE CHANCED BY HEX CORRECTION CARDS TO OBTAIN A 
MODIFIED AUX 8-8 OBJECT DECK. SEE AUX CE PROG 
GENERATOR WRITE-UP FOR PROCEDURE. 

MOOIF EQU /0004 2N0 1053 MODIFIER BIT 



2N0 1053 SKELETON PROGRAM 
(SEE AUX CE PROG GENERATOR 
♦ WRITE-UP FOR USE PRDfEDUREI 

THIS PROG CAN NOT BE LOADED FROM PAPER TAPE 



PURPOSE 

THE PURPOSE OF THIS PROGRAM IS 
TO PROVIDE A SKELETON PROGRAM 
UPON WHICH THE CE CAN WRITE AN 
AUX STORAGE PROGRAM. 



GENERAL INSTRUCTIONS 

CE SWITCH SETTINGS 

COOOllll CE SERVICE STOP 

mum TERMINATE PROGRAM 

ALL OTHER COMBINATIONS ARE STORED 

• AT THE LOCATION CESW FOR 

• POSSIBLE USE By THE CE TO 

• CONTROL HIS PROGRAM 



*»»***«♦»««»» »»»»»t»l,»»j,»»t, »»»»»»», ,jj»^^ J, 



BM»18M»IBH*IBM»IB.".»IBH*IBH»IB>1*IBH*IBM*IBM»IBM*I 
CORRECTIONS FDR THE FOLl OWING 2T » 
WORDS MUST BE HADE IN THE CARD * 
NUMBERED X OF THIS AUX PROGRAMS • 
7 CARD OBJECT DECK. » 

BH*IBH*IBM»IBM*1BM*I3M»IBM*IBH*IBH»IBM»IBM*IBM*1 



AUX PROG ENTRY POINTS 
1ST PASS ENTRV 



LO 
STO 



LD 
STO 



DSW52 RESTORE LOC NICE 
/35 » IN AUX LOADER 

CEOFF PLACE BRANCH 
/0« ♦ TO RETUR LABEL 

ALl BUT 1ST PASS ENTRV POINT 



PART NO. 2196«5S 
PAGC 17 



8AC15800 
SACtSatO 
8AC15820 

* 8AC15830 
8 AC 15840 
8AC15859 
8AC15860 
8AC15870 

SAcisaao 

8AC15890 
8ACIS900 
8AC1S910 
8AC15920 

* 8AC1S930 
8 AC 15940 
8AC15950 
8 AC 15960 
8AC15970 
8AC15980 
8 AC 15990 
8AC16000 
8AC16010 
8AC16020 
8AC16030 
8AC16040 
6AC16050 
8AC16060 
8AC16070 
8AC16080 
8AC16090 
8AC1610a 
8AC16110 
8AC16120 
8AC16130 
8AC16140 
8AC16150 
8AC16160 
8AC16170 
8AC161B0 
8AC16190 
8AC16200 
8AC16210 
8AC16220 
8AC16230 
8AC16240 
8AC15250 
8AC16260 
8AC16270 
8AC16280 
aAC16290 
aAC16300 
8AC16310 
8AC16320 
8AC16330 
8AC16340 
aAC16350 
8AC16360 
8AC16370 
aAC16380 
8 AC 16390 
8AC1640a 
8AC16410 
8AC16420 
8AC16430 
8AC16440 
8AC16450 
8AC16460 
8AC16470 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEN 



AUX PROGRA"! GENERATOR UTILITV PROGRAM 
AUX 2ND 1053 



SET DEVICE IN CE MODE 
SAVE INDEX REGISTER 2 
SAVE INDEX REGISTER 3 
SENSE DEVICE STATUS 
SAVE DEVICE STATUS 
SENSE CE PROG SW TO ACCUH 
BLOCK OUT PROG SEL SW 
SAVE CE PROG SW SETTINGS 

8R TERMINATE PROGRAM 

BR SERVICE STOP 

SET TERMINATOR BR At END 
• OF AUX CORE AS A SAFETY 
» PRECAUTION 

BR TO DO IT YOURSELF PROG 
TERMINATOR BRANCH 

• 

• CONSTANTS AND/OR lOCC WORDS 
8SS £ 

SENBI DC /OOFF TERMINATOR CONSTANT 

• 

»iaH»IBM*IBH»IBH*IBK*IBH»!8H*ieM»IBM»IBH»IBH«l8M*l 

• CORRECTIONS FOR THE FOLLOwrNG 27 • 

• WORDS MUST BE MADE IN THE CARD ♦ 

• NUMBERED OF THIS AUX PROGRAMS • 

• 7TARD OBJECT DECK. * 

*IBH*iaM*|jH*IBH»lBM*IBM*IBM»IBM»IBM»I3>1»IBH*IBH»I 

• 



003A 


0819 


RETOR 


XtO 




CEON 


9038 


6A21 




STX 


2 


SAVE2*l 


003t S 


6822 




STX 


3 


SAVE3»1 


003D 


0814 




xio 




DSW52 


003E 


0024 




STO 




STATU 


003F 


0810 




XIO 




SENBI 


0040 


EOOF 




ANO 




SENBI 


0041 


0020 




STO 




CESW 


0042 


FOOD 




EOR 




SENBI 


3043 00 


4C1800Sa 




BSC 


L 


NOTRO,*- 


0045 


FOOE 




EOR 




CEON 


0046 00 


4C18005C 




BSC 


L 


SAVE2,*- 


3048 00 


CC00004E 




LDO 


L 


TERN 


004A 00 


DCOOOOFE 


• • 

• 


STO 


L 


•/OOFE 


004C 00 


4C000067 


BSC 


L 


CEGO 


004E 00 


4C00005a 


TERM 


BSC 


L 


NOTRO 



0050 
0050 



0000 
OOFF 



0311 





0760 


0052 





7007 


0053 





0F05 


0054 





OOFO 


0055 





0805 


0056 





7035 


0057 





0804 



0SW52 



CEON 



CEOFF 



SENSE CE SWITCHES 



DC /0760 

DC NNNN 

DC /07CltAREA*HOOIF RESET OtViCE STATUS 

DC /OOFO CE SERVICE STOP CONST 

DC /0001+AREA»M0DIF CE ON WORD 

DC TTTT 

DC /OCO0»AREA*KODIF CE OFF WORD 

• EXIT POINTS TO AUX LOADER 



0058 00 65000813 
005A 69A9 
0058 08FA 



30SC 00 66000000 
305E 00 67000000 

0060 70AC 



TERMINATE EXIT POINT' 

MWWH 

/04 

CEOFF REMOVE DEVICE FROM Ct MODE 

NORMAL EXIT POINT 







NOTRO LOX tl 
STX 1 
XIO 

• 

SAVE2 LOX 12 

SAVE3 LOX L3 

MOX OQCQ 

• 



THE FOLLOWU.G CONSTANTS AND lOCC 
WORDS HAS BEEN PLACED HERE TO AID 
THE CE IN HIS PROGRAMMING EFFORT. 



0061 70F6 

0062 0000 

0062 0000 

0063 0000 



HOX 
BSS 
CESW DC 
STATU OC 



NOTRO 






THIS LOC IS NOT USED 

CE PROGRAM SW SETTING 
DEVICE STATUS WORD 
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8AC16480 
SAC 16490 
8AC16500 
8AC16S1J 
SAC16520 
8AC16530 
8AC16S40 
8 AC 1 6550 
8AC16560 
8AC16570 
eACl6580 
8AC16590 
aACt6600 
8AC16610 
SAC16629 
SAC1663a 
8AC16640 
aACl66S0 
eAC16660 
' 8ACI6670 
8AC16680 
8AC16690 
8AC16700 
aACl6710 
8AC16720 
8AC16730 
8AC16740 
8ACI6750 
8AC16760 
8AC16770 
8AC1678a 
8ACI&790 
8AC16a00 
8AC16810 
8ACi6820 
aAC16330 
8AC1684a 
8AC1685a 
8AC16a60 
8AC16870 
8ACi6880 
8AC16a99 
8AC16900 
8AC16910 
8AC16920 
8AC16939 
8AC16940 
8AC16950 
SAC16960 
8AC16970 
6AC16980 
8AC16990 
8 AC 17000 
8AC17010 
8AC17020 
8AC17030 
8AC1704I> 
8ACIT050 
8AC17060 
aAC17070 
aAC17U80 
8AC 17090 
8AC17100 
8AC17110 
8AC17120 
8AC17130 
8AC17140 
8ACL71»0 
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08AC-0 
17A 



n 
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IBM MAINrtNANCe DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 2ND 105) 



PART NO. 2t96«SS 
PAGC la 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 2ND 1059 



PART NO. 
PACE 



21964SS 
18A 



0064 U 0066 

0065 0904 

0066 0000 



0057 70FO 



0068 rOEF 

0069 70EE 
006A TOED 
306B 70EC 



006C 





70EB 


006D 





70EA 


006E 





70E9 


006F 





7068 


OOTO 





70E7 


0071 





70E6 


0072 





70E5 


0073 





70E* 


007* 





70E3 


0B75 





70E2 


0076 





70E1 


3077 





70E0 


0078 





70DF 


0079 





70 OE 


007A 





700D 


007B 





70 OC 


007C 





70DB 


0070 





700A 


007E 





70 09 


007F 





70D8 


0080 





7007 


0081 





7006 


0082 





7005 


0083 





70D4 


0084 





7003 


0085 





7002 


0085 





7001 



DATE 
EC NO. 



28FEB66 
415120 



* 






8AC17160 




WRITE DC 


OUTKO REFERS TO OUTPUT CHAR. 




BACITITO 




OC 


/0100*AREA«MOD1F lOCC WRITE ViORO 




8AC17180 




* 






8AC17190 




nUTHO OC 


PLACE OUTPUT CHAR. HERE 




8AC17200 




**itt99«**»»**»f>«^»tt»t »»»»****•***** **«**»*»***** 8AC17210 




• 






8 AC I 7220 




* 






8AC17230 




• 






8AC17240 




• 


THIS IS THE STARTING POINT Of YOUR 




8AC17250 




* 


PROGRAM. 




8AC1T260 




• 






8AC1T270 




• 






8AC17289 




• 






8 AC 17290 




• 






8AC17300 


' 


CEGO HOX 


NOTRO 1ST LOC OF YOUR PROGRAM 




eAC17310 




• 


BRANCH TO LOCATION SAVE2 WHEN 




8AC17320 




• 


EXITING FROM YOUR PROGRAM. 




8AC17330 




KDX 


NOTRO 




8AC17340 




HOX 


'NOTRO 




8AC17350 




MDX 


NOTRO 




8AC17360 




HOX 


NOTRO 




8AC17370 
8AC17380 
SAC17390 




•IBH»IBM*I3M4 


IBH»IBH*ISH*IbM»IBH»I8*4»IB«<*I8H*IBH»l 


8 AC 17400 






CORKECriONS FCR THE FOLLOWING 27 


• 


8AC17410 






WORDS MUST BE HADE IN THE CARD 


• 


8AC17420 






NUMBERED I OF THIS AUX PROGRAMS 


• 


8AC17430 






7 CARD OBJECT DECK. 


• 


8AC17440 




»I8!'*I8M»IBM» 


I BM» IBM* IBM* IBM* IBM* IBM* IBM •IBM* IBM* I 


8AC174S0 










- 8AC17460 










8AC17470 




HOX 


NOTRO 




8AC17480 


■ 


MDX 


NOTRO 




8 AC 17490 




MDX 


NOTRO 




8AC17500 




MDX 


NOTRO 




8AC17S10 




HOX 


NOTRO 




8AC17520 




MDX 


NOTRO 




8AC17530 




MDX 


NOTRD 




8AC17540 




HOX 


NOTRO 




8AC17550 




HOX 


NOTRO 




8AC17560 




MDX 


NOTRO 




8AC17570 




MDX 


NOTRO 




8AC17580 




HDX 


NOTRO 




8AC17590 




MDX 


NOTRO 




8AC17&O0 




HDX 


NOTRO 




8AC17610 




HOX 


NOTRO 




8AC17620 




MDX 


NOTRO 




8AC17630 




MDX 


NOTRO 




8AC17640 




HDX 


NOTRO 




8AC176S0 




MDX 


NOTRO 




8AC17660 




MDX 


NOTRO 




8AC17570 




MDX 


NO'iRO 




8AC17680 




HOX 


NOTRO 




8AC17590 




MDX 


NOTRO 




8AC17700 




HOX 


NOTRO 




8AC17710 




MDX 


NOTRO 




8AC17720 




MDX 


NOTRO 




8AC17730 




HOX 


NOTRO 




8AC17740 
8AC17750 
8AC17760 




♦lBH*IBM»IBH*IBH*IBM»IBH»IBH*ien»18«»IBM»IBM»IBH» 




8AC17770 






CORRECTIONS FOR THE FOLLOi<ING 27 




8AC17780 






WORDS MUST BE MADE IN THE CARD 




8AC17790 






NUMBERED 2 OF THIS AUX PROGRAMS 




8AC17800 






7 CAPO OBJECT DECK. 




8AC17810 




»IBH*I8M»IBH»IBM»1BH»1EM»IBM»1BH»IBM*IBM*IBM*I8M« 


2 


8AC17820 










aAC17830 










PROG 10 


OSAC'O 








PAGE 


la 



0087 





7000 


0038 





70CF 


0039 





70ce 


003A 





70C0 


0088 





70CC 


003C 





70CB 


0080 





70C* 


008E 





70C9 


008F 





70C8 


0090 





70C7 


0091 





70C6 


0092 





70C5 


0093 





70C4 


0094 





70C3 


0095 





70C2 


0096 





70C1 


0097 





70C0 


0098 





70BF. 


0099 





70BE 


009A 





70B0 


009B 





70 BC 


009C 





70BB 


0090 





708 A 


0096 





70B9 


009F 





70B8 


OOAO 





70 B7 


OOAl 





7086 



00A2 





70B5 


00A3 





70B4 


00A4 





70B3 


00A5 





70B2 


00A6 





7081 


00A7 





70B0 


00A8 





70 AF 


0OA9 





70AE 


OOAA 





70A0 


OOAB 





70AC 


OOAC 





70AB 


OOAO 





70AA 


OOAE 





70 A9 


OOAF 





70A8 


OOBO 





70A7 


OOBl 





70 A6 


00B2 





7QA5 


0083 





70A4 


0084 





70A3 


0OB5 





70A2 


0036 





70A1 


0QB7 





70 AO 


00U8 





709F 


0089 





709E 


OOBA 





7090 


OOBB 





709C 


ODBC 





709B 



HOX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


MDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRD 


HOX 


NOTRO 


HDX 


NOTRO 


HOX 


NQIPO 


HDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTKO 


MDX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


KDX 


NOTRD 


HDX 


NOTRO 


HDX 


NOTRO 


HDX 


NOTRO 


MDX 


NOTRO 



IBH*IBM*IBM»IBH*IBM»IBM»IB''»I?:''«ISM»I3M*IB' *1B«»I 
CORRECTIONS FC* THE FOLLOWING 27 "* • 
WORDS MUST BE "i'jE IN THE CARD • 
NUMBERED 3 0= I"4S AUX PROGRAMS • 
7 CARD OBJECT DECK. • 

IBM*IBH*I8H*IBM*l8M*lBH*I3"«I;"'.*iaM»IBM»lB1»IAK»l 



HOX 


NOTRO 


HOX 


NOTRD 


MDX 


NOTRO 


HDX 


NOTRD 


MDX 


NOTRO 


MDX 


NOTRO 


HDX 


NOTRD^ 


HDX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


MDX 


NOTRD 


MDX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRO 


HDX 


NOTRO 


MDX 


NOTRO 


HOJ, 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRD 



•IBM»IBM*1BM»IBM*I6M*IBM*ISM»I6M*I8H*IBM»IBM»IBM»I 



DATE 
EC NO. 



28FE66* 
415120 



3AC17340 

8AC17S50 
3AC17S60 
8AC17S70 
SAC178S0 
8AC17890 
3AC17900 
SiC179lO 
3i:i7920 
SiCl7930 
3AC17940 
SAC179S0 
SACU960 
3iC17970 
84C17980 
aiC17990 
3AC1S000 
SiClSOlO 
S4C16020 
3AC19030 
8AC19049 
9ACie050 
8AC18060 
SiCl3070 
3ACU080 
8ACI3090 
3AC131O0 
SAC18110 
eACl8120 

eicisuo 

3AC1S140 
SiClSlSO 
3AC13160 
8AC18170 
8iCl8180 
8AC18190 
8ACtS200 
8iC18210 
8iC18220 
8ACI3230 
eACl8240 
eACl8250 
3tClS260 
8AC18270 
3AC18289 
8AC18290 
8ACIS300 
3AC18319 
SAC13320 
8AC183L39 
8AC18340 
8AC183S0 
3AC18360 
8iC18370 
8AC18380 
8iCI8390 
8AC18400 
8AC18410 
8AC13420 
8AC13430 
8AC13440 
3AC18450 
3AC18460 
8AC18470 
8AC184S0 
8AC18490 
aAClS500 
8AC18S10 



PROG 10 
PACE 



08AC-0 
18* 



I ( t 



C 11 < ( ( 1 ( ( 1 11 
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IBM MAINTENANCE OIAGNOSTJC PROGRAM FOR THE 1800 SYSTEH 



AUX PROGRAM GEHERATOR UTILITY PROGRAM 
AUX 2N0 tOS3 



CORRECTIONS FOR THE FOLLOWING 27 » 
WORDS MUST BE MADE IN THE CARD ♦ 
NJM3ERE0 '> OF THIS A'JX PROGRAMS ♦ 
7 CARD OBJECT DECK. ♦ 

lBH»I0H*lBM»13M»I8".«IBM»;8H»I51*I8'<»iaM»IBM»iaM*l 



3030 





709A 


OOBE 





703F 


008F 





7CiE 


OOCO 





7030 


OOCl 





70 3C 


00C2 





703a 


00C3 





703A 


0OC4 


9 


7039 


00C5 





7038 


00C6 





7037 


O0C7 





T036 


00C8 


9 


7035 


0OC9 





7034 


OOCA 





7033 


OOCB 





7032 


OOCC 





7031 


OOCO 





7030 


OOCE 





702F 


OOCF 





702E 


0000 





7020 


0001 





702C 


0OD2 





702B 


0OD3 





702A 


0OD4 





7029 


0005- 


7028 


D0D6 





7027 


0007 





7026 



HOX 
HDX 
HOX 
MDX 
HOX 
KOX 
MOX 
HOX 
MOX 
MOX 
MDX 
MOX 
MOX 
HOX 
MDX 
HOX 
MOX 
HOX 
HOX 
HOX 
MOX 
HOX 
MDX 
MOX 
MDX 
MOX 
MOX 



NOTRO 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 



•IBH»IBM*I 



BM*.BM*IBH»I8H*IDM*IB1»IBK»IB'4*IBM*IBM*I 
CORRECTIONS FOR THE FOLLOr<INC 38 * 
VORDS MUST BE ".ADE IN THE CARD ♦ 
NU1BERE0 5 OF THIS AUX PROGRAMS » 
• 7 CAPO 08JFCT DECK. ♦ 

•IEH*IBH*IBH»|BH«lBH*IBH*IBM»I6M*IBM»IBf»IBM*IBM»I 



0008 





7025 


0009 





702* 


OOOA 





7023 


OOOB 





7022 


OOOC 





7021 


OODO 





7020 


OOOE 





701F 


OOOF 





701E 


OOEO 





70lfr 


OOEl 





701C 


0OE2 





701B 


00E3 





70 1 A 


00E« 





7019 


DOES 





7018 


O0E6 





7017 


0OE7 





7016 


00E8 





7015 


00E9 





701V 


OOEA 
0OE8 





7013 





7012 


OOEC 





7011 


OOEO 





7010 


OOEE 





700F 


OOEF 





700E 


DATE 




28FEB66 


EC NO. 


415120 



MOX 
MDX 
MDX 
MOX 
MDX 
HOX 
MOX 
HOX 
KOX 
MOX 
MOX 
HOX 
MOX 
MDX 
MOX 
MDX 
MOX 
MDX 
MOX 
MDX 
MOX 
HOX 
MOX 
MOX 



/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 

/oorf 

/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 



PART NO. 21964SS 
PAGE 19 



8AC18S20 
8AC18530 
8AC1S540 
BACiaSSO 
8AC18560 
8AC18570 
8AC18580 
8AC18S99 
8AC1S600 
8AC18610 
8AC18620 
8ACia630 
8AC16640 
8AC18650 
8AC1S660 
8AC18670 
8AC18680 
8AC18690 
8AC18700 
8AC18710 
8AC18720 
8AC18730 
8AC18740 
8AC18750 
8AC18760 
8AC18770 
8AC18780 
8AC18790 
BACISSOO 

SACiaaio 

8ACIB820 
8AC18830 
8AC18840 
8AC188S0 
8ACI8860 
8AC18870 
8AC18880 
8AC18S90 
8 AC 18900 
8AC18910 
SAC 18920 
8AC18930 
BAC18940 
8 AC 18950 
8AC18960 
8AC18970 
8AC18980 
8AC18990 
8 AC 19000 
8AC19010 
8AC19020 
8AC19030 
8AC1904O 
8AC190S0 
eAC19060 
BAC19070 
8AC19080 
8AC19090 
8AC19100 
8AC19110 
8AC19120 
8AC19130 
8AC19140 
8AC19150 
8AC19160 
8AC19170 
8ACt9t80 
8AC19190 



IBM MAINTEN^'.CE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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AUX 2N0 1053 



PART NO. 21964SS 
PAGE 19A 



ooro 





70ID 




HOX 


/OOFE 










8AC1920a 


OOF I 





70;; 




HOX 


/OOFE 










SAC19210 


00F2 





73CS 




MOX 


/OOFE 










8AC19220 


0OF3 


C 


70 3* 




MDX 


/OOFE 










8AC19230 


OOF* 





70;t 




MOX 


/OOFE 










aAC192*0 


OOFS 





73CS 




HOX 


/OOFE 










8AC19250 


00F6 





7C37 




MDX 


/OOFE 










8AC19260 


00F7 





70:6 




HDX 


/OOFE 










8AC19270 


00F8 





70:5 




MOX 


/OOFE 










8AC19280 


00F9 





70C* 




MDX 


/OOFE 










8AC19290 


OOFA 





7033 




MOX 


/OOFE 










8AC1930e 


OOFB 





7CC2 




MDX 


/OOFE 










8AC19310 


30FC 





7o:i 




HDX 


/OOFE 










8AC19320 


OOFO 





7033 




MDX 


/OOFE 










8AC19JJ0 








*tt***t*tt*t*^t***tt*ti* ******'*»***»******** »*»»*** 


8AC19340 








• 














84C193S0 


0000 






QQQO 


EQU 


/O 


GO 


TO LOADER AT 


/O 


8AC19360 


7007 






NNNN 


EOU 


/70D7 


FOR 


CARD 


LOADER 


AT /35 


8AC19»70 


0813 






WWWW 


EQU 


/0813 


SET 


IN LOADER AT 


/04 


8ACl93aO 


7035 






TTTT 


EQU 


/TOGO* 


RETUR-/* 


-I 


THIS IS 


COUAL TO 


8 AC 19390 








* 






THE 


BRANCH FR3>< 


THE LOADER 


8AC19400 








• 






TO 


^ETUR 


IN THIS 


PROGRA«<. 


8ACl9<flO 








»»»»«*»<.«**«»t»»e**tt»»»*«»e»»«*»«**»»»e4«»«*9s*»»» 


8AC19420 


OOFE 




00F3 




END 


»-l 


END 


CAno 


NEVER USED 


3AC19430 



PROG ID 
PACE 



08AC-0 
19 



DATE 
EC NO. 



23FE866 
415120 



PROG 10 08AC-0 
PACE 19A 
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IBM MAINTENANCE OIAGNOSTIC PROGRAM FOR THE 1800 SYSTEH 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
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PAGE 20A 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 


AREA 


0800 


0053,0055,0057,0065 


CEGO 


006 7 


004C 


ceoFF 


0056 


0038, 005B 


CEQN 


005* 


003A,0045 


CESW 


0062 


0041 


0SWS2 


0''.52 


0036,0030 


MOD IF 


0004 


0053,0055,0057,0065 


NNNN 


70D7 


0052 


NOTRD 


0058 


0043, 004 E, 006 1,006 7, 006 8, 0069, 006A, 0063, 006C,0060» 
O06£,006F,OO70,0O7l,O072,O073,0O74,0O75,0076,OO77t 
00 78, 0079, O07A,OO7B,OC7C, 0070, 00 rt.OOTF, 0080, 0081, 
0082, 0083, 0084, 003 5, 0086, 0087, 0083, 0089, 008 A, 008B, 
0030,0080. 008E,003F,CO<'0, 0091,0092, 0093, 0094, 0095, 
0096, 0097,0098,0099,009a, 0098,0090 ,0090,009E >009Ff 
OCA0,OO41,0OA2,OOA3,O0A4,COA5,00A5,0OA7,00A8,O0A9, 
00 A A, OOAB.OOAC, 00 AD, OOAE, 00 AF.OOBO, 0081,0082,0083, 
00B4, OOD 5, 0086, 008 7,008'?, 0089, 00 BA,00BB,00BC, 0080 


OUTWO 


0066 


0064 


QQQO 


OOOD 


0060 


RETUR 


003A 


OOFE 


SAVE2 


005C 


0038,0046 


SAVE3 


005E 


00 3C 


SENBI 


0050 


003F, 0040, 0042 


STATU 


0063 


00 3E 


TERM 


004E 


0048 


ITTT 


7035 


0056 


WRITE 


0064 




MWWW 


0813 


0058 



DATE 
EC NO. 



28FEB66 
415120 



PROC ID 
PAGE 



08AC-0 
20 







AOS 




8AC19440 




02BC 




ORG /36 




8AC19450 
8AC19460 








»t»»»t***»»*»**»*t**t*ttttttttttttttt»tt**t»t*t*^*» 


8AC19470 




0800 




AREA EQU /0800 1ST 1053 AREA CODE 

* IF THIS PROG IS TO BE USED FOR A HACH 

• WITH A OIFF AREA CODE ALL THE LOCATIONS WHICH 




8AC19*80 
8ACI9493 
8AC19500 








* REFER TO THE LABEL AREA IN SYM30L TABLE "UST 


8AC19M0 








• BE CHANGED BY HEX CORRECTIO*J CARDS TO OBTAIN A 




8AC19520 








* HOOIFIEO AUX 8-8 OBJECT DECK. SEE AUX CE PROG 




8ftC19530 








♦ GENERATOR WRITE-UP FOR PROCEDURE. 




8AC19540 
8AC19550 




0008 




MODIF EQU /0008 3RD 1053 MODIFIER BIT 




8AC19560 








#****•»*«*»**»»******»»**«*•,«**«»*,*»*»*«.«•**»,*«« 


8AC19570 












8AC19580 












8AC19590 








• 3R0 1053 SKELETON PROGRAM 




8 AC 19600 








* (SEE AUX CE PROG GENERATOR 




8AC19610 








• * WRITE-UP FOR use PROCEDURE) 




8ACI9620 








• *«**»«*»*»**»«*****»««**«*»»* 




8AC19630 








• THIS PROG CAN NOT BE LOADED FROM PAPER TAPE 




eAC19640 
SAC19650 
8AC19650 
BAC19670 
8AC19680 








• PURPOSE 




8 AC 19690 








♦ THE PURfOSE OF THIS PROGRAM IS 




8 AC I 9700 








• TO PROVIDE A SKELETON PROGRAM 




8AC19710 








♦ UPON WHICH THE CE CAN WRITE AN 




8AC19720 








• AUX STORAGE PROGRAM. 




8AC19730 






• 


* GENERAL INSTRUCTIONS 

* CE SWITCH SETTINGS 

* OOOOllll CE SERVICE STOP 

* intllll TERMINATE PROGRAM 




8AC19740 
8AC19750 

8AC19760 
8AC19770 
8AC19780 
8AC19790 








♦ ALL OTHER CDH3I NATIONS ARE STORED 


8AC19800 








* » Al THE LOCATION CESW FOR 




8AC19810 








♦ • POSSIBLE USE BY THE CE TO 




SAC19820 








* » CONT'-OL HIS PROGRAM 




SAC19830 
8AC19840 
8AC19850 








*•****»****•**•*•»* *«i**********»***»**t******* 




9AC19860 
8AC19870 
8AC19R80 








♦IBM*IBH*IBH*IBH»IBH»IBH»IBH*IBH*IBM*IBK*1BM»I3M»I 


8AC19899 








• CORRECTIONS FOR THE FOLLOWING 27 


• 


8AC19900 








• WORDS MUST BE MADE IN THE CARD 


• 


8AC19910 








• NUMBERED X OF THIS AUX PROGRAMS 


• 


8 AC 19920 








* 7 CARD OBJECT DECK. 


• 


8AC19930 








•IBM»IBM»IBH»IBM»IBH»IBM»I8M»IBM*IBH«IBM»IBH*IBM»I 


8AC19940 












8AC199S0 












8AC19960 












8AC199 70 








• AUX PROG ENTRY POINTS 




8AC19980 












8AC19990 
8AC2000d 








• 1ST PASS ENTRY 




8AO20010 








• *******»*»***• 




aAC20020 












8AC20030 




0036 


COIB 


LD OSW52 RESTORE LOC NICE 




8AC20040 




0037 


DOF» 


STO /35 • IN AUX LOADER 




8AC20050 
8AC20060 


f 


0038 


COID 


LO CEOFF PLACE BRANCH 




8AC20070 




0039 


DOC A 


STQ /04 • TO RETUR LABEL 
• ALL BUT 1ST PASS ENTRY POINT 




8 AC 2 00 80 
8AC20090 
6AC20100 
8AC20110 




DATE 


28FEB66 






PROG to 


08AC-0 


EC NO. 


415120 






PAGE 


20A 



\ - 



( 1 ((((((((((((<(((((((<( 1 ((<<(<(( < 



IBH MAINTENANCE OlAGNOSTiC PROCRAH FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 3R0 1053 



003A 





0819 


RETUR XtO 




CEON 


0038 





6A21 


STX 


2 


SAVE2»1 


003C 





6822 


STX 


3 


SAV£3*l 


0030 





0814 


XIO 




OSW52 


003E 





0024 


STO 




STATU 


003F 





0810 


XIQ 




SEN8I 


0040 





EOOF 


AND 




SENBI 


OO'tl 





D020 


STO 




CESW 


0042 





FOOD 


EOR 




SENBI 


0043 


00 


4C180058 


BSC 


L 


NOTRDt*- 


0045 





FOOE 


EGR 




CtON 


0046 


00 


4C18005C 


BSC 


1. 


SAVE2.*- 


3048 


00 


CC00004E 


LDO 


L 


TERH 


004A 


00 


OCOOOOFE 


STO 


L 


/OOFE 



304C 00 4C00006T 
004E 00 4C000058 



0050 
0050 



0000 
OOFF 



SET DEVICE IN CE MODE 
SAVE INDEX REGISTER 2 
SAVE INDEX REGISTER 3 
SENSE DEVICE STATUS 
SAVE DEVICE STATUS 
SENSE CE PROG SH TO ACCUH 
BLOCK OUT PROG SEL SH 
SAVE CE PROG SW SETTINGS 

BR TERMINATE PROGRAM 

BR SERVICE STOP 

SET TERMINATOR BR AT END 
♦ OF AUX CORE AS A SAFETY 
» PRECAUTION 



BSC L CEGO BR TO 00 I T YOURSELF PROG 
ERM BSC L NOTRD TERMINATOR BRANCH 

CONSTANTS ANO/CR lOCC WORDS 
BSS E 
ENBI DC /OCFF TERMINATOR CONSTANT 



IBM*IBM»1EM»IB>1*IBK»IBM»IBM»IBM*IBM*IBM*IRH»IBM*I 
CQi^RECTIONS FOR THE FOLLOWING 27 » 
KOROS MUST BE MADE IN THE CARD * 
NUMBERED OF THIS AUX PROGRAMS * 
7 CARD OBJECT DECK. ♦ 

I BM» I BM» I BH* I BH» I BM* 1 BH» I BH* I BM» I BM» I BH» I BH»1 BM»I 



0051 





0760 


0052 





7007 


0053 





0F09 


0054 





OOFO 


0055 





0809 


0056 





7035 


0057 





0808 



0058 00 65000813 
005A 69A9 
0058 06F4 



005C 00 66000000 
005E 00 67000000 

0060 70 AC 



DC 
DSMS2 DC 

DC 
CEON DC 

DC 
CEOFF OC 

DC 

* 

NOTRD LDX 
STX 
XIO 



SENSE CE SWITCHES 



/0760 

NNNN 

/070l*AREA*l',ODIF RESET DEVICE STATUS 

/OOFO CE SERVICE STOP CONST 

/0001*AREA*MODIF CE ON WORD 

TTTT 

/0000»AREA«HODIF CE OFF WORD 

EXIT POINTS TO AUX LOADER 

TERMINATE EXIT POINT 
LI WUWH 

1 /d4 

CEOFF REMOVE DEVICE FROM CE MODE 



0061 70F6 

0062 0000 

0062 0000 

0063 0000 



• 

SAVE2 

SAVE3 



CESW 
STATJ 



LDX 
LDX 

HDX 



NCHfAL EXIT POINT 
L2 
L3 

0000 

THE FOLLOWING CONSTANTS AND lOCC 
WORDS HAS BEEN PLACED HERE TO AID 
THE CE IN HIS PROGRAMMING EFFORT. 



MDX 
BSS 
OC 
PC 



NOTRD 






THIS LOC IS NOT USED 

CE PROGRAM SM SETTING 
DEVICE STATUS WORD"^ 



PART NO. 21964SS 
PAGE 21 



8AC20120 

8AC20130 

8AC20I40 

8AC20150 

8 AC 20 160 

8AC20170 

8AC20t80 

8AC20190 

SAC20200 

8AC20210 

8ACJ0220 

8AC20230 

8AC20240 

8AC202S0 

8AC20260 

3AC20270 

8AC20280 

8AC20290 

8AC20300 

8AC20310' 

8AC20320 

8AC20330 

8AC20340 

8AC20350 

8AC20360 

8AC20370 

8AL20380 

aAC20390 

8AC20400 

8ACZ0410 

8AC 20420 

8AC20430 

SAC20440 

8AC204S0 

8AC20460 

8AC20470 

8AC20480 

8AC20490 

8AC20500 

8AC20S10 

8AC20520 

8AC20530 

8AC20S4a 

8AC20550 

8AC20560 

8AC20S70 

8AC20580 

8AC20590 

8AC20600 

8AC20610 

8AC20620 

8AC20630 

8AC20640 

eAC206S0 

8AC20660 

8AC20570 

8AC20680 

8AC20690 

8AC207O0 

8AC20710 

8AC20720 

8AC20730 

8AC20740 

8AC207S0 

8AC20760 

8AC20770 

eAC20780 

8AC20790 
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0064 0066 

0065 0903 

0066 0000 



0067 70F0 



0068 
0069 
006A 
006B 



70EF 
70EE 
70ED 
70EC 



006C 





70EB 


0060 





70EA 


OOCE 





70E9 


006F 





70E8 


OOTO 





70E7 


0071 





70 E6 


0072 





70E5 


0073 





70E4 


0074 





70E3 


0075 





70E2 


0076 





70E1 


0077 





70E0 


0078 





700F 


0079 





70DE 


007A 





70DD 


0078 





70 DC 


007C 





70DB 


0070 





700A 


007E 





7009 


007F 





70D8 


0080 





7007 


0081 





70D6 


0082 





7005 


0083 





7004 


0084 





70D3 


0085 





7002 


0086 





7001 



DATE 
EC NO. 



28FFB66 
415120 



PROG to 
PACE 



08AC-0 
21 



DATE 
EC NO. 



28FEB66 
415120 



* 






8AC20800 




WRITE OC 


OUTWO REFERS TO OUTPUT CHAR. 




8AC20810 




DC 


/0100»AREA*MODIF lOCC WRITE WORD 




8AC20820 




* 






8AC20830 




OUTWO DC 


PLACE OUTPUT CHAR. HERE 




8AC20340 




»»•***•»**»****•***#•**»»»«»**«»•*«»«»«*»«**««:***** 


8Al,20850 




• 






8&C20S60 




* 


^^ 




8AC20870 




• 






aAC20880 




• 


THIS IS THE STARTING POINT OF YOUR 




.'AC20890 




• 


PROGRAM. 




8AC20900 




• 






8AC20910 




• 






8AC20920 




• 






8AC20930 




W 






8AC20940 




CEGO HDX 


NOTRD 1ST LOC OF YOUR PROGRAM 




3AC2095a 




• 


BRANCH TO LOCATION SAVE2 WHEN 




8Ar20960 




• 


EXITING FROM YOUR PROGRAM. 




8AC20970 




HDX 


NOTRO 




8AC20980 




HDX 


NOTRO 




8AC20990 




MDX 


NOTRO 




8AC21000 




MDX 


NOTRO 




8AC21010 
8AC21020 
8AC21030 




*IBM*IBK»IBM*IBM*IBM»ISH»IBH»I8M»IBM»ISM*IBH»!BM*I 


8AC21040 






CORRECTIONS FOR THE FOLLOWING 27 




8AC2105a 






WCRDS MUST BE MADE IN THE CARD 




aAC21060 






NUMBERED 1 OF THIS iUX PROGRAMS 




8AC21070 


, 




7 CARD OBJECT DECK. 




8AC21080 




•IBM*IBM»IBMS 


IBM»IBM»IBM*IBM*I6M*IBK»|BM»IBM«IBM 


»| 


8AC21090 
8AC2tlOO 
8AC21tlO 




HDX 


NOTRO 




8AC21120 




HDX 


NOTRO 




8AC21130 




HDX 


NOTRO 




8AC21140 




MDX 


NOTRO 




8AC2I150 




HDX 


NOTRO 




8AC21160 




HOX 


NOTRO 




8AC2U70 




HDX 


NOTRO 




3AC21180 




MDX 


NOTRO 




8AC21190 




MDX 


NOTRO 




8AC2I200 




HDX 


NOTRO 




aAC2I210 




MDX 


NOTRO 




8AC21220 




HDX 


NOTRO 




8AC21230 




HOX 


NOTRO 




8AC21240 




HDX 


NOTRD 




8AC21250 




HDX 


NOTRO 




8AC21260 




HDX 


NOTRO 




8AC2I270 




HOX 


NOTRO 




8AC212B0 




HDX 


NOTRO 




8AC21290 




MDX 


NOTRO 




8AC21300 




HDX 


NOTRO 




8AC21310 




MDX 


NOTRO 




8AC21320 




HOX 


NOTRO 




8AC21330 




HDX 


NOTRO 




8AC21340 




MDX 


NOIRO 




8AC21350 




HOX 


NOTRO 




8AC21360 




HDX 


NOTRO 




8AC21370 




HDX 


NOTRO 




8AC21380 
8AC21390 
8AC21400 




*IBM*IBH*I3M* 


I BM*I BH» I BM»I BH* I BH» I BM» I BM» I BM* I BM*I 


8AC21410 






CORRECTIONS FOR THE FOLLOWING 27 


• 


8AC21420 






WORDS MUST BE MADE IN THE CARD 


• 


8AC2t430 






NUMBERED 2 OF THIS AUX PROGRAMS 


• 


8AC21440 






7 CARD OBJECT DECK. 


• 


8AC214S0 




•IBM»IBM»ieH*IBH*IBM*IBM*ieM*IBH*IBM*IBM»IBM»IBH»l 


8AC21460 










8AC2U70 










PROG 10 


08AC-0 








PACE 


21A 



( 1 < C C (((((((( ( ( ( ( ( C ( <(((((<(( ( < C ( ( 
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0087 





7000 


0088 





70CF 


0039 





70CE 


003A 





7OC0 


onsB 





70CC 


ooec 





70C8 


008} 





70CA 


008C 





70C9 


008F 





70C8 


0090 





roc 7 


0091 





70C6 


0092 





70C5 


0093 





70C* 


0094 





70C3 


0095 





70C2 


0096 





70CI 


0097 





70C0 


0098 





70BF 


0099 





70BE 


009A 





70B0 


0098 





70BC 


009C 





70BB 


0090 





708A 


009E 





7089 


009F 





70B8 


OOAO 





7087 


OOAI 





7086 



MOX 


NOTRO 


HDX 


NOTRO 


KOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRD 


HOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


MDX 


fOTRO 


HDX 


NOTRO 


HDX 


NOTRO 


HDX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOIRO 


HDX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MDX 


NOIRO 


HDX 


NOTRO 



I8M*IBM41BH*I8'1»IBM*I8M»IB1»I6H*IB<<»I8H»IBH*I8M»I 
CORRECTipNS FOR THE FOLLO«(ING 27 • 
WORDS MUST BE MADE IN THE CARD * 
NUMBERED 3 OF THIS AUX PROGRAMS • 
7 CARD OBJECT DECK. * 

I6H*IBH*IBH»IBM»IBM*IBH»IBK»IBM»IBM*IBM»1BH*IBH»I 



0OA2 


7085 


HOX 


NOTRO 


0OA3 


7084 


MOX 


NOTRO 


00A4 


7083 


HOX 


NOTRD 


00A5 


7082 


HOX 


NOTRO 


0OA6 b 


7081 


HOX 


NOTRO 


0OA7 


7080 


HDX 


NOTRO 


0OA8 


70AF 


HDX 


NOTRO 


00A9 


70AE 


HDX 


NOTRO 


OOAA 


70AO 


MOX 


NOTRO 


OOAB 


70 AC 


MOX 


NOTRO 


OOAC 


70AB 


HDX 


NOTRO 


OOAO 


70AA 


HOX 


NOTRO 


OOAE 


70A9 


HOX 


NOTRO 


OOAF 


70A8 


MOX 


NOTRO 


0080 


70A7 


HOX 


MOTRO 


OOBl 


70A6 


HOX 


NOTRO 


0082 


70A5 


HOX 


NOTRO 


0083 


70A4 


HOX 


NOTRO 


0034 


70A3 


Hon 


NOTRO 


0085 


70A2 


MOX 


NOTRD 


0086 


70A1 


HOX 


NOTRO 


008^ 


70 AO 


HOX 


NOTRO 


0088 


709F 


HOX 


NOTRO 


0089 


709E 


HOX 


NOTRO 


OOBA 


7090 


MDX 


NOTRD 


0088 


709C 


HDX 


NOTRO 


ODBC 


7098 


HOX 

• 
• 


NOTRO 
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aAC2148Q 
8AC21490 
SACZISOO 

aAC2i5io 

8AC21520 

8AC21530 

8AC21540 

8AC21550 

8AC21560 

8AC21570 

8AC21580 

8AC21590 

8AC2K.00 

8AC21610 

8AC21620 

8AC21630 

8AC21640 

8AC2165a 

8AC21660 

8AC21670 

8AC21680 

8AC21690 

8AC21700 

8AC21710 

8AC21720 

8AC21730 

8AC217A0 

8AC217S0 

8AC21760 

8AC21770 

8AC21780 

8AC21790 

8AC21800 

8AC21810 

8AC21820 

8AC2ia30 

8AC21840 

8AC21850 

8AC21860 

8AC2187P 

aAC21880 

8AC21890 

8AC21900 

3AC21910 

8AC21920 

8AC21930 

8AC21940 

8AC21950 

8AC2I960 

8AC21970 

8AC21980 

8AC21990 

8AC22000 

8AC22010 

8AC22020 

8AC22030 

8AC22040 

8AC22050 

8AC22060 

8AC22070 

8AC22080 

8AC22090 

SAC22100 

8AC22U0 

BAC22I20 

8AC22130 

SAC22140 

8AC22IS0 
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0080 

OOBE 

OOBF 

OOCO 

OOCl 

0CC2 

00C3 

0OC4 

30C5 

00C6 

0OC7 

00C8 

00C9 

OOCA 

OOCB 

OOCC 

OOCO 

OOCE 

OOCF 

0000 

0001 

0002 

0OD3 

0004 

0005 

0006 

0007 



709A 
703F 
703E 
7030 
703C 
703B 
r03A 
7039 
7038 
7037 
7036 
7035 
7034 
7033 
703? 
7031 
7030 
702F 
702E 
7020 
702C 
702B 
702A 
7029 
7028 
7027 
7026 



0008 
0009 
OODA 
0008 
OODC 
0000 
OOOE 
OOOF 
OOEO 
OOEl 
0OE2 
0OE3 
00E4 
00E5 
0OE6 
00E7 
0OE8 
0uE9 
OOEA 
OOEB 
OOEC 
OOEO 
OOEE 
OOEF 



7025 
7024 
7023 
7022 
7021 
7020 
701F 
701E 
7010 
701C 
701B 
701A 
7019 
7018 
7017 
7016 
7015 
7014 
7013 
7012 
7011 
7010 
700F 
700E 



CORRECTIONS FOR THE FOLLOWING 27 • 
WORDS HUST BE HADE IN THE CARD • 
NUMBERED 4 OF THIS AUX PROGRAMS » 
7 CARD OBJECT DECK. * 

IBH»IBM»IBH*IBM»IBS*1BH»IBHMCS»IBM*IBM*IBM*IBH»I 



HDX 
HOX 
MOX 
HOX 
HDX 
MOX 
HDX 
HOX 
HDX 
HDX 
HOX 
HOX 
HOX 
HDX 
HOX 
MOX 
MOX 
HDX 
HOX 
HOX 
MOX 
HOX 
HDX 
HOX 
HOX 
HOX 
HOX 
• 

*I6M*IBM»1 



•IBM»1BM*1 

• 

MOX 
MOX 
HDX 
MOX 
MDX 
MDX 
MOX 
MDX 
HDX 
HDX 
MDX 
MDX 
HDX 
HDX 
MDX 
HDX 
MDX 
MOX 
HOX 
HDX 
HOX 
HOX 
MOX 
MOX 



NOTRO 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 



B1»lBH»IBH*IBM»I3"*IBM»iaM»IB1*;B1»IBM*I 
CORRECTIONS FOR THE FOLLOWING 18 • 
WORDS HUST BE "ADE IN THE CARD » 
NUMBERED 5 CF THIS AUX PROGRAMS * 
7 CARD OBJECT DECK. » 

8M*IBM*IBM»IB>'»I6''»IBM»IBH*IBM»IBM*IBM*I 



/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
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8AC22160 

8AC22170 

8AC22160 

8AC22190 

8AC22200 

8AC22210 

8AC22220 

8AC22230 

8AC22243 

8AC22250 

8AC22260 

8AC22270 

8AC22280 

8AC22290 

8AC22300 

8AC22310 

8AC22320 

8AC22330 

8AC223*0 

8AC22350 

8AC22360 

eAC22370 

8AC22380 

8AC22390 

8AC22400 

8AC22410 

8AC2242a 

8AC22430 

8AC22440 

8AC32410 

8AC22460 

8AC22470 

^AC22480 

8AC22490 

8AC22500 

8AC22S10 

SAC22S20 

8AC22S39 

8AC22540 

8AC22550 

8AC22560 

8AC22570 

8AC22580 

8AC22590 

8AC22600 

RAC22610 

8AC22620 

8AC22630 

8AC22640 

8AC22650 

8AC22660 

8AC22670 

8AC22680 

8AC22690 

8AC22700 

8AC22710 

8AC22720 

8AC22739 

8AC22740 

8AC22750 

8AC22760 

8AC22770 

8AC22780 

8AC22790 

8AC22800 

8AC22810 

8AC22S20 

8AC22830 



OATfc 
EC NO. 



28FEB66 
415120 



PROG 10 
PACE 



08AC-0 



DATE 
EC NO. 



28FEB66 
415120 



PROG 10 
PACE 



08AC-0 
22A 



x- 



t C ( C C ( ( C ( ( ( ( < 1 ( ( t 1 ( ( ( C ( ( C ( ( ( ( ( ( i ( ( 



( ( 



V 
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OOFO 





7000 




MOX 


/OOFE 










8AC22840 


OOFl 





700C 




MDX 


/OOFE 










8AC22850 


00F2 





700 B 




MOX 


/OOFE 










8AC22860 


0OF3 





700A 




MOX 


/OOFE 










8AC22870 


OOF* 





7009 




MDX 


/OOFE 










8AC2288a 


OOFS 





7008 




MOX 


/OOFE 










8AC22890 


0OF6 





7007 




MOX 


/OOFE 










8AC22900 


OOF 7 





7006 




MDX 


/OOFE 










8AC229I0 


00F8 





7005 




MDX 


/OOFE 










8AC22920 


00F9 





700* 




MOX 


/OOFE 










8AC2293U 


OOFA 





7003 




MOX 


/OOFE 










8AC2294a 


OOPS 





7002 




MOX 


/OOFE 










8AC22950 


OOFC 





7001 




MDX 


/OOFE 










8AC22960 


OOFO 





7000 




MOX 


/OOFE 










8AC22970 








****»»»»»*t»#*t^tt ****** t*ttt*»*» 


>•*•**•»**«•«***** 


8AC22980 








• 














8AC22990 


0000 






QQQO 


ECU 


/O 


GO 


TO LOADER AT 


/O 


8AC23000 


7007 






NNNN 


EQU 


/7007 


FOP 


CARD 


LOADER 


AT /35 


eAC23010 


0813 






WUWW 


EQO 


/0813 


SET 


IN LOADER AT 


/0« 


8AC23020 


7035 






TTTT 


EQo- 


/7C00» 


RETUR-/4 


-1 


THIS IS 


EQUAL TO 


8AC23030 








• 






THE 


BRANCH FROM 


THE LOADER 


8AC230«0 








• 






TO 


HEIUR 


IN THIS 


PROGRAM. 


8AC230S0 








*****t»*»**»**t,tt**t»tH,t,*ttit*tKf*tt*«*t»»t»t»****» 


8AC23060 


OOFE 




OOFO 




ENO 


»-l 


END 


CARD 


NEVER USED 


8AC23070 
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CROSS REFERENCE LISTING 



REFERENCES 

0053,0055,0057,0065 

004C 

0038,0058 

003A,00«5 

0041 

0036,0030 

0053,0055,0057,0065 

0052 

0043, OCiE, 0001,006 7, 

006E,006F, 0070,0071, 

00 78,0079, OOTA.OOTB, 

0082,008 3,0034,008 5, 

DOS'", 0080, 003E,0 08F, 

C096,C097,00'J8,00<."', 

O0A0,O0Al,OOA2,O0A3, 

O0AA,O0AB,0OAC,OOAD, 

0064,0065, 0006,003 7, 

0064 

0060 

OOFE 

0038,0046 

003C 

003F, 0040, 0042 

003E 

0048 

0056 



PART NO. 21964SS 
PAGE 23A 



SYMBOL 


VALUE 


AREA 


0800 


CEGO 


0067 


CEOFF 


0056 


CEON 


0054 


CESW 


0052 


DSW52 


0052 


MOO IF 


0008 


NNNN 


70D7 


NOTRO 


0058 



OUTWO 


0066 


QOQQ 


0000 


REIUR 


C03A 


SAVE2 


005C 


SAVE3 


005E 


SENBI 


0050 


STATU 


0063 


TERM 


004E 


TTTT 


7035 


WRITE 


0064 


WWWM 


0813 



0058, 
0072, 
007C, 
0086, 
0090, 
009A, 
00A4, 
OOAE, 
00B3, 



0069. 
0073, 
0070, 
CC87, 
0091, 
0098, 
00A5, 
OOAF, 
0039, 



006A,006B 
0074,0075 
007E,007F 

0088,0039 
0092,0093 
0090,0090 
00A6,00A7 
0080,0031 
003A,003a 



.C06C 
,C076 
.C030 
,G33A 
,C094 
,O09E 
,C3A3 
,0382 
,033C 



,0060. 
,0077, 
>0031« 
.0033. 
.0095, 
.009F, 
,00A9, 
,0033, 
003D 



0058 



DATE 
EC NO. 



28FE866 
415120 



PROC 10 
PACE 



OSAC-0 
29 



DATE 
EC NO. 



28FE«66 
415120 



PROG ID 08AC-0 
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IBM MAINTENANCE OtAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX «TH 1053 



OZBC 
0800 



ABS 

ORG 



/36 



0010 



w 

»»«»»»*»»»»»♦»»»»»»»»*«♦«»♦«»♦»»*•*♦***♦*»***♦•**** 
A1EA EQO /OOOO ISI 1053 AREA CODE 

* IF THIS PROG IS TO BE JStO FOR A MACH 

* WITH A DIFF AREA COPE ALL THE LOCATIONS WHICH 

* REFER TO THE LABEL AREA IN SYMBOL TAB^E MUST 
» BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 

» MODIFIED AUX 8-8 OBJECT DECK. SEE AUX CE PROG 

* GENERATOR WRITE-UP FOR PROCEDURE. 
• 

HODIF EQU /OOIO '•TH 1053 MODIFIER BIT 

• 
• 

* t,tH 1053 SKELETON PROGRAM 

* (SEE AUX CE PROG GENERATOR 

* ♦ WRITE-UP FOR USE PROCEOUREI 
^ *»«*«*»•»©**♦*«/***»♦*»*♦•♦♦• 

» THIS PROG CAN NOT BE LOADED FROM PAPER TAPE 

* 



PURPOSE 

THE PURPOSE OF THIS PROGRAM IS 
TO PROVIDE A SKELETON PROGRAM 
UPON WHICH THE CE CAN WRITE AN 
AUX STORAGE PROGRAM. 



GENERAL INSTRUCTIONS 

CE SWITCH SETTINGS 

OOOOIUI CE SERVICE STOP 

lUUlU TERMINATE PROGRAM 

ALL OTHER COMBINATIONS ARE STORED 

♦ AT THE LOCATION CESW FOR 

* POSSIBLE USE BY THE CE TO 

• CONTROL HIS PROGRAM 



*»»»•»»»»**••♦*»**»*♦♦*»»******♦♦•♦*♦********• 



♦IBH»18H»I6M*IBM»IBM*IBH»IBH»I8H*IBH»IBM»IBM»IBM»I 

• CORRECTIONS FOR THE FOLLOWING 27 » 

• ■ WORDS MUST BE MADE IN THE CARD • 

• NUMBERED X OF THIS AUX PROGRAMS ♦ 

• T CARD OBJECT DECK. ♦ 
*IBM»IBH»I8M»I9M*IBH*1BH*IBH»1B1»IBM»IBM»IBM»I8H*I 

* 



AUX i-ROG ENTRY POINTS 

tt *»»**•** *********** 

1ST PASS ENTRY 



0036 

0037 

0038 a 

0039 



DATE . 
EC NO.- 



COIB 
OOFO 

COID 
OOCA 



to 0SW52 RESTORE LOC NICE 
'STO /35 • IN AUX LOADER 

LD CEOFF PLACE BRANCH 
STO /04 • TO RETUR LABEL 

ALL BUT 1ST PASS ENTRY POINT 
t*************************** 
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8AC23080 
8AC23090 
8AC23100 
8AC23110 
8AC23120 
8AC23130 
8AC23140 
8AC2J15!> 
8AC23160 
8AC23170 
eAC23180 
8AC23190 
8AC23200 
8AC23210 
8AC23220 
8AC23230 
8AC23240 
8AC232S0 
8AC23260 
8AC23270 
8AC23280 
8AC23£90 
8AC23300 
8AC23310 
8AC23320 
8AC23330 
8AC23340 
8AC23350 
8AC23360 
8AC23370 
8AC23380 
8AC23390 
8AC23400 
8AC23«tO 
8AC23«2a 
8AC23430 
8AC23440 
8AC234S0 
BAC23460 
8AC23*70 
8AC23489 
8AC23490 
8AC23500 
8AC23S10 
8AC23520 
SAC23530 
8AC23S40 
8AC23550 
SAC23560 
8AC23570 
8AC23580 
8AC23590 
8AC23600 
8AC23610 
8AC23620 
8AC23630 
8AC236A0 
8AC23650 
8AC23660 
8AC23670 
8AC23680 
8AC23690 
8AC23700 
8AC23710 
8AC23720 
8AC23730 
■8AC23740 
8AC237S0 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 4TH 1053 







• 








» 




3051 


0760 




DC 


0052 


7007 


DSW52 


DC 


0053 


OFll 




OC 


0054 


OOFO 


CEON 


DC 


0055 


0811 




DC 


3056 


7035 


CEOFF 


OC 


0057 


0810 




OC 



SET DEVICE IN CE MODE 
SAVE INDEX REGISTER 2 
SAVE INDEX REGISTER 3 
SENSE DEVICE STATUS 
SAVE DEVICE STATUS 
SENSE CE PROG SW TO ACCOM 
BLOCK OUT PROG SEL SW 
SAVE CE PROG S.4 SETTINGS 

BR TERMINATE PROGRAM 

BR SERVICE ST3P 

SET TERMINATOR BR AT ENO 
» OF AUX CORE AS A SAFETY 
» PRECAUTION 

BR TO 00 IT YOJRSELF PROG 
TERMINATOR BRANCH 



^NO/OR lOCC WORDS 
TERMINATOR CONSTANT 



»IBM*I8H*IBH*IB'1*iaM»IBM*IBM*IBH»IBH*I&1»IBM»IBH»l 

• CORT-ECTIONS FOR THE FOLL0.<INC 27 ♦ 

• waRDS MUST BE MADE IN THE CARD » 

• NUMBERED OP THIS AUX PROGRAMS * 

• 7 CARD OBJECT DECK. * 
»IBM*IBM*lBH»IBM>»lBK*IBM«lBH»lBM»:B«»IBM»iaM»l3M»I 



/0760 SENSE CE SWITCHES 

NNNN 

/0701*AREA*M00IF RESET DEVICE STATUS 
/OOFO CE SERVICE STOP CONST 
/0001«AREA*M0DIF CE ON W3R0 
TTTT 

/0000*AREA*M0O|F CE OFF WORD 
»»»»*»**»**»»»»»»»»*♦***•**•»»♦*•*♦******•**•• 

* 



003A 


0819 


RETUR 


XIO 




CEON 


0038 


6A21 




STX 


2 


SAVE2*l 


003C 


6822 




STX 


3 


SAVE3+1 


003D 


0814 




XIO 




DSW52 


303E 


0024 




STO 




STATU 


003F 


0810 




XIO 




SENBI 


30<>0 


EOOF 




AND 




SENBI 


00*1 


0020 




STO 




CESW 


00*2 


FOOD 




EOR 




SENBI 


00*3 00 


4C180058 




BSC 


L 


NOTROt*- 


00*5 


FOOE 




EOR 




CEON 


00*6 00 


*C1800SC 




BSC 


L 


SAVE2,*- 


30*8 00 


CC00004E 




LDO 


L 


TERM 


U0*A OO 


OCOOOOFE 




STO 


L 


/OOFE 


30*C 00 


4C000067 




BSC 


L 


CEGO 


OC*E 00 


*C000058 


TERM 


BSC 


L 


NOTRO 






t*tt*** ****** »»**»**** 


0050 


0000 




8SS 


E 


CONSTANT 



0050 


OOFF 


SENBI 


OC 




/OOFF 



EXIT POINTS TO AUX LOADER 
tt »*»***** ****** ********* 



0058 00 65000813 
305A 69A9 
0058 08FA 



005C 00 66000000 
305E 00 67000000 

0060 70AC 



TERMINATE EXIT POINT 
WWWM 

/o* 

CEOFF REMOVE DEVICE FROM CE MODE 

NORMAL EXIT POINT 





QQOQ 



0061 70F6 

0062 0000 

0062 0000 

0063 0000 



NOTRO LOX LI 
STX 1 
XIO 

* 

SAVE2 LOX L2 

SAVE3 LOX 13 

* 

HDX 
tt************ ****************** ************ 
♦»»*»*»*««»*»»•♦»*»*»•»»••••»•»•»•**••**»*•♦******* 
»»»*»«•*«»»*»♦♦••»•»»»»♦»••»»••**♦•♦*•************• 
* 

* 

MDX NOTRO 

BSS E 
CESW OC 
STATU DC 



THE FOLLOWING CONSTANTS AND lOCC 
WORDS HAS BEEN PLACED HERE TO AID 
THE CE IN HIS PROGRAMMING EFFORT. 



THIS LOC IS NOT USED 

CE PROGRAM SW SETTING 
DEVICE STATUS WORD 
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8AC23760 
8AC23770 
8AC23780 
8AC23790 

8AC23800 

8AC238ia 

8AC23323 

8AC23839 

8AC23840 

8AC23850 

8AC2335D 

8AC23870 

3AC23860 

8AC23890 

8AC23900 

8AC23910 

8AC23920 

8AC23930 

8AC23940 

8AC23950 

8AC23960 

8AC23970 

8AC23980 

8AC23990 

8AC2*000 

8AC24O10 

8AC24020 

8AC2*030 

8AC2*0*a 

8AC24050 

8AC24060 

8AC2*070 

8AC2*080 

8AC24090 

BAC24100 

8AC2*110 

8AC2*120 

8AC24130 

8AC24140 

8AC24150 

8AC24160 

8AC24170 

aAC24i8a 

8AC2*190 
8AC2*200 
8AC24210 
8AC2*220 
8ACi*230 
8AC2*Z*a 
8AC24250 
8AC24260 
8AC24270 
8AC2*280 
8AC24290 
8AC24300 
8AC24310 
8AC24320 
8AC2*330 
8AC2V340 
8AC24350 
8AC2*360 
8AC24370 
8AC24380 
8AC2*390 
8AC24400 
8AC24410 
8AC24420 
8AC24430 



28FEB66 
415120 



PROG 10 
PACE 



08AC-O 
24 



DATE 
EC NO. 



28FEi>6b 
-415120 



PROG ID 
PACE 



08AC-0 
24A 



N . 



(((((<<((((<( i (((( 1 (((<( 1 ((( 1 (( C ( ( 



IBH MAINTENANCE OiAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROCRAH 
AUX 4TH 1053 



006« 0066 
0065 C910 



0066 0000 



006? 70F0 



0068 
0069 
006A 
006B 



70EF 
70EE 
rOED 
70EC 



006C 





70EB 


0060 





70EA 


006E 





70E9 


006F 





70E8 


0070 





70E7 


0071 





70E6 


0072 





70E5 


0073 





70E* 


0074 





70E3 


0075 





70E2 


0076 





70E1 


0077 





70E0 


0078 





70DF 


0079 





7ooe 


007A 





7000 


0076 





70 DC 


007C 





700B 


0070 





700* 


007E 





7009 


007F 





7008 


0080 





7007 


0081 





7006 


0082 





7005 


0083 





7004 


0084 





7003 


0085 


. 


7002 


0086 





7001 



MRITE DC OUTWO REFERS TO OUTPUT CH/R. 
DC /0100>AR£A»MOOIF lOCC WRITE HORO 

OUTWO DC PLACE OUTPUT CHAR. HERE 



THIS IS THE STARTING POINT OF YOUR 
PHOGKAh. 



EGO HOX 



MOX 

MDX 

nox 

HOX 



NOTRO 1ST LOC OF YOUR PROGRAM 

BRANCH TO LOCATION SAVE2 WHEN 

EXITING FROM YOUR PROGRAM. 

NOTRO 

NOTRO 

NOTRO 

NOTRO 



IBH*I8H«IBH*IBH«IBM*I0M»IBH*IBM«IBH*IBH*IBM*IBH*I 
CORRtCriONS FOR THE FOLLOWING 27 » 
WORDS MUST BE HAOE IN THE CARD * 
NUMBERED I OF THIS AUX PROGRAMS • 
7 CARD OBJECT DECK. • 

IBM*I8H»IBI^*IBM*IBM*IB"»IBI-'*IBM»1BM*IBM*IBM*IBM»I 



HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRD 


HOX 


NOTRO 


HOX 


NOTRD 


HOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRD 


HOX 


NOTRO 


MDX 


NOTRO 


HOX 


NOTRD 


HOX 


NOTRO 


HOX 


NOTRD 


HOX 


NOTRO 


HOX 


NOTnO 


MDX 


NOTRO 


HOX 


NOTRD 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRD 


HOX 


NOTRD 



•IBM*IBM«IBM»IBM*IBM»4BH*IBM*IBH*I8M*IBH*IBH*IBH*I 

• CORRECTIONS FOR THE FOLLOWING 27 • 

• WORDS MUST BE MADE IN THE CARD • 

• NUMBERED 2 OF THIS AUX PROGRAMS • 

• 7 CARD OBJECT DECK. ♦ 
•IBM*JBM*IBM*IBM*ieM»IBM»lBM»IBH»IBM»IBM*lBM*IBM*l 
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8AC24440 

8AC24450 

8AC2446a 

8AC24470 

8AC2448a 

8AC24490 

8AC24S00 

8AC24510 

8AC24S20 

aAC24530 

8AC24540 

8AC24530 

8AC24560 

8AC24570 

8AC24580 

-8AC24590 

8AC24600 

8AC24610 

8AC24620 

SAC24630 

8AC24640 

8AC24650 

3AC24660 

8AC24670 

8AC24680 

3AC24690 

8AC24700 

8AC24710 

8AC24720 

eAC24730 

8AC24740 

8AC24750 

8AC24760 

8AC24770 

8AC24780 

8AC24790 

8AC24800 

8AC24810 

8AC24820 

8AC24830 

8AC24840 

8AC24S50 

8AC24860 

8AC24870 

8AC248S0 

8AC24890 

8AC24900 

8AC24910 

8AC24920 

6AC24930 

8AC24940 

8AC24950 

8AC2.960 

8AC24970 

8AC24980 

8AC24990 

8AC25000 

8AC2S0t0 

8AC25020 

8AC2S030 

8AC2S040 

8AC2S050 

8AC25060 

8AC25070 

SAC25080 

eAC250^0 

8AC2S100 

8AC2SI10 



IBM MAINTENANCE OIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PRCG^'AM-GENERATOR UTILITY PROGRAM 
AUX 4TH 105) 



0087 





7000 


0088 





70CF 


0089 





70CE 


008A 





70C0 


008B 





70CC 


008C 





70CB 


0080 





70CA 


008E 





70C9 


008F 





70C8 


0090 





70C7 


0091 





70C6 


0092 





70C5 


0093 





70C4 


0094 





70C3 


0095 





70C2 


0096 





70CI 


0097 





YOCO 


0098 





70 8F 


0099 





70BE 


009A 





70B0 


009B 





70BC 


009C 





70BB 


0090 





70BA 


009E 





7089 


009F 





70B8 


OOAO 





70B7 


OOAl 





7086 



HOX 


NOTRO 


MOX 


NOTRD 


MOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRD 


HOX 


NOTRO 


MDX 


NOTRD 


HOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRU 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


rtOTRD 


HOX 


NOTRO 



IBH*IBH*IBM*IBM»IBH*IBH»IBM*IBH*IBM» I r"<» I8K*I8M*I 
CORRECTIONS FOR THE FOLcOrflNG 27 * 
k.ORDS MUST BE HAOE IN T-iE CARD * 
NUMBERED 3 OF THIS AJX PROGRAMS » 
7 CARD OBJECT DECK. » 

IBM*lBH»IBM»ieM«IBM«IBM«lBH»IBM»lBM»IBH»IBH»IBM»l 



DATE 
EC NO. 



28FEB66 
415120 



PROC ID 
PACE 



OSAC-0 
29 



00A2 


70BS 


HOX 


NOTRO 


00A3 


7084 


HOX 


NOTRD 


00A4 


7083 


HOX 


NOTRD 


00A5 


7082 


MOX 


NOTRO 


00A6 


70BI 


HOX 


NOTRD 


00A7 


70B0 . 


MOX 


NOTRD 


00A8 


70 AF 


MDX 


NOTRO 


0OA9 


70AE 


MOX 


NOTRO 


OOAA 


70AD 


HOX 


NOTRD 


OOAB 


70AC 


MOX 


NOTRO 


OOAC 


70AB 


HOX 


NOTRO 


OOAO 


70 A A 


HOX 


NOTRO 


OOAE 


70A9 


HOX 


NOTRD 


OOAF 


70A8 


MOX 


NOTRO 


OOBO 


70A7 


MOX 


NOTRO 


GOBI 


70A6 


MOX 


NOTRO 


0082 


70A5 


MDX 


NOTXO 


0083 


70A4 


MOX 


NOTRO 


0084 


70A3 


MOX 


NOTRD 


00B5 


70A2 


HOX 


NOTRD 


00B6 


70 A 1 


HOX 


NOTRO 


0087 


70A0 


HOX 


NOTRO 


OObB 


709F 


MOX 


NOTRO 


00B9 


709E 


HOX 


NOTRO 


OOBA 


7090 


MOX 


NOTRO 


OOBB 


709C 


MOX 


NOTRO 


OOBC 


709B 


MDX 

* 


NOTRO 






• 
•I6H*I6H*IBH*IBH*IB)< 


DATE 


28FEB66 






EC NO. 


415120 
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8AC25120 

8AC2S130 

8AC2S140 

8AC25150 

8AC2S160 

8AC2S170 

8AC25180 

8AC25190 

8AC25200 

8AC25210 

8AC25220 

8AC252J0 

8AC25240 

8AC252S0 

eAC2S26a 

8ACZ5270 

8AC25280 

8AC25290 

8AC25300 

8AC25310 

8AC25320 

8AC25330 

8AC2S340 

8AC25350 

8AC2536a 

8AC2S370 

8AC25380 

8AC25390 

8AC25400 

8AC25410 

8AC25420 

8AC2S430 

SAC2S44a 

8AC254S0 

8AC25460 

8AC2S470 

8AC25480 

8AC25490 

8AC25500 

8AC25510 

8AC2S520 

8AC25S30 

8AC25540 

8AC25550 

8AC25560 

8AC2SS70 

8AC25580 

8AC25590 

8AC2S600 

8AC25610 

8AC2S620 

8AC25630 

8AC25640 

8AC25650 

eAC2S660 

8AC25670 

8AC2S68a 

8AC25690 

8AC25700 

8AC25710 

8AC25T20 

8AC25730 

8AC25740 

8AC25750 

8AC2S760 

8AC25770 

8AC2S780 

8AC25790 



PROG ID 
PACE 



08AC-0 
25« 
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008D 





T09A 


0O8E 





703F 


OOBF 





703E 


OOCO 





7030 


OOCI 





703C 


0002 





703B 


0OC3 





703A 


00C4 





7039 


00C5 





7038 


0OC6 





703T 


0OC7 





7036 


00C8 





7035 


00C9 





703* 


OOCA 





7033 


OOCB 





7032 


OOCC 





7031 


OOCO 





7030 


ooce 





702F 


OOCF 





702E 


0000 





7020 


0001 





702C 


0002 





702B 


0003 





702A 


0004 





7029 


00D5 





7028 


0006 





7027 


0007 





7026 



CORRECTIONS FOR THE FOLLOWING 27 • 
WORDS MUSI BE HADE IN THE CARD ♦ 

NUMBERED ', OF THIS AUX PROGRAMS • 

7 CARD OBJECT DECK. * 

K »I8H*16H*IBM»:BM*IBn»iaM»IBM*I8H»I6H»I8»«*I8H*I 



HDX 


NOTRO 


HDX 


/OOFE 


HDX 


/OOFE 


MDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


^'0x 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


HCX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


MDX 


/OOFE 


MDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOPfc 


HDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


MDX 


/OOFE 



I BH* I B^ I BM» I 8H» I BM» I BM* I BH* I BH* I BH« I BH» 1 BM» I BH»1 
CORRECTIONS FOR THE FOLLOWING 38 * 
WORDS MUST BE MADE IN THE CARO ♦ 

NUMBERED 5 OF THIS AUX PROGRAMS * 

7 CARO OBJECT DECK, • 

IBH*IBM»I8H»ieM*IBM»I8H*IBH»lBM»IBM»IBH»18M*I8M*I 



0008 





7025 


HDX 


/OOFE 


C009 


3 


7024 


HOX 


/OOFE 


OOOA 





7023 


HDX 


/OOFE 


OCDB 





7022 


MDX 


/OOFE 


OOOC 





7021 


HDX 


/OOFE 


0000 





7020 


MDX 


/OOFE 


OOOE 





701F 


HDX 


/OOFE 


OOOF 





701E 


HDX 


/OOFf 


OOEO 





7010 


HOX 


/OOFE 


OOEl 





701C 


HOX 


/OOFE 


0OE2 





70 IB 


HOX 


/OOFE 


00E3 





701* 


t<DX 


/OOFE 


OOE* 





7019 


HOX 


/OOFE 


0OE5 





7018 


HOX 


/OOFE 


OOE 6 





701T 


HOX 


/OOFE 


00E7 


0- 


7016 


HOX 


/OOFE 


00E8 





7015 


HOX 


/OOFE 


0OE9 





701* 


HDX ■ 


/OOFE 


OOEA 





7013 


HOX 


/OOFE 


OOEB 





7012 


HDX 


/OOFE 


OOEC 





7011 


HDX - 


/OOFE 


ooeo 





7010 


HOX 


/OOFE 


OOEE 





700F 


HOX 


/OOFE 


30EF 





700E 


MDX 


/OOFE 


DATE 




28FEBb6 






EC NO. 


415120 







SAC2SS0O 
8AC253ia 
8AC2S820 
8AC2S83a 
8AC25840 
8AC2585a 
8AC25860 
8AC25870 
8AC25SS0 
8AC25390 
8AC25900 
8AC2S910 
8AC25929 
8AC25939 
8AC2«9«0 
8AC25959 
8AC2596IJ 
8AC25970 
8AC2598a 
8AC2S999 
8AC26000 
8AC26010 
SAC26029 
8AC26030 
8AC26049 
8AC260S0 
8AC26069 
8AC26070 
8AC26089 
8AC26099 
0%C261OO 
8AC26110 
8AC26120 
8AC26130 
8AC26149 
8AC261S9 
8AC26160 
8AC26170 
8AC26iaO 
8AC26199 
8AC26200 
8AC26210 
8AC26220 
8AC2«23a 
8AC26240 
8AC26250 
8AC26260 
8AC26279 
8AC26289 
eAC26290 
8AC26309 
8AC26310 
8AC26329 
8AC26330 
8AC26340 
8AC26359 
8AC26360 
8AC26370 
8AC26389 
8AC26399 
aAC26«09 
BAC26410 
8AC26420 
8AC26430 
8AC26440 
eAC26450 
8AC26460 
8AC26470 



PROG 10 
PACE 



OOFO 





7000 




HDX 


/OOFE 










8AC26480 


OOF I 





700C 




HOX 


/OOFE 










SAC26490 


00F2 


U 


700 B 




MDX 


/OOFE 










8AC26500 


0OF.3 





700A 




HOX 


/OOFE 










8AC2&5I0 


0OF4 





7009 




HOX 


/OOFE 










8AC26520 


OOFS 





7008 




HOX 


/OOFE 










SAC26530 


00F6 





7007 




HDX 


/OOFE 










8AC26540 


00F7 





7006 




HOX 


/OOFE 










8AC26S50 


OOFS 





7005 




HOX 


/OOFE 










8AC2&560 


00F9 





7004 




HDX 


/OOFE 










8AC<;6570 


OOFA 





7003 




HDX 


/OOFE 










8AC26S80 


OOFB 





7002 




HOX 


/OOFE 










8AC26590 


OOFC 





7001 




HDX 


/OOFE 










8AC26600 


OOFO 





7000 




HOX 


/OOFE 










8AC26610 








•t »**«***»*>•»**«»»«*•*»***»»*«*««»**»;»**«» «*«***• 


8AC26620 








• 














8AC26630 


OOOD 






QQQQ 


ESU 


/O 


GO 


TO LOADER AT 


/O 


8AC26640 


7007 






NNNN 


ECU 


/70D7 


FC° 


CARO 


LOADER 


AT /35 


8AC266S0 


0813 






wwww 


EOU 


/0813 


SET 


IN LOADER AT 


/0« 


8AC26669 


7035 






TTTT 


ECU 


/7000» 


RETUR-/* 


-1 


'HIS IS 


EOJAL TO 


8AC2&670 








* 






THE 


BRANCH FROa 


THE LOADER 


8AC266ea 








• 






TO 


RETUR 


IN THIS 


PRCGRAM. 


9AC26690 








*»»»»»»•»»»* 


««»^v«*«»»«t**«$«««»»fr«*«*9 9***«»»«$:e««* 


8AC26700 


OOFE 




OOFO 




END 


»-l 


END 


CARD 


NEVER USED 


8AC26710 



08AC-0 
2* 



DATE 
EC NO. 



28FEB66 
415120 



PROC 10 
PAGE 



08AC-0 
26A 



( ( ( ( C 1, 1 ( ( (. ( ( < ( ( ( < ( 1 ( ( ( ( ( 1 ( ( ( 11 1 1 1 1 



IBN MAINTENANCE DIAGNOSTIC PROGRAH FOR THE 1800 SYSTEM 



AUX PROGRAM GEf.ERATOR UTILITY PROGRAM 
AUX 4TH 10S3 



PART NO. 2t96«S5 
PAGE 27 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 


AREA 


0800 


0053,0055,0057,0065 


CEGO 


0067 


004C 


CEOFF 


0056 


0038,0058 


CEON 


005* 


003A,00*S 


CESW 


0062 


00*1 


0SW52 


0052 


0036. 003D 


MOOIF 


OOJO 


0053.0055,0057,0065 


NNNN 


7007 


00^2 , „» „ 


NOTRD 


0058 


00*3,00'i£,006l,006 7,005 3,0059,006A,0068,036C,0040t 
006E,006F, 00 70, 00 71, 0072,0073, 007*., 0075, 0076,007T, 
0078, 0079, 00 7A,007B,007C. 0070, 00 7E,007F, 0080 ,0081. 
0082, 0083, 008*, 085, 0085, CO 87. 00 33, 0089. 008 A, 0088, 
00 8C .0080,0086 ,008F , 0090 , 0091 ,0092 ,0093 ,009*. 0095, 
0096. 0097, 0098, 0099, 009A,009B, 0090,0090, 009E,009F, 
OOAO,O0A1.0OA2,OOA3,0OA*,00A5,00A5,O0A7.00A8,OOA9» 
O0AA.OOAB,00AC,0CA0,0OAF,C0AI-,0080,00B1.00B2.OOB3» 
00 B*,00B5, 001)6,008 7, 008 8. 0039, OOBA, 0088, OOBC, 0080 


OUTWO 


0066 


006* 


QQQQ 


0000 


0060 


RETUR 


oa3A 


COFE 


SAVE2 


005C 


0038, C0*6 


SAVE3 


005E 


00 3C 


SENBI 


0050 


00 3F. 00*0, 00*2 


STATU 


0063 


00 3E 


TERM 


004E 


00*8 


TTTT 


7035 


0056 


WRITE 


006* 




WHMW 


0813 


Q058 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 105*/105S 



028C 
1800 



A8S 

ORG 



/36 



»»»♦«»»«•»»♦»»»»»»»»»»*»♦»»»»»♦«»*»»«»*♦»»*»**»•» 
EA EQU /I800 1ST 105*755 AREA CODE 

IF THIS PROG IS TO BE USE3 FOR A MACH 
WITH A DIFF AREA COOE AIL THE LCCATIWJS VHICH 
REFER ID THE LABEl AREA IN SYISCL TABLE MUST 

BE CHANGED BY HEX CORRECTION CAR3S TO OBTAIN A 
."OOIFIED AUX 8-8 OBJECT DECK. SEE AUX C£ PROG 
GENERATOR WRITE-UP FOR PROCEDURE. 
»»»»»•»»**»»»»♦»»»»*»♦»*»*»»•*»»»»*•*•»**•♦•*♦*♦♦ 



105*/55 SKELETON PROGRAM 
I SEE AUX CE PROG GENERATOR 
* WRITE-UP FOR USE P^'aCECUREI 

THIS PROG CAN NOT BE LOADED FROM PAPER TAPE 



• * 

AR 

* 
* 

* 

* 

* 
* 

* 
« 



* 
****** 



♦IBM* I 

* 
* 

* 
•IBM* I 

* 
* 



PURPOSE 

THE PURPOSE OF THIS PR3GRAM IS 
TO PROVIDE A SKtLETCJ PROGRAM 
UPON WHICH THE Ce CA'J WRITE AN 
AUX STORAGE PROGPAH. 



GENERAL INSTRUCTIONS 

CE SWITCH SETTINGS 

OOOOllll CE SERVICE STOP 

llllllll TERMINATE PR3GRAM 

ALL OTHER COMSINATIONS ARE STORED 

* AT THE LOCATION CESW FOR 

* POSSIBLE USE BY THE CE TO 

* CONTROL HIS PROJRAN 



»»»t«tt»*»tte**»*» *»***•*****»»» 



;»*«**•* 



BM*IBM*IBM*IBK*IBM*IB'1*IBM*I5«'*ieM»I8H*lBM*I 
CORRECTIONS FOR THE FOLLOWING 27 • 

WORDS MUST BE MADE IN THE CARO • 

NUMBERED X OF THIS AUX PftOGRAHS • 

7 CARO OBJECT DECK. ♦ 

8H»1BH*IBM*IBM»1BH*ISH»IBM»:3H»1 5M*I BM»IBM»I 



AUX PROG ENTRY POINTS 
••»*»****•**********• 



DATE 
EC NO. 



28FE866 
*15120 



PROC ID 
PAC£ 



08AC-0 
21 



0036 

0037 

0038 

0039 



003A 
0038 



DATE 
EC NO. 



C018 
DOFO 

COlO 
DOCA 



0819 
6A21 



to 

STO 

LO 
STO 



RETUR 



XIO 
STX 



1ST PASS ENTRY 
*****•*•*****• 

DSW52 RESTORE LCC MCE 

/35 ♦ IN AUX LOADER 

CEOFF PLACE BRANCH 

/O* • TO RETUR LAbEL 

ALL BUT 1ST PASS ENTRY POINT 
*****»**•*••*•***•*•*•»*•*•• 
CCON SET DEVICE !•» CE MODE 

2 SAVE2»l SAVE INOcX REGISTER 2 



PART NO. 2196*SS 
PAGE 27* 



8AC26720 

8AC26730 

8AC267*0 

aAC26759 

8AC26769 

8AC267 70 

8AC2578a 

8AC26793 

8AC26800 

8AC26810 

8AC26820 

8AC26833 

8AC268*0 

8AC26850 

8AC26863 

8AC26870 

8AC26S3} 

8AC2639J 

8AC26900 

8AC26910 

8AC26920 

8AC26939 

8AC269*0 

8AC26950 

8AC26960 

8AC25970 

8AC269a3 

8AC26990 

JAC27000 

8AC27010 

8AC2 7020 

8AC27030 

8AC270*0 

8AC27050 

8AC2 7060 

8AC2 70 70 

8AC270S0 

8AC27099 

8AC27100 

8AC271tO 

8AC27120 

8AC27130 

8AC271*0 

8AC271SO 

8AC27160 

8AC27170 

8AC27180 

8AC27190 

8AC27200 

8AC27219 

8AC2722a 

8AC27230 

8AC272*0 

6AC27250 

8AC27260 

8AC27270 

8AC27280 

8AC27290 

8AC27300 

8AC27310 

8AC27320 

8AC27330 

8AC273*0 

8AC2735l> 

8AC27360 

8AC27370 

flAC27380 

8AC27390 



28FEB66 
*15t20 



PROG 10 
PAGE 



3 

U 



08AC-0 
27A 



'• \ 



C (( C ((((((((((((_((<(((((((((( c t ( ( 



tBI MAINT£NANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



OCRA 



AUX PROGRAM GENERATOR UTILITr PROGRAM 
AUX 105V105S 



003C 

0030 

003E 

D03F 

3040 

0C41 

30*2 

3043 

00A5 

3046 00 

3048 00 

004A 00 

















00 





6B22 

081^ 

0024 

0810 

EOOF 

0020 

FOOD 

4C180058 

FOOE 

4C18005C 

CC00004E 

DCOOOOFE 



004C 00 4C00006C 
304r 00 -iCOOOOSS 



OOSO 
0050 



0000 
OOFF 



0051 





0760 


0052 





7007 


3053 





IFOl 


0054 





OOFO 


3055 





1801 


0056 





7035 


0057 





1800 



3058 00 65000813 
005A 69A9 
3050 08FA 



005C 00 66000000 
305E 00 67000000 

0060 70AC 



0061 
0062 

0062 

0063 



70F6 
0000 
0000 
0000 



0064 006B 



STX 
XIO 
STO 
XIO 

AND 
STO 
EOR 
BSC 
EOR 
BSC 
LOO 
STO 

* 
TERM 



SAVE3*1 

DSW52 

STATU 

SENBl 

SEN3I 

CESW 

SENBt 

NOTRO,*- 

CEON 

SAVE2t*- 

TERM 

/OOFE 



SAVE INOEX REGISTER 3 
SE'.SE DEVICE STATUS 
SAVE DEVICE STATUS 
SE'.SE CE PROG SU TO ACCUM 
BLCCK OUT PROG SEL SM 
SAVE CE PROG SW SETTINGS 

5R TERMINATE PROGRAM 

BR SERVICE STOP 

SET TERHINATOR BR AT END 

* CF AUX CORE AS A SAFETY 

• PRECAUTION 



BSC 

BSC 



BSS 

SENBI DC 

*I8M»!6H*l 



*IBH*IBM*I 

* 

OC 
0SH52 OC 

OC 
CEON DC 

OC 
CEOFF DC 

DC 



L CEGO BR TO 00 IT YOURSELF PROG 

L NOTRO TtR«INATCR BRANCH 

CONSTANTS ANO/CR lOCC WOROS 
E 

/OOFF TER-IINATOR CONSTANT 



BK»1BM*I8M*18K*IS''«IB«*I8'<»IBM*IBH*IBM*I 
CORRECTIONS FCR THE FOLLOWING 27 • 
WORDS MUST BE MADE IN THE CARD » 

NUMBERED OF THIS AUX PROGRAMS * 

7 CARD OBJECT DECK. * 

BH»IBM»IBM*IBH*I£M->I3M*IBH»IBH*I8«*IBM»I 



NOTRO LOX 
SIX 
XIO 

• 

• 

SAVE2 LOX 

SAVE3 LOX 

HDX 

* 

* 

HOX 
BSS 

CESW OC 

STATU DC 

• 

URITE OC 



/0760 SEVSE CE SWITCHES 

NNNN 

/0701+AREA RESET DEVICE STATUS lOCC 

/OOFO CE SERVICE STOP CONST 

/OOOl^AREA CE 0"* WORO 

TTTT 

/0000*AREA CE OFF WORO 

*t»^tt»t*f * *t 9 1* ******** *t'**tt»*ttt»» 

EXIT POINTS TO AUX LOADER 
************************* 

TERMINATE EXIT POINT 
LI WWWW 
1 /04 

CEOFF RECOVE DEVICE FROM CE MODE 

NORMAL EXIT POINT 
L2 
L3 

0000 
************************************ 
***************************************** 
***************************************** 

THE FOLLOWING CONSTANTS AND lOCC 
WOROS HAS BEEN PLACED HERE TO AID 
THE CE IN HIS PROGRAMMING EFFORT. 



NOTRO 




OUTHD 



THIS LOC IS NOT USED 

CE PROGRAM SU SETTING 
DEVICE STATUS WORD 

REFERS TO OUTPUT CHAR 



PART NO. 21964SS 
PAGE 29 



eAC2740a 

8AC27410 

8AC27420 

8AC27430 

8AC27V40 

8AC27*50 

8AC27460 

eAC27470 

SAC27480 

8 AC 2 7490 

8AC27500 

8AC27S10 

8AC27520 

8AC27S30 

8AC27S40 

8AC275S0 

8AC27560 

8AC2T570 

8AC27580 

8AC27S90 

8AC27600 

8AC27610 

8AC27620 

8AC27630 

8AC27640 

SAC27650 

8AC2 7660 

8AC27670 

8AC27680 

8AC27690 

8AC27700 

8AC27710 

8AC27720 

8AC27730 

8AC27740 

8AC27750 

8AC27760 

8AC277TO 

8AC27780 

8AC27790 

8AC27800 

8AC27810 

8AC27820 

8AC27830 

8AC27840 

8AC2 7850 

SAC27860 

6AC27870 

8AC27880 

8AC27890 

8AC27900 

8AC27910 

8AC27920 

8AC2793a 

8AC27940 

8AC279S0 

eAC27960 

8AC27970 

8AC27980 

8AC27990 

8AC28000 

8AC23010 

SAC23020 

8AC2B030 

8AC28040 

8AC2e050 

8AC28060 

8AC28070 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1054/1055 



PART NO. 21964SS 
PACE 28* 



DATE 
EC NO. 



28FEB66 
415120 



PROG 10 
PAGE 



08AC-a 
2B 



0065 


1900 




DC 


/0100*AREA lOCC WRITE WORO 


8AC28080 








• 






8AC28090 




0066 


006A 


READ 


DC 


INWO REFERS TO INPUT WO LOC. 


8AC28100 




0067 


lAOO 




DC 


/0200«^AR£A lOCC READ WORO 


8AC2S110 
8AC23120 




3068 


70EF 


CTRL 


WOX 


NOTRO THIS LOC IS NOT USED 


8AC28130 




0069 


ICIO 




DC 


/0410*AREA lOCC COSTROL .iORD 


8AC23140 
8AC231S9 




006A 


0000 


INWO 


OC 


LOCATION OF CHAR READ 


8AC23t60 




006S 


0000 


OUTWO DC 


LOCATION OF OUTPUT CC«»M^'ia 


8AC28170 








*************************************************** 


8AC23180 














8AC28190 














8AC28200 








*I8M« 


IBH»IBH»IBM*IBM»I8M*IBH»IB'<»ieH»IBH»IPH»IBM*I 


8AC28210 












CORRECTIONS FOR THE FOLLOWING 27 • 


8AC28220 












WOROS MUST BE HADE IN THE CARD * 


3AC28230 












NUMBERED 1 OF THIS AUX s-ROGRAMS * 


8AC/-8240 












7 CARD OBJECT DECK. ♦ 


3AC23250 








♦ IBM* 


ieM*IB«*IBM*IBH»IBH*I8H*IBH»IBH*IB'<»IBM»IBM»l 


6AC23260 














8AC282/0 














8AC28280 














8AC23290 














8AC28300 














8AC283I0 












THIS IS THE STARTING POINT OF YOUR 


8AC2a320 












PROGRAM. 


8AC23330 
8AC23340 
8AC23350 
8AC28360 
8AC23370 




305C 


70E8 


CEGO 


HDX 


NOTRO 1ST LOC OF YOUR PROGRAM 
BRANCH TO LOCATION SAVE2 WHEN 
EXITING FROM YOUR PROGRAM. 


8AC28380 
8AC28390 
8AC28400 




3 060 


70EA 




HDX 


NOTRO 


8AC28410 




006E 


70E9 




HOX 


NOTRO 


8AC28420 




OOiF 


70E8 




MDX 


NOTRO 


8AC28430 




0070 


70E7 




MOX 


NOTRO 


8AC23440 




0071 


70E6 




MDX 


NOTRO 


8AC28450 




3072 


70E5 




MDX 


NOTRO 


8AC28460 




0073 


70E4 




MOX 


NOTRO 


8AC28470 




3074 


70E3 




MOX 


NOTRO 


8AC23480 




0075 


70E2 




MDX 


NOTRO 


8AC28490 




0076 


70E1 




MOX 


NOTRO 


8AC28500 




0077 


70E0 




HOX 


NOTRO 


8AC2S510 




0078 


700F 




MDX 


NOTRO 


8AC28520 




0079 


70DE 




MOX 


NOTRO 


8AC28530 




007A 


7000 




MDX 


NOTRO 


8AC28540 




0078 


70DC 




HOX 


NOTRO 


8AC23550 




007C 


700B 




MDX 


NOTRO 


8AC2S560 




0070 


700A 




MOX 


NOTRO 


8AC2S&70 




007E 


7009 




MOX 


NOTRO 


8AC28S80 




007F 


7008 




MOX 


NOTRO 


8AC28590 




0080 


70DT 




MDX 


NOTRO 


8AC28600 




0081 


70D6 




MOX 


NOTRO 


8AC28610 




0082 


7005 




MOX 


NOTRO 


BAC28620 




0083 


7004 




MOX 


NOTRO 


8AC28630 




0084 


70O3 




MOX 


NOTRO 


8AC28640 




3085 


7002 




HDX 


NOTPO 


8AC286S0 




0086 


7001 




MDX 


NOTRO 


8AC26660 
8AC28670 

8AC28630 








>IBH» 

> 
k 
k 


IBM*IBM» 


IBM*IBM*IBH*IBH»IBM»IBH*IBH*I8M»I8H»I 
CORRECTIONS FOR THE FOLLOWING 27 * 
WORDS MUST BE MADE IN THE CARD » 
NUMBERED 2 OF THIS AUX PROGRAMS * 
7 CARD OBJECT DECK. • 


8AC28690 
8AC28700 
8AC28710 
8AC2872a 
8AC28730 


V ■ 






► IBM* 


IBM*|BH*IBH*IBM»IBM*IBH*IBM*IBH*IBM*IBM*IBM*I 


8AC28740 




- 




( 






8AC28750 




DATE 


28FE666 






• 


PROG 10 


08AC-0 


EC NO. 


415120 


. 






- PAGE 


28* 



'^ 



I 



t, ( 



(( t (<((<<( I ((( ( 



C C ^ 1 . 



t' 1 



(~" C "" ( 



t ( < C ( ( 1 ( ( 1 ( ( p( C ( ( 



IBM MAINTENANCE 01 AGNOSTICPROGRAH FOR THE 1800 SVSTEH 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 105*/ 1055 



0087 
0038 

0089 
309A 
00?B 
003C 
0080 
008E 
008F 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 
009A 
009B 
009C 
009D 
009E 
009F 
OOAO 
00«1 



70D0 
70CF 
70Ce 
70C0 
70CC 

7oca 

70CA 
70C9 
70C8 
70CT 
70C6 
70C5 
70C* 
70C3 
70C2 
70CI 
TOCO 
70BF 
70BE 
70B0 
70BC 
70BB 
708 A 
70B9 
70 B8 
70B7 
70 86 



00A2 


70B5 


0OA3 


7084 


00A4 


70B3 


oo^5 


7082 


0OA6 


70B1 


00A7 


70BO 


0OA8 


70AF 


0OA9 


70AE 


OOAA 


70AO 


OOAB 


70AC 


OOAC 


70AB 


OOAO 


70AA 


OOAE 


70A«» 


OOAF 


70A8 


OOBO 


70A7 


OOBl 


70A6 


0OB2 


70A5 


00B3 


70A4 


0084 


70A3 


0085 


70A2 


00B6 


70AI 


0087 


70A0 


0088 


709F 


0089 


709E 


OOBA 


7090 


DOBB 


709C 


OOBC 


7098 



MOX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


fOX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


fOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


HDX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


HDX 


NOTRO 



• I6M*IBM*I8M*I8H*IBM»IBM»IBM»IBH*IBH-»IBM»IBH*IBM*I 

• -CORRECTIONS FOR THE FOLLOWING 27 • 

• WORDS MUST BE MADE IN THE CARD * 
« NUMBERED 3 'OF THIS AUX PROGRAMS * 

• 7 CARD OBJECT DECK. ♦ 
»IBH*IBH»18M»IBM»I8M*I8M»IBH»IBM»IBM»IBH»IBH*IBM»1 



HDX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


HDX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


HOX 


N0TB3 


HOX 


N01K0 


HOX 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


HDX 


NOTRO 



•IBM»IBH»IBH»I8N»IBM»I6M»IBM»IBM*IBH»IBM»IBH*IBH*I 



PART NO. 21964SS 
PACE 29 



8AC28760 

8AC28770 

8AC2878d 

8ACZ8790 

8AC28800 

8AC28310 

8AC28820 

8AC28330 

8AC28^40 

8AC28850 

8AC2386a 

8AC2837a 

aAC2a880 

8AC2S890 

8AC28900 

BAC28910 

8AC28920 

8AC28930 

8AC28940 

8AC289S0 

8AC28960 

8AC28970 

8AC28980 

8AC23990 

8AC29000 

8AC29010 

8AC29020 

8AC29030 

SAC29040 

8AC29050 

8AC29060 

8AC29070 

8AC290S0 

8AC29090 

8AC29100 

8AC29110 

8AC29120 

SAC29130 

8AC29140 

BAC29150 

8AC29160 

8AC29170 

8AC29180 

8AC29190 

8AC29200 

8AC29210 

8AC29220 

8AC29230 

8AC29240 

8AC29250 

8AC29260 

8AC29270 

eAC29280 

8AC29290 

8AC29300 

BAC29310 

8AC29320 

8AC29330 

8AC29340 

eAC293S0 

8AC29360 

3AC29370 

eAC293aO 

8AC29390 

8AC29400 

8AC29410 

8AC29420 

8AC29430 



DATE 
EC NO. 



28FEB66 
415120 



PROC 10 
PAGE 



08AC-0 
29 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEH 

AUX PROGRAH GENERATOR UTILIIV PROGRAM 
AUX 10S4/10SS 



OOBO 





709A 


003E 





7099 


DOBF 





7098 


OOCO 





7097 


OOCl 





7096 


00C2 





7095 


O0C3 





703A 


00C4 





7039 


00C5 





7038 


00C6 





7037 


0OC7 





7036 


OOCB 





7035 


00C9 





7034 


OOCA 





7033 


OOCB 





7032 


OOCC 





7031 


OOCO 





7030 


OOCE 





702F 


OOCF 





702E 


0000 





7020 


0001 





702C 


0002 





702 B 


00D3 





702A 


0004 





7029 


0005 





7028 


0006 





7027 


0007 





7026 



0OD8 
00D9 
OODA 
OODB 
OOOC 
0000 
OOOE 
OODF 
OOEO 
OOEl 
00E2 
0OE3 
O0E4 
0OE5 
00E6 
00E7 
00E8 
00E9 
OOEA 
OOEB 
OOEC 
OOEO 
OOEE 
OOEF 



7025 
7024 
7023 
7022 
7021 
7020 
701F 
701E 
7010 
70 IC 
701B 
701A 
7019 
7018 
7017 
7016 
7015 
7014 
7013 
7012 
7011 
7010 
TOOF 
700E 



CORRECTIONS FOR THE FOLLOWING 27 ♦ 
hOROS MUST BE MADE IN THE CARD ♦ 
NUMBERED 4 OF THIS AUX PROGRAMS » 
7 CARO OBJECT DECK. * 

IBH»I3M»IBK*I8«<»I8M»IBM*IBM»IBM»IBH*IBH»IBH*IBH»I 



HDX NOTRO 

MDX HOTRO 

MDX NOTRO 

yOX KOTRO 

MOX NOTRO 

MDX NOTRO 

MDX /OOFE 

MOX. /OOFE 

MDX /OOFE 

MOX /OOFE 

MOX /OOFE 

MOX /OOFE 

HOX /OOFE 

FOX /OOFE 

MDX /OOFE 

HDX /OCFE 

HOX /OOFE 

MDX /OOFE 

•»0X /OOFE 

MOX /OOFE 

MOX /OOFE 

HOX /OOFE 

MDX /OCFE 

MOX /OOFE 
HOX ^ /OOFE 

MOX /OOFE 

HOX /OOFE 

ISM»18H*IBM*IBM*IBH»IBK»IBH»IBM»IBM*I 
COSRECTIONS FOR THE FOLLOWING 38 • 
.<0?DS MUST BE MADE IN THE CARD * 
NJ-SEREO 5 OF T«IS AUX PROGRAMS * 
7 CARD OBJECT DECK. * 

IEM»IBH»IBH»IBM»IBH»IBM*IBH*1BM»I8M*I 



* 
♦IBH*I9K*I3M» 

»IBM»IBH*ia»'» 

* 

• 

MOX 

MOX 

MDX 

MOX 

MOX 

MOX 

HOX 

MDX 

HOX 

HDX 

MOX 

MOX 

MDX 

MOX 

MOX 

HOX 

MOX 

MOX 

MOX 

HOX 

MDX 

HOX 

MOX 

MOX 



/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OCFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OCFE 

/OOFE 

/OOFt 

/OOFE 

/OOFE 

/OOFE 



PART NO. 219645S 
PAGE 29* 



8AC29440 

8AC294S0 

8AC29460 

8AC29470 

3AC29480 

8AC29«90 . 

8AC29500 

8AC29510 

8AC29520 

8AC29530 

8Ar295'>0 

8AC29550 

8AC29560 

8AC29570 

8AC29580 

8AC29590 

8AC29600 

8AC79610 

8AC29620 

8AC29630 

8AC29640 

8AC29650 

8AC29660 

eAC29670 

eAC29680 

8AC29690 

aAC29700 

8AC29710 

SAC29720 

8AC29730 

8AC29740 

8AC29750 

8AC29760 

8AC29770 

8AC29780 

8AC29790 

8AC29800 

8AC29810 

8AC29820 

8AC29830 

8AC29840 

8AC29850 

8AC29860 

8AC29870 

8AC29880 

BAC29890 

8AC29900 

8AC29910 

8AC29920 

8AC29930 

8AC29940 

8AC29950 

8AC29960 

8AC29970 

8AC29980 

8AC29990 

8AC30000 

8AC30010 

8AC30020 

8AC30030 

8AC300«O 

8AC30050 

8AC30060 V 

8AC3007O 

8AC30080 

8AC30090 

8AC30100 

8AC30I 10 



DATE 
EC NO. 



28FEB66 
415120 



PROG 10 
PAGE 



08AC-0 
29* 
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t8H MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX lOSA/lOSS 



f 



( 



PART NO. 21964SS 
PACE 30 



OOFO 





7000 


OOFl 





700C 


00F2 





7008 


OOF 3 





700A 


OUF« 





7009 


OOFS 





7008 


00F6 





7007 


00F<' 





7006 


30F8 





7005 


00F9 





7004 


OOF A 





7003 


OOF 8 





7002 


OOFC 





7001 


OOFD 





7000 


0000 






7007 






0813 






703S 







OOFE 



OOFO 





MOX 


/OOFE 










8AC30I20 




HOX 


/OOFE 










8AC30130 




MOX 


/OOFE 










8AC30U0 




MOX 


/OOFE 










8AC301S0 




MDX 


/OOFE 










8AC30160 




MOX 


/OOFE 










8AC301T0 




MDX 


/OOFE 










8AC30180 




MOX 


/OOFE 










8AC30190 




MOX 


/OOFE 










8AC30200 




MDX 


/OOFE 










8AC30^10 




MDX 


/OOFE 










8AC30220 




MDX 


/OOFE 










8AC30230 




MDX 


/OOFE 










8AC30240 




MOX 


/OOFE 










8AC302S0 


*****»*********^»***»*tttt*****^**»*»***^t**t^t.»^t^» 


8AC30260 


* 














8AC302T0 


QOQQ 


EQU 


/O 


CO 


TO LOADER AT 


/O 


8 AC 302 80 


NNNN 


EQU 


/70D7 


FOR 


CARD 


LOADER 


AT /35 


8AC30290 


HWHW 


EQU 


/0813 


SET 


IN LOADER AT 


/04 


8AC30300 


TTTT 


EQU 


/7000+RETUR-/* 


-1 


This IS 


EQUAL rO 


8AC30310 


« 






THE 


BRANCH FROM 


THE LOADER 


8AC30320 


* 






TO 


lETUR 


IN THIS 


PROGRAM. 


8AC30330 


**«»«»** **«*»«»*e««*»*«t 


**»»«**«»**»**««***««*««,«« 


8AC30340 




END 


*-l 


END 


CARD 


NEVER USED 


8AC30350 



_ i 



( ( ( ( i ( ( i ( 11 



I8ttHAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



^ .. \^J V.J^ V '' * 



8ttHAI 



PART NO. 2I964SS 
PACE 30A 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1054/10S5 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 




AREA 


1800 


0053,0055,0057,0065,0067,0069 




CEGO 


OO&C 


004C 




CEOFF 


0056 


0038,0058 




CEON 


0054 


003A,00« 




CESM 


0062 


0041 ^ - 




CTRL 


0068 






DSW52 


0052 


0036,0030 




INWO 


006A 


0066 




NNNN 


70D7 


0052 




NJTRO 


0058 


0043, 004E, 0061, 0068, 006C, 0060 t006E 


.O06F, 0070,0071, 






0072,0073,0074,0075,0076,00 77,0075 


,C079,007A,007B, 






00 7C,0070,007E,007F, 0080, 008 1,0082 


.0033, 00i4, 0085, 






0v-86,O087,008 8,0089,008A,OO8B,008C 


.00SD.O08E,0O8F, 






0090, 009 1,0092, 0093, 0094, 0095, 0096 


.0097,0398,0099, 






009A,009B,009C,009D,009E.CC9f ,C0A0 


.CQA1,00A2,00A3, 






OOA4,0OA5,00A6,0OA7,O0A8,O0A9,0OAA 


,C3i3.O0AC,00A0, 






00 AE.OOAF.OOBO, 0081,003 2, 008 3,008'. 


,C:35. 0036,0087, 






OOB 8, 0089, OOBA, 0088, ODBC, 0030, OOSE 


.OOiF.OOCO.OOCl, 






00C2 




OUTWO 


0063 


0064 




0Q9Q 


OOOO 


0060 




READ 


0066 






RETUR 


003A 


OOFE 




SAVE2 


005C 


0038,0046 




SAVE3 


005E 


00 3C 




SENBI 


0050 


003F, 0040, 0042 




STATU 


0063 


00 3E 




TERM 


004E 


0048 




TTTT 


7035 


0056 




WRITE 


0064 






uwww 


0313 


0058 





DATE 
EC NO. 



28FEB66 
41S120 



PROC 10 08AC-9 
PACe 30 



DATE 28FEB66 
EC NO. 415120 



PROG 10 
PACE 



06AC-0 
30* 



i / .\l.> 



< v^ 



u 
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IBM MAINTENANCE OIACNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILIT% PROGRAM 
AUX 1442 



PART NO. 21964SS 
PACE 31 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FDR THE 1800 SVSTEH 



AUX PROGRAM GENERATOR UTILlTr PROGRAM 
AUX 1442 



PART NO. 2m455 
PACE 31* 











A3S 




8AC30360 




02BC 








ORG 


/36 


8AC30370 
8AC30380 








*••«*•*«****»»**»«***««*»('**>****••**•»**•*•***»••« 


8AC30390 




1000 




AREA 


EOU 


/lOOO 1ST 1442 AREA CODE 


8 AC 30400 












IF 


THIS PROG IS TO BE USED FOR A MACH 


SAC 30410 










WITH A OIFF AREA CODE ALL THE LOCATIONS WHICH 


8AC30420 










REFER TO 


THE LABEL AREA IN SYMBOL TABLE MUST 


8AC30430 










BE 


CHANCED 8V HEX CORRECTION CARDS TO OBTAIN A 


8AC3044C 










HOOIFIEO 


AUX 8-8 OBJECT DECK. SEE AUX CE PROG 


8AC30450 










GE* 


ERATOR 


WRITE-UP "^OR PROCEDURE. 


8AC30460 








••*7«****«** *»•**«*«*»»*»***«»»««*««•« •*•••••»*»•»* 


8AC30470 
















8AC30480 
















8AC30490 














1442 SKELETON PROORAM 


8AC30500 














•SEE AUX CE PROG GENERATOR 


8AC30510 














• WRITE-UP FOR USE PROCEDUREI 


8AC30520 














«>*«***v»*»*t«***«*v***««**»»* 


8AC30530 










THIS PROG 


CAN NOT BE LOADED FROM PAPER TAPE 


8AC30540 










- 




PURPOSE 

THE PURPOSE OF THIS PROGRAM IS 
10 PROVIDE A SKELETON PROGRAM 
UPON WHICH THE CE CAN WRITE AN 
AUX STORAGE PROGRAM. 


8AC30550 
8AC30560 
8 AC 305 70 
8AC30580 
8AC30590 
8AC30600 
8AC30610 
8AC30620 
8AC30630 
8AC30640 
8AC306S0 








ft ^ 






GENERAL INSTRUCTIONS 

CE SWITCH SETTINGS 

OOOOllll CE SERVICE STOP • 
limm TERMINATE PROGRAM 
ALL OTHER COMBINATIONS ARE STORED 

* AT THE LOCATION CESW FOR 
» POSSIBLE USE BY THE CE TO 

* CONTROL HIS PROGRAM 


8 AC 30660 
8AC30670 
8AC30680 
8AC30690 
8AC30700 
8AC30710 
8AC30720 
8AC30730 
8AC30740 
8AC30750 








•••••••••*••*•****•»»*****«»**««•*•••••»••••** 


SAC30760 
















8 AC 30770 
















8AC30780 








• IBM* 


IBH*IBH*IBM»IBM»IBH»IBH*IBM*IBH»IBM*IBH»IBH*I 


8AC30790 














CORRECTIONS FOR THE FOLLOWING 27 • 


8AC30800 














WORDS MUST BE HADE IN THE CARD • 


8AC30R10 














NUMBERED X OF THIS AUX PROGRAMS • 


8AC30820 














7 CARD OBJECT DECK. » 


8AC30830 








»IBH*I8M*IBH*18M*IBM»IBH»IBH*IBM*IBH*IBM»IBM»!BH»I 


8AC30840 
















8AC30S50 
















8AC30860 
















8AC30870 














AUX PROG ENTRY POINTS 
1ST PASS ENTRY 


8AC30880 
8AC30890 
8AC30900 
8AC30910 
8AC30920 
8AC30930 




3036 


COIB 






LO 


DSW52 RESTORE LOC NICE 


8AC30940 




3037 


OOFO 






STO 


/35 • IN AUX LOADER 


8AC30950 
8AC30960 




0038 


COlO 






LO 


CEOFF PLACE BRANCH 


8AC30970 




3039 


COCA 


V 




STO 


/04 • TO RETUR LABEL 
ALL BUT 1ST PASS ENTRY POINT 


8AC30980 
8AC30990 
8AC31000 
SAC31010 




.'»03A 


0819 


RETUR 


XIO 


CEO\ SET DEVICE IN CE MODE 


8AC31020 




003B 


6A21 






STX 


2 SAVE2«1 SAVE INDEX REGISTER 2 


8AC31030 




DATE 


28FEB66 


- 








PROG ID 


08AC-0 


EC NO. 


415120 


•. 








PACE 


31 



003C 


6B22 




STX 


3 


SAVE3»1 


003D 


0S14 




XIO 




DSW52 


903E 


0024 




STO 




STATJ 


003F 


0810 




XIO 




SEN3I 


0O4O 


EOOF 




AND 




SENBI 


3041 


0020 




STO 




CESM 


0042 


FOOD 




EOR 




SENBI 


3043 00 


4C180058 




BSC 


L 


NOTROt* 


3045 


FOOE 




EOR 




CEON 


0046 00 


4C18005C 




BSC 


L 


SAVE2,* 


0048 00 


CC00004E 




LOO 


L 


TERM 


004A 00 


DCOOOOFE 


* 
• 


STO 


L 


/OOFE 



304C 00 4C00006E 
004E 00 4C000058 



0050 
0050 



0000 
OOFF 



0051 





C760 


0052 





70D7 


3053 





1701 


3054 





OOFO 


0055 





tool 


0056 





7035 


0057 





1000 



0058 00 65000813 
005A 69A9 
OOSB 08FA 



005C 00 66000000 
305E 00 67000000 

3060 70AC 



0061 
0062 
0062 
0063 



70F6 
0000 
0000 
0000 



0364 00D6 



SAVE IN3EX REGISTER 3 
SENSE DEVICE STATUS 
SAVE DEVICE STATUS 
SEVSE CE PROG SW TO ACCUM 
cLCCK OUT P^OU SEL SW 
SAVE CE PROG t>i SETTINGS 

BR TERMINATE PROGRAM 

BR SERVICE STOP 

SET TERMINATOR BR AT END 

• CF AUX CO^E AS A SAFETY 

• PRECAUTIO"* 



BSC C CEGO BR TO DO IT YOURSELF PROG 

TERM BSC L ^OTR'D TERMINATOR BRANCH 

♦ CONSTANTS A'.D/OR lOCC WORDS 
BSS E 

SENBI DC /OOrF TERMINATOR CONSTANT 

« 
»IBM»IBH*IB«*IBH*I8H*IB"»I5"*IBH»IBH*IBH»IBH*18M*I 

* CQRRECTICVS FCR THE FOLLOWING 27 • 

• WORDS MUST BE "ADE IN THE CARD • 

♦ NUMBERED C^ THIS AUX PROGRAMS » 

* 7 CARD OBJECT DECK. » 
*IBM*IBH*ISK»IBM«I8>'.*IEI<»IBH»1B'4*IBM*13H»IBM*I8M*I 
* 

DC /0750 SENSE CE SWITCHES 

DSW52 DC NNNN 

DC /0701*ARE* RESET DEVICE STATUS lOCC 

CEON DC /OOFO CE SERVICE STOP CONST 

DC /0001+AREA CE ON WORD 

CEOFF DC TTTT 

DC /0000+AREA CE OFF WORD 



EXIT POINTS TO AUX LOADER 



NOTRD 



LDX 
STX 
XIO 



LDX 
LDX 

MDX 



• 

SAVE2 

SAVE3 

» 

* 
» 

« 

MDX 
BSS 

CESH DC 

STATU DC 

* 

RE088 DC 



TERMINATE EXIT POINT 
LI V.MWH 
I /04 

CEOFF REt-DVE DEVICE FROM CE MODE 

NORMAL EXIT POINT 
L2 O • 
1.3 

OOQQ 
t*»f ******* f **************** *t**** 
***************** .^t ******* *************** 
***************************************** 

THE FGLLO^IhG CONSTANTS AND lOCC 
WORDS HAS £££». PLACED HERE TO AID 
THE CE IN HIS PROGRAMMING EFFORT. 



NOTRD 
E 



/06 



THIS LOC IS NOT USED 

CE PROGRAM SW SETTING 
DEVICE STATUS WORD 

40 MO READ IN TABLE 



DATE 
EC NO. 



2 arc 666 

41S120 



8J&C3I040 
8 «iC3I050 
8 AC 3 IC 60 
8AC31C70 
8AC310i0 
8AC31090 
8AC31100 

a t.C3iiio 

8AC31120 
8AC31130 
8*C31140 
8J^C311S0 
8J^C31160 
8*C31170 
eJ.C31180 
8XC31190 
eAC3l200 
8i.t.3l210 
8XC31220 
8AC31230 
8JC.C31240 
8AC31250 
8AC31260 
8JCC31270 
eAC31230 
8J(.C3I290 
8XC31300 
8>C31310 
axC3t320 
8i»C31330 
8XC31340 
8J.C31350 
8XC31360 
8XC3I370 
8.I.C31380 
8*C31J90 
8XC31400 
8*C31410 
aAC3l420 
8*C31430 
8iC31440 
8AC314S0 
8XC31450 
a^C31470 
81C3148C 
BXC314<tO 
8XC31500 
8XC31S10 
8AC31520 
8Jt.C31530 
8AC31540 
8A.C315S0 
8J:C315&0 
8XC3I570 
8XC31580 
8iC3lS90 

axc3t&oo 

8Xt316I0 
8XC31520 
8XC31630 
8iC31i40 
8iC31650 
82X31660 
8.t.C31670 
8A.C31680 
8a.C31690 
8J.C31700 
8AC31710 



PROG 10 
7 ACE 



"I 

f 

\ 



08AC-0 
31* 



! "i 



( ( ( 



^, V 



( ( ( ( ( 

( ( ( s C 



K 



( 1 < ( (, i ( c 
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f ( 



t < ( 
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» LOCATED AT 06 THRU FO 


8AC31720 




0065 





1601 




DC 


/0601tAREA 


lOCC INIT READ PACKED MODE 


8AC31730 
8AC31740 




0066 





OOAE 


REC12 


DC 


/AE 


80 UO READ IN TABLE 

* LOCATED AT AE THRU FO 


8AC317S0 
8AC31760 




005T 





1600 




DC 


/0600+AREA 


lOCC INIT READ IMAGE MODE 


8AC31770 
8AC31780 




0068 





OOAE 


WRITE 


DC 


/AE 


80 WO OUTPUT TABLE 

* LOCATED AT AE THRU FO 


8AC31790 
8AC31800 




D069 





1500 




OC 


/0500*AREA 


lOCC INIT WRITE WORD 


8AC31410 
8AC31820 




006A 





70ED 


STACK 


MDX 


NOTRO 


THIS LOC NOT USED 


8AC31830 




0O6B 





1480 




DC 


/0480+AREA 


lOCC SELECT STACKER WORD 


8AC31840 
8AC318Sa 
8AC31860 










♦IBH* 


IBM*IBH*IBH*IBH»IBH»ieM*lBM«IBM*IBH»IBH*IBM*I 


8AC31870 














CORRECTIONS FOR THE FOLLOWING 27 * 


8AC31880 














KOROS MUST 


BE MADE IN THE CARD * 


8AC31890 














NUMBERED 1 


OF THIS AUX PROGRAMS • 


8 AC 3 1900 














7 CARD OBJECT DECK. • 


8AC31910 










*IBM» 


IBM*IBH»IBM*IBH*IBH»IBH»IBH*IBH*IBH«-IBM*IBH»I 


8AC31920 


















8AC31930 


















8AC31940 




306C 





70EB 


FEED 


MOX 


NOTRO 


THIS LOCATION IS NOT USED 


aAC31950 




0060 





1402 




OC 


/0402tAREA 


lOCC FEED CARD WORD 


8AC31960 










»»*«»««««««*»*«««««*«»««*«««»»«*•»•»****•****»**•»• 


8AC31970 


















8AC31980 


















SAC3*990 


















8AC32000 














THIS IS THE STARTING POINT OF YOUR 


8AC32010 














PROGRAM. 




aAC32020 


















8AC32030 
8AC32040 
8AC32050 
8AC32060 




006E 





70E9 


CECO 


HOX 


NOTRD 


1ST LOC OF YOUR PROGRAM 


8 AC 320 70 














BkANCH to location SAVE2 WHEN 


8AC3208a 














EXITING FROM YOUR PROGRAM. 


8AC32090 




006F 





70E8 




MOX 


NOTRD 




8AC32100 




0070 





70ET 




MOX 


NOTRO 




8AC32110 




0071 





70E6 




MOX 


NCTRD 




8AC32120 




0072 





70E5 




HOX 


NOTRO 




8AC32130 




3073 





70E4 




MDX 


NOTRO 




8AC32140 




0074 





70E3 




HOX 


NOTRO 




8AC32150 




0075 





70c2 




MDX 


NOTRO 




8AC32160 




0076 





70E1 




MDX 


NOTRD 




8AC32170 




0077 





70E0 




HOX 


NOTRD 




8AC32180 




0078 





70DF 




HOX 


NOTRO 




8AC32190 


- 


0079 





70DE 




MDX 


NOTRO 




8AC32200 




007A 





7000 




MOX 


NOTPO 




8AC32210 




007B 





70 or 




MOX 


NOTRD 




8AC32220 




007C 





700B 




MOX 


NOTRD 




8AC32230 




0070 





700A 




MDX 


N0TR1 




8AC32240 




007E 





7009 




HOX 


NOTRO 




8AC32250 




007F 





7008 




MOX 


NOTRD 




8AC32260 




0080 





7007 




MOX 


NOTRD 




8AC32270 




0031 





70D6 




MDX 


NOTRO 




8AC32280 




0082 





7005 




HOX 


NOTRD 




8AC32290 




0083 





7004 




MOX 


NOTRD 




8AC32300 




0084 





7003 




HOX 


NOTRD 




8AC32310 




0085 





7002 




HOX 


NOTRO 




8AC32320 




0086 





7001 




HDX 


NOTRO 




8AC32330 
8AC32340 
8AC32350 


V 








*IBH*I8H*I6M« 


I BH* 1 BM* I BH* IBM* I BH* I BM» I BM* I BM*I BM*1 


8AC32360 


' 












CORRECTIONS FOR THE FOLLOWING 27 • 


8AC323T0 














WORDS XUST 


BE MADE IN THE CARD • 


8AC32380 














NUMBERED 2 


OF THIS AUX PROGRAMS * 


SAC32390 




DATE 




28FEB66 








- 


PROG IC 


08AC-0 


EC NO. 


415120 










PACE 


32 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1442 



• 7 CARD OBJECT DECK. ♦ 

» I BH* I BH* I BM» IBM* IBH* IBM* IBM* IBH* IBM* IBM* IBM* IBM* I 



0087 





7000 


0088 





70CF 


0089 





70CE 


008A 





70CO 


0088 





70CC 


008C 





70CB 


0080 





70CA 


008E 





70C9 


008F 





70C8 


0090 





70C7 


009r 





70C6 


0092 





70C5 


0093 





70C4 


0094 





70C3 


0095 





70C2 


0096 





70C1 


0097 





70CO 


0098 





70 8F 


0099 





70BE 


009A 





7080 


009B 





70 BC 


009C 





708B 


0090 





708A 


009E 





7089 


009F 





70B8 


OOAO 





7087 


OOAl 





70B6 



HOX 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


MDX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRD 


HDX 


NOTRO 


MDX 


NOTRD 


MDX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRD 


Max 


NOTRO 


MDX 


NOTRO 


HOX 


NOTHO 


HOX 


NOTRO 


HDX 


NOTRD 


HDX 


NOTRO 


MOX 


NOTRD 


MOX 


NOTRD 


MDX 


NOTRO 


HDX 


NOTRO 


HDX 


NOTRD 



I8H*IBM*IBH»IBH*IBM»IBM*IBM»IBH*IBM*IBM*I8H»I8H*I 
CORRECTIONS FOR THE FOLLOWING 27 » 
WORDS MUSI BE HADE IN THE CARD * 

NUMBERED 3 OF THIS AUX PROGRAMS * 

7 CARD OBJECT DECK. • 

IBH*IBH»IBH*lBM«l8H*iaM*IBH»IBM*IBM*IBM*iBM*IBM*I 



0OA2 





7085 


HDX 


NOTRO 


0OA3 





70B4 


MDX 


NOTRO 


00A4 





7083 


HDX 


NOTRO 


00A5 





7082 


HDX 


NOTRO 


00 A6 





70B1 


MDX 


NOTRD 


0OA7 





70B0 


HDX 


NOTRO 


00A8 





70AF 


HOX 


NOTRO 


00A9 





70AE 


HOX 


NOTRO 


OOAA 





70A0 


HDX 


NOTRO 


OOAB 





70AC 


HOX 


NOTRO 


DOAC 





70AB 


HDX 


NOTRO 


OOAO 





70AA 


HDX 


NOTRO 


OOAE 





70A9 


HDX 


NOTRD 


OOAF 





70A8 


HDX 


NOTRO 


3080 





70A7 


MDX 


NOTRO 


0031 





70A6 


HDX 


NOTRD 


30B2 





70A5 


HDX 


NOTRO 


0083 





70A4 


HOX 


NOTRO 


0084 





70A3 


HOX 


NOTRO 


0085 





70A2 


HOX 


NOTRD 


OOBo 





70AI 


MDX 


NOTRO 


0087 





70A0 


HOX 


NOTRO 


0038 





709F 


HOX 


NOTRO 


00B9 





709E 


HDX 


NOTRO 


OOEA 





7090 


HDX 


NOTRO 


008B 





709C 


MOX 


NOTRO 


008C 





7098 


MDX 


NOTRD 


DATE 




28FEB66 






EC NO. 


415120 







PART NO. 21964SS 
PAGE 32A 



8AC32400 
8AC32410 
8AC32420 
8AC3243a 
8AC32440 
8AC32450 
8AC32460 
8AC32470 
8AC32480 
8AC32490 
8AC32500 
8AC32510 
8AC32520 
8AC32530 
8AC32540 
8AC32550 
8AC32560 
8AC32570 
8ACi2S80 
8AC32590 
8AC32600 
8AC32610 
8AC32620 
8AC32630 
8AC32640 
8AC32650 
8AC32660 
8AC32670 
8AC32680 
8AC32590 
8AC32700 
8AC32710 
8AC32720 
8AC32730 
8AC32740 
8AC32750 
8AC3276a 
BAC32770 
8AC32780 
8AC32790 
8AC32800 
8AC32810 
8AC32820 
8AC32830 
8AC32840 
8AC32B50 
8AC32860 
8AC32870 
8AC328aO 
8AC32890 
8AC32900 
8SC32910 
8AC32920 
8AC32930 
8AC32940 
8AC32950 
8AC32960 
8AC32970 
8AC32980 
8AC32990 
8AC33000 
8AC33C10 
8AC33020 
8AC33030 
8AC33040 
8AC33050 
8AC33060 
8AC33070 
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PAGE 



08AC-0 
32A 
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IBK HAINTbNANCE OIAGNOSTIC PAOCRAN FOR THE 1300 SYSTEM 



AUX PROGRAH GENERATOR UTILITV PROGRAM 
AUX 1442 



( ^ ( 



PART NO. 21964S» 
PACE 33 
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tBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1442 



PART NO. 219645S 
PAGE 3)A 



( 



003D 





709* 


OOBE 





7099 


OOBF 





7098 


COCO 





7097 


OOCl 





7096 


00C2 





7095 


00C3 





7094 


00C4 





7093 


P0C5 





7038 


00C6 





7037 


00C7 





7036 


30C8 





7035 


0OC9 





7034 


OOCA 





7033 


OOCB 





7032 


DOCC 





7031 


COCO 





7030 


OOCE 





702F 


OOCF 





702E 


0000 





7020 


0001 





702C 


0002 





7028 


0003 





702A 


0OD4 





7029 


0005 





7028 


00D6 





7027 


0007 





7026 



•IBH*I8H»tBH*IBM*IBK*t8H*lBM*IBM*IBM*iaH*IBM*IBH*I 

• CORRECTIONS FOR THE FOLLOWING 27 * 

• KOROS MUST BE HADE IN THE CARD ♦ 

• NUKSEREO 4 OF THIS AUX PROGRAMS ♦ 

• 7 CARD OBJECT DECK. • 
•IBH*IBM*IBH»IBH*I0H»I8K*I8M*I8M»IBH»I8H*IBH»IBM*I 



HDX 


nuiKu 
NOTRO 


MOX 


NOTRO 


MOX 


. NOTRO 


MOX . 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


/OOFE 


MOX 


/OOFE 


MOX 


/OOFE 


HDX 


/OOFE 


MOX 


/OOFE 


MOX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


MOX 


/OOFE 


MDX 


/OOFE 


MOX 


/OOFE 


MDX 


/OOFE 


MOX 


/OOFE 


MOX 


/OOFE 


MDX 


/OOFE 


MbX 


/OOFE 


MDX 


/OOFE 


MDX 


/OOFE 


MOX 


/OOFE 



IBM»IBH*JBH»IBH»IBM»I8M*IBM»IBH»IBH*IBM»IBH*IBM*I 
CORRECTIONS FDR THE FOLLOWING 38 » 
WORDS MUST BE MADE IN THE CARD * 
NUMBERED 5 OF THIS AUX PROGRAMS • 
7 CARD OBJECT DECK. • 

IBM»IBM*IBH*IBM»1BM«IBM»IBM*IBM*IBM»IBM»IBM*IBM*I 



0008 





7025 


MOX 


/OOFE 


0009 





7024 


MDX 


/OOFE 


OODA 





7023 


MOX 


/OOFE 


OOOB 





7022 


MOX 


/OOFE 


OOOC 





7021 


MOX 


/OOFE 


OODD 





7020 


MOJ( 


/oorE 


OODE 





701F 


MOX 


/OOFE 


OOOF 





701E 


MOX 


/OOFE 


OOEO 





7010 


MOX 


/OOFE 


OOEl 





70 IC 


MDX 


/OOFE 


00E2 





7018 


MDX 


/OOFE 


00E3 





701A 


MOX 


/OOFE 


00E4 





7019 


MDX 


/OOFE 


00E5 





7018 


MOX 


/OOFE 


00E6 





7017 


, MDX 


/OOFE 


00E7 





7016 


MDX 


/OOFE 


00E8 





7015 


MOX 


/OOFE 


0OE9 





7014 


MDX 


/OOFE 


OOEA 


a 


7013 


MOX 


/OOFE 


00E8 





7012 


MOX 


/OOFE 


OOEC 


a 


7011 


MOX 


/OOFE 


DATE 




28FEB66 






EC NO. 


415120 







8AC33080 
8AC33090 
8AC33100 
8AC331tO 
8AC33120 
8AC33I30 
8AC33140 
8AC331S0 
8AC33160 
8AC33170 
8AC33180 
8AC33190 
8AC33200 
8AC33210 
8AC33220 
8AC33230 
8AC33240 
8AC33250 
8AC33260 
8AC33270 
8AC33280 
8AC33790 
8AC33300 
SAC33310 
8AC33320 
8AC33330 
8AC33340 
8AC333S0 
eAC33360 
8AC33370 
8AC33380 
8AC33390 
8AC3340a 
8AC33410 
8AC3342a 
8AC33430 
8AC33440 
BAC33450 
8 AC 3 3460 
8AC33470 
8AC33480 
8AC33490 
8AC33500 
BAC33S10 
8AC33S20 
8AC33530 
8AC33S40 
8AC33550 
8AC33560 
8Ar33570 
8AC33SaO 
8AC33590 
8AC3360(} 
8AC33610 
8AC33620 
8AC33630 
8AC33640 
8AC336SO 
8AC33660 
8AC33670 
8AC33680 
8AC33690 
eAC33700 
8AC33719 
8AC33720 
8AC33730 
8AC33740 
8AC33750 



PROG 10 
PACE 



OOEO 





7010 




MOX 


/OOFE 


OOEE 





700F 




MOX 


/OOFE 


OOEF 





700E 




MOX 


/OOFE 


OOFO 





7000 




MOX 


/OOFE 


OOFl 





700C 




MOX 


/OOFE 


0OF2 





7008 




MOX 


/OOFE 


00F3 





700A 




MDX 


/OOFE 


0OF4 





7009 




MOX 


/OOFE 


OOFS 





7008 




MOX 


/OOFE 


00F6 





7007 




HDX 


/OOFE 


0OF7 





7006 




MDX 


/OOFS 


OOF 8 





7005 




MOX 


/OOFE 


0OF9 





7004 




MOX 


/OOFE 


OOFA 





7003 




MOX 


/OOFE 


OOFB 





7002 




MOX 


/OOFE 


OOFC 





7001 




MOX 


/OOFE 


OOFO 





7000 




MOX 


/OOFE 








*••*•**«*•*•*»*•»•« 


OOOD 






QQOQ 


EQU 


/O 


7007 






NNNN 


EQU 


/70D7 


0813 






WMWW 


EQU 


/C813 


7035 






TTTT 

• 
* 


EQU 


/7000 



OOFE 



OOFO 



CO TO LOADE=» AT /D 
FOR CARD LC4DFR AT /35 
SET IN LOADER AT /0« 
UR-/4-1 THIS IS EiUAL TO 
THE BRANCH FROM THE LOADER 
TO RETU^ r. THIS PROGRAM. 

• **•*****••»•••••••»•••«:•*••••***»*$«*»*»««*»«*»*** 

END •-! END CARD NE^ER USED 



8AC33760 
8AC33770 
8AC33780 
8AC33790 
8AC33800 
8AC33810 
8AC33820 
SAC33S30 
8AC33840 
8AC33850 
8AC33860 
8AC33870 
8AC33880 
eAC33890 
aAC33900 
8AC33910 
8AC33920 
8AC33930 
8AC33940 
8AC33950 
8AC33960 
8AC33970 
8AC33980 
8AC33490 
8AC3«000 
SAC34010 
8AC34020 
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i 
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08AC-0 
33 



DATE 
EC NO. 



28FEB66 
415120 
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08AC-0 
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IBH MAINTENANCE OIAGSaSTIC PROGRAM FOR THE 1800 SYSTEM 

AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 14^2 

CROSS REFERENCE LISTING 



PART NO. 21964SS 
PACE 34 



SYMBOL 


VALUE 


REFERENCES 


AREA 


1000 


0053 t 0055*005 7. 0065i006 7. 0069. 006Bf 0060 


CEGO 


006E 


CO*C 


ceoFF 


0056 


0038.0058 


CEON 


005* 


O0 3A.004S 


CESW 


0062 


0041 


OSW52 


0052 


0036,0030 


FEED 


006C 




NNNN 


70D7 


0052 


NOTRO 


0058 


Ca-iS.OO^E, 006 1,006A,006C,G06E,036F, 0070, 0071, 0072 1 
03 73, 0074, 00 75, 0076, 0077, 0078, 00 79, 007A, 0078, 007Cf 
03 70, 007E,007F, 0080. 008 1,0082, 00 83, 0084, 008 5, 0086 1 
00 3 7,t03 8,0089,008A,008B,008C,0080,008E,008F,0090t 
C;91, 0092, 0093, 0094 -0095, 0096.0097,0093, 0099, 009ft. 
0093,009C,0090,009£,009F,00&0,OOAl,OOA2,OOA3,OOA4. 
O2A5,OOA6,00A7,O0A8,OOA9,0OAA,O0A8,OOAC,00AD,0OAE, 
00 AF, 0030, 008 1, 008 2, 008 3, 0084,0085, 0086, 0087, 0088. 
D039,O03A,O0BB,00BC,008O,OOaE,OO8F,OOC0,O0Cl,OCK:2. 
O0C3,OOC4 


QQOQ 


0000 


0060 


RE012 


0066 




RED88 


0064 




RETUR 


003A 


OOFE 


SAVE2 


OOSC 


0033,0046 


SAVE3 


005E 


00 3C 


SEN3I 


0050 


D03F, 0040, 0042 


STACK 


006A 




STATU 


0063 


00 3E 


TERM 


00<.E 


0048 


TTTT 


T035 


0056 


WRITE 


0068 




WWMW 


0313 


0058 



IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1443 



02BC 



3000 



ABS 
ORG 



/36 



*♦»»»»»»»»»»♦*»»»*»»»*»»»»*»»*»♦♦»»*»»♦»»*»****♦»** 
AREA E3U /3000 1ST 1443 AREA CODE 

* IF THIS PROG IS TO BE USED FOR A MACH 

* WITH A DIFF AREA CODE ALL THE LOCATIONS WHICH 

* REFER TO THE LABEL AREA IN SYMBOL TABLE MUST 

* BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN * 

* MODIFIED AUX 8-8 OBJECT DECK. SEE AUX CE PROG 

* GENERATOR WRITE-UP FOR PROCEDURE. 

*«»»»»«»*»««»*»♦»*»»»»*»«»»«»*»•****•»»»»»«♦*♦•♦»♦* 
• 

* 

* THIS PROG CAN NOT BE LOADED FROM PAPER T/PE 

« 

• 

» PURPOSE 

THE PURPOSE OF THIS PROGRAM IS 
TO PROVIDE A SKELETON PROGRAM 
UPON WHICH THE CE CAN WRITE AN 
AUX STORAGE PROGRAM. 



1443 SKELETON PROGRAM 
(SEE AUX CE PROG GENERATOR 
* .iRIIE-UP FOR USE PROCEDUREI 
t» ***************** ********** 



« 
* 
* 

* 

* 

* 

* 
* 

• IBM* I 8M* IBH* I BH* 1 BM*I BH» I BH* I BH* IBM* I BM» I BH*I BM* I 

• CORRECTIONS FOR THE FOLLOWING 27 * 

• WORDS MUST BE HADE IN THE CARD ♦ 

• NUMBERED X OF THIS AUX PROGRAMS » 

• 7 CARD OBJECT DECK. * 

• I BH» I BH» I BM» I BH* I BH* I BH* I BM» I BM* I BH* I BM* I BH*I BM* I 
• 



GENERAL INSTRUCTIONS 

CE SWITCH SETTINGS 

OOOOllll CE SERVICE STOP 
llllllll TERMINATE PROGRAM 
ALL OTHER COMBINATIONS ARE STORED 
» AT THE LOCATION CESH FOR 

* POSSIBLE USE BY THE CE TO 

* CONTROL HIS PROGRAM 



3036 

0037 

0038 

0039 



003A 
0038 



COIB 
DOFO 

CO 10 
DOC* 



0819 
6A2I 



LO 
STO 



LO 
STO 



RETUR XIO 



AUX PROG ENTRY POINTS 

**»*«*»***•********•* 

1ST PASS ENTRY 

DSW52 RESTORE LOC NICE 
- /35 • IN AUX LOADER 

CEOFF PLACE BRANCH- 
/04 • TO RETUR LABEL 

ALL BUT 1ST PASS ENTRY POINT 
****•*••***••***•••*****•*•• 
CEON SET DEVICE IN CE HOOE 



STX 2 SAVE2«l 



SAVE INDEX REGISTER 2 






PART NO. 2196455 
PACE 34A 



8AC34030 

8 AC 340 40 

8AC34050 

8AC34060 

8 AC 340 70 

8AC34080 

8AC34090 

8AC3410a 

8AC341ia 

8AC34120 

8AC34130 

8AC34140 

8AC34150 

8AC34160 

8AC34170 

8AC34180 

8AC34190 

8AC34203 

8AC34210 

8AC34220 

8AC34230 

8AC34240 

8AC34250 

8AC34260 

8AC34270 

8AC34280 

8AC34290 

8AC34300 

8AC34310 

8AC34320 

8AC34330 

8AC34340 

8AC34350 

8AC34360 

8AC34370 

8AC3438a 

8AC34390 

8AC34400 

8AC34410 

8AC34420 

8AC34430 

8AC34440 

8AC34450 

8AC34460 

8AC34470 

BAC34480 

8AC34490 

8AC34S00 

8AC34510 

8AC34S20 

8AC34530 

8AC34S40 

8AC34550 

8AC34560 

8AC34570 

8AC34580 

8AC34590 

8AC34600 

8AC34610 

8AC34620 

8AC34630 

8AC34640 

8AC34650 

8AC34660 

8AC34670 

8AC34680 

8 AC 34699 

8AC34700 
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IBM HAINTENANCl DIAGNOSTIC PROGRAM FOR THf 1800 SYSTEM 



AUX PROGRAM GENERATOR UTIUTV PROGRAM 
AUX 1443 



003C 


6822 




STX 


3 


SAVE3H 


0030 


0814 




XIO 




0SW52 


003E 


0024 




STO 




STATU 


003F 


0810 




XIO 




SENBI 


0040 


eooF 




AND 




SEN8I 


0041 


0020 




STO 




CESW 


0042 


FOOD 




EOR 




SENBI 


004i 00 


4C1800S8 




BSC 


L 


NOTRD,* 


0045 


FOOE 




Eoa 




CEON 


0046 00 


4C18005C 




BSC 


«. 


SAVE2.» 


0048 00 


CC00004E 




LDO 


L 


TERM 


004A 00 


DCOOOOFE 


* 
• 


STO 


L 


/OOFE 



304C 00 4C000068 
004E 00 4C0O0OS8 



0050 
0050 



0000 
OOFF 







• 








• 




0051 


0760 




DC 


0052 


7007 


DSW52 


DC 


0O53 


3701 




OC 


0054 


OOFO 


CEON 


DC 


0055 


3001 




OC 


0056 


7035 


CEOFF 


OC 


0057 


3000 




DC 



SAVE INDEX RFCISTER i 
SENSE DEVICE STATUS 
SAVE DEVICE STATUS 
SENSE CE PROG SW TO ACCUM 
BLOCK OUT PROG SEL SM 
SAVE CE PROG SW SETTINGS 

BR TERMINATE PROGRAM 

BR SERVICE STOP 

SET TERMINATOR BR AT END 

• OF AUX CORE AS A SAFETY 

• PRECAUTIO-* 



BSC L CEGO BR TO DO IT YOURSELF PROG 

TERM 8SC L NOTRO TERMINATOR BRANCH 

* 

* CONSTANTS AND/OR lOCC WORDS 
BSS E 

SENBI DC /OOFF TERMINATOR CONSTANT 

* 
• 
*IBH»I6M*IBH»IBH*IBH*IBH»I8H*IBH*IBM*IBM»IBM»IBM»I 

* CORRECIIONS FOR THE FOLLOWING 27 ♦ 
» WORDS MUST BE HADE IN THE CARD ♦ 

♦ NUMBERED OF THIS AUX PROGRAMS » 

• 7 CARD OBJECT DECK. ♦ 
*IBM*18M»1BH*1BM*^8M•IBH»I8^•*IBH*IBM•IBM»IBH*I8M*I 



/0760 SENSE CE SWITCHES 

NNNN 

/070UAREA RESET DEVICE STATUS lOCC 

/OOFO CE SERVICE STOP CONST 

/OOOl^AREA CE ON WORD 

TTTT 

/OOOOtAREA CE OFF WORD 

EXIT POINTS TO AUX LOADER 



0058 00 65000813 
005A 69A9 
0058 08FA 



305C 00 66000000 
•005E 00 67000000 

0060 70AC 



0061 
0062 

0062 

0063 



70F6 
0000 
0000 
0000 



0064 OOBS 



NOTRO LOX 
STX 
XIO 

* 

SAVE2 LDX 

SAVE3 LDX 

* 

MOX 

* 

• 

MDX 
BSS 

CESW OC 

STATU OC 

WRITE DC 



TERMINATE EXIT POINT 
LI WWWW 
1 /04 

CEOFF REMOVE DEVICE FROM CE MODE 

NORMAL EXIT POINT 
L2 
L3 

00 wQ 

*•»»•*»•»♦»»»♦»»♦♦»»»♦»♦♦•♦♦**•»»»*•♦*♦»» 
»»»»*•*»»»*♦•»»•»*»»*•*••*»♦«»»»•»*•»»»»» 

THE FOLLOWING CONSTANTS AND lOCC 
WORDS HAS BEEN PLACED HERE TO AID 
THE CE IN HIS PROGRAMMING EFFORT. 



N3TRD 
E 



/B5 



THIS LQC IS NOT USED 

CE PROGRAM SW SETTING 
DEVICE STATUS WORD 

72 WD TABLE LOCATED AT 



PART NO. 21964&S 
PAGE 35 



8AC34710 

8AC34720 

8AC34730 

8AC34740 

8AC34750 

8AC34760 

8AC34770 

eAC34780 

8AC34790 

8AC?4e00 

8AC34810 

8AC34820 

8AC34830 

8AC34840 

SAC34850 

8 AC 34860 

8AC34870 

8AC34880 

8AC34890 

8AC34900 

8AC349I0 

8AC34020 

8AC34930 

8AC34940 

8AC349S0 

dAC34960 

8AC34970 

8AC34980 

8AC34990 

8AC3S000 

8AC35010 

8AC35020- 

8AC35030 

8AC3S040 

8AC35050 

8AC35060 

8AC35070 

8AC35080 

8AC35090 

8AC35100 

8AC35110 

8AC3S120 

8AC35130 

8AC35t40 

8AC3$1S0 

8AC3S160 

8AC35170 

8AC35180 

8AC35190 

8AC3S200 

8AC3S210 

8AC3522& 

8AC35230 

8AC35240 

8AC35250 

8AC35260 

8AC35270 

8 AC 352 80 

8AC3S290 

8AC35300 

8AC3S3I0 

8AC35320 

8AC3S330 

8AC35340 

8AC35350 

8AC35360 

8AC3S370 

8AC3S380 



DATE 
EC NO. 



28FE866 
415120 



PROG ID 
PAGE 



08AC-0 
3S 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1443 



• 0086 THRU OOFO 

• A WORD COUNT OF 72 IS 

• PLACED AT LOC 0085 
DC /0500*ARFA lOCC INIT. WRITE WORD 

TRL OC /OlOO 



PART NO. 21964SS 
PAGE 35* 



3065 3500 
0066 0100 

006^ 3400 



0068 70EF 



0069 
006A 
0068 



70EE 
70EO 
70EC 



006C 





70EB 


0060 





70EA 


006E 





70E9 


006F 





70E8 


0070 





70E7 


0071 





70E6 


0072 





70E5 


0073 





70E4 


0074 





70 E3 


0075 





70E2 


0076 





70EI 


0077 





70E<> 


0078 





700F 


0079 





70DE 


007A 





70D0 


0078 





70DC 


a07C 





70DB 


007D 





70DA 


007E 





7009 


007F 





7008 


0080 





7007 


0081 





7006 


0082 





7005 


0083 





70D4 


0084 





7003 


0085 





70O2 


0006 





7001 



PLACE CARRIAGE CTRL SKIP 

* HERE. PRESENT CONTENT 

* IS A SKIP TO CHAN I. 
DC /0400*AREA lOCC CONTROL WORD 



THIS IS THE STARTING POINT OF YOUR 

PROGRAM. 

FROM HERE ON YOU ARE CN YOUR OWN. 

GOOD LUCK. 



EGO MOX 



MDX 
MDX 
MOX 

*IBH»I8H» 

* 

•IBM»IBM* 

• 

MDX 
MDX 
MOX 
MDX 
MDX 
MOX 
MOX 
MDX 
MOX 
MUX 
MOX 
MDX 
MDX 
MDX 
MOX 
MOX 
MDX 
MDX 
MDX 
MDX 
MOX 
MOX 
MDX 
MDX 
MDX 
MOX 
MDX 



NOTRO 1ST LOC OF YOU* PROGRAM 

BRANCH TO LOCATION SAVE2 WHEN 

EXITING FROM YOUR PROGRAM. 

NOTRO 

NOTRO 

NOTRO 



IBH*IBM»IBH*IBH*IBH*IBHffie''»IBM«lB«»IBM*I 
CORRECTIONS FOR THE FCtLOWING 27 * 
WORDS MUST BE HADE IN THE CARD * 
NUMBERED 1 OF THIS AUX PR3GHAMS * 
7 CARD OBJECT DECK. * 

fBM*IBH»I8M*IBM*IBH*lBK»IB«»iaH*iaM*IEM*I 



NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRD 

NQTRO 

NOTRO 

NOTRD 

NOTRD 

NOTRD 

NOTRO 

NOTRO 

NOTRO - 

NOTRD 

NOTRD 

NOTRD 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRD 

NOTRO 

NOTRO 

NOTRD 

NOTRO 

NOTRO 

NOTRO 



18M»IBM*I8M»I8M*I8M»1BM*1BK»IBM*IBK»I8H*IBM*IBM*I 
CORRECTIONS FOR THE FOLLOWING 27 • 
WORDS MUST BE MADE IN THE CARD • 
NUMBERED 2 OF THIS AUX PROGRAMS * 



DATE 
EC NO. 



28FEB66 
415120 



1 • O 



8AC3S390 


1 


8AC3S400 


8AC35410 


8AC35420 


i 


8AC3S430 


t 


8AC35440 


-1 


SAC354S9 


1 


8AC35460 


( 


8AC354 70 




» 8AC35480 




8AC35490 


' 


8AC35500 


1 


8AC35510 




8AC3S520 




8AC35530 


^ 


8AC35540 




8AC35550 




8AC35560 


* 


8AC35570 




8AC35SaO 




SAC35S90 




aAC3S600 




8AC3S610 




eAC35620 




3AC35630 




8AC35640 




8AC356S0 




8AC35660 




8AC35670 




8AC35680 




8AC35690 




8AC3?700 




8AC35710 




8AC35720 




8AC3S730 


^ . 


8AC35740 




aAC35750 




8AC35760 




8AC35770 




8AC35780 




8AC35790 




8AC35800 




6AC35S10 


, 


8AC35820 




8AC35830 


' 


8AC35840 




8AC35850 




8AC35860 


i > 


8AC35870 




eAC35880 


) 


8AC35895 


<?V* 


8AC35900 


i J 


8AC35910 


} 


8AC35920 


'?' 


8AC35930 


8AC35940 


, 


8AC35950 


•;i 


8AC35960 




8AC35970 




8AC35980 


n 


8AC35990 


8AC3o000 




8AC36010 


<;> 


8AC36020 


8AC36030 




8AC36040 


O' 


SAC36050 




8AC360&0 


i 




->! 


PROG 10 08AC-0 




PACE 35A 


V 


- 


^^ 




^ 


' 


') 



(((( c 1 ((((((( i ((( 1 



V 



c ( 



( ! 



( ( 



IBM MAINTCANCE DIAGNOSTIC PROGRAM =0R THE 1800 SVSTEH 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 140 



♦ 7 CARO OBJECT DECK. ♦ 

•IBH»1BM*IBH*IBM»IBM»IBM*IBM»IBM*IBH»IBM*IBK*IBM*I 



0087 





7000 


* 
• 

HOX 


NOTRO 


0088 





70CF 


HOX 


NOTRD 


008V 





70CE 


HOX 


NOTRD 


008A 





70C0 


HOX 


NOTRD 


008B 





70CC 


HOX 


NOTRO 


308C 





7oca 


HDX 


NOTRO 


0080 





70CA 


HOX 


NOTRO 


008E 





70C9 


HOX 


NOTRO 


008F 





70C8 


HOX 


NOTRO 


0090 





70C? 


HOX 


NOTRO 


0091 





70C6 


HOX 


NOTRO 


0092 





70C5 


HOX 


NOTRO 


0093 





70C4 


HOX 


NOTRO 


9094 





70C3 


HDX 


NOTRD 


0095 





T0C2 


HOX 


NOTRO 


0096 





TOCl 


HOX 


NOTRO 


C097 





70C0 


HOX 


NOTRD 


0098 





70SF 


HDX 


NOTRO 


0099 





70BE 


HDX 


NOTRO 


009A 





70BD 


HDX 


NOTRO 


009B 





70BC 


HDX 


NOTRO 


009C 





70BB 


HDX 


NOTRO 


009D 





70BA 


HOX 


NOTRO 


009E 





7089 


HOX 


NOTRD 


009F 





70B8 


HDX 


NQTRO 


OOAO 





7037 


HOX 


NOTRO 


OOAl 





7086 


HffX 


NOTRO 



IBH»IBH»JBH*IBM*IBM*IBM*1BM»IBH*1BM*1BH*IBH*IBM*I 
CORPECTIONS FOR THE FOLLOWING 27 * 
WORDS MUST BE HADE IN THE CARO • 

NUMBERED 3 OF THIS AUX PROGRAMS * 

7 CARO OBJECT DECK- * 

IBH»IBH*I8H»IBH*IBH»IBH*IBH»IBM»IBH*IBH*IBH*IBH*I 



00A2-0 


70B5 


HOX 


NOTRD 


00A3 


703* 


HDX 


NOTRD 


OOA* 


70B3 


MOX 


NOTRD 


0OA5 


7082 


HOX 


NOTRD 


00A6 


7031 


HDX 


NOTRO 


00A7 


7060 


HOX 


NOTRO 


00A8 


70AF 


MOX 


NOTRO 


00A9 


70AE 


HOX 


NOTRO 


OOAA 


TOAD 


HDX 


NOTRO 


OOAB 


70«.C 


HOX 


NOTRO 


OOAC 


70AS 


HOX 


NOTRO 


OOAO 


70AA 


MOX 


NOT<0 


OOAE 


70A9 


HOX 


NOTRO 


OOAF 


70A8 


MOX 


NOTRO 


OOBO 


70AT 


HDX 


NOTRO 


COBl 


70A6 


HOX 


NOTRD 


D0B2 


70A5 


HOX 


NOTRO 


0083 


70A4 


HOX 


NOTRO 


0084 


70A3 


HOX 


NOTRO 


0085 


00*8 BS DC 


72 


0086 


70AI 


HOX 


NOTRO 


0087 


70AO 


MOX 


NOTRD 


0088 


709F 


HDX 


NOTRO 


0089 


709E 


HDX 


NOTRO 


OOBA 


7090 


HOX 


NOTRO 


OOBB 


709C 


HOX 


NOTRO 


ODBC 


7098 


MOX 


NOTRO 


DATE 


2eFEB&6 






EC NO. 


*1S120 







HO COUNT FOR 1**3 TABLE 



( ( 



PART NO. 2196*SS 
PAGE 3ft 



8AC36070 

8AC36030 

8AC36090 

8AC36100 

BAC36110 

8AC36120 

8AC36130 

8AC361*0 

8AC36150 

BAC36160 

8AC36170 

8AC36180 

8AC36190 

8AC36200 

8AC36210 

8AC36220 

BAC36230 

8AC362*0 

8AC36250 

SAC 36260 

8AC36270 

8AC3&280 

8AC36290 

8AC36300 

SAC36310 

8AC36320 

8AC36330 

8AC353*0 

8AC36350 

8AC3636a 

8AC36370 

B AC 3 63 80 

8AC36390 

8AC36*00 

8AC36*10 

eAC36*20 

8AC36*30 

8AC36**0 

8AC36*S0 

8AC36*60 

8 AC 36* 70 

8AC36*80 

8AC36*90 

aAC36S0a 

8AC36510 

8AC36520 

8AC36530 

SAC365*0 

SAC36550 

8AC36560 

8AC36570 

8AC3658a 

8AC36590 

8AC36600 

8AC36610 

eAC36620 

8AC36630 

8AC366*0 

8AC366S0 

BAC36660 

eAC36670 

8AC36680 

8AC36690 

8AC36700 

8AC367tO 

8AC36720 

8AC36730 

8AC367*0 



'. *, \ \\ V * V * « f f 5 ^ < < 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEH 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1**3 



I8''*IBM»IBM»IBM»IBH»IBH*IBH»IBH*I8H*IBM*IBM*IBH*I 
CORRECTIONS FOR THE FOLLOWING 27 ♦ 
WORDS MUST BE HADE IN THE CARO • 
NUMBERED * OF THIS AUX PROGRAMS * 
7 CARD OBJECT DECK. • 

iaM*ieM»IBH*I8H»IBM*IBH»IBH»IBH»IBH»i8M»IBM*IBH»l 



0080 





709A 


008E 





7099 


OOBF 





7098 


OOCO 





7030 


OOCl 





703C 


00C2 





7038 


0OC3 





703* 


OOC* 





7039 


OOCS 





7038 


00C6 





7037 


00C7 





7036 


0OC8 





7035 


00C9 





703* 


OOCA 





7033 


OOCB 





7032 


OOCC 





7031 


OOCO 





7030 


OOCE 





702F 


OOCF 





702E 


0000 





7020 


0001 





702C 


0002 





7028 


0003 





702A 


300* 





7029 


0OD5 





7028 


0006 





7027 


0007 





7026 



HDX 


NOTRO 


HDX 


NOTRD 


MOX 


NOTRO 


MOX 


/OOFE 


MOX 


/OOFE 


HOX 


/OOFE 


HDX 


/OOFE 


HOX 


/OOFE 


MOX 


/OOFE 


HOX 


/OOFE 


HDX 


/OOFE 


MOX 


/OOFE 


MOX 


/OOFE 


MOX 


/OOFE 


HDX 


/COFE 


MOX 


/OOFE 


HOX 


/OOFE 


HOX 


/OOFE 


HOX 


/OOFE 


MOX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


MOX 


/OOFE 


MOX 


/OOFE 


HDX 


/OOFE 



IBH»1BH»IBH*IBH»1BM»I3M*IBM*IBH»IBH*IBH»IBM»I8M*I 
CORRECTIONS FOR THE FOLLOWING 38 • 
WORDS MUST BE HADE IN THE CARD * 
NUMBERED 5 OF THIS AUX PROGRAMS * 
7 CARD OBJECT DECK. • 

IBH*I6M*IBH»IBK»IBH*IBH*IBH*IBM»I8M»IBH*1BH*I8H*1 



PROG 10 
PACE 



08AC-0 
36 



0OD8 





7025 


HDX 


/OOFE 


0OD9 





702* 


HDX 


/OOFE 


OOOA 





7023 


HDX 


/OOFE 


OODB 





7022 


HDX 


/OOFE 


OODC 





7021 


nox 


/OOFE 


OODO 





7020 


MOX 


/OOFE 


OODE 





701F 


MOX 


/OOFE 


OOOF 





701E 


KDX 


/OOFE 


OOEO 





7010 


HOX 


/OOFE 


ooei 





701C 


MOX 


/OOFE 


00E2 





7018 


MOX 


/OOFE 


0OE3 





701A 


HOX 


/OOFE 


OOE* 





7019 


HDX 


/OOFE 


C0E5 





7018 


MOX 


/OOFE 


0OE6 





7017 


MOX 


/OOFE 


00E7 





7016 


MOX 


/OOFE 


0OE8 





7015 


HOX 


/OOFE 


0OE9 





701* 


MOX 


/OOFE 


ODEA 





7013 


HOX 


/OOFE 


OOEB 





7012 


MOX 


/OOFE 


OOEC 





7011 


MOX 


/OOFE 


DATE 




2eFEB66 






EC NO. 


*1S120 







PART NO. 2196*SS 
PAGE 36* 



8AC367S0 
eAC36760 
8AC36770 
8AC36780 
8AC36790 
8AC36800 
8AC36S10 
8AC36820 
8AC36830 
8AC368*0 
8AC36850 
8AC36S60 
8AC36870 
8AC36880 
8AC36890 
8/C36900 
8AC36910 
8AC36920 
8AC36930 
8AC359*0 
8AC36950 
8AC36960 
8AC36970 
8AC36980 
8AC36990 
8AC3T0O0 
3AC370I0 
8AC37020 
8 AC 370 30 
8AC37O*0 
8AC37050 
«8AC37060 
8AC37070 
8AC37080 
8AC37090 
8AC371O0 
8AC37110 
8AC37120 
8AC37130 
8AC371*0 
8AC37150 
8AC37160 
8AC37170 
8AC37180 
8AC3719a 
8AC37200 
8AC37210 
8AC37220 
8 AC 372 30 
8AC372*0 
8AC372S0 
8A'C37260 
8AC37270 
8AC37280 
8AC37290 
aAC37300 
8AC37310 
8AC37320 
8AC37330 
8AC373*0 
8AC37350 
8AC37360 
8AC37370 
8AC37380 
8AC37390 
8 AC 3 7*00 
8AC37*10 
8AC37*20 



PROG 10 
PAGE 



08AC-0 
36* 



( ( < ( ( ( ( < ( (1 ( ( ( < ( < ( ( < ( ( ( < ( ( i ( ( ( ( ( ( < 



i I ( 



( ( 



IBM MAtNTENANC€ DIACNOSriC PROCRAH FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITV PROGRAM 
AUX l<i«3 



i, c c c n r. c c, c c ( c 



r 



PART NO. 2196455 
PACE 37 



IBM MAINTENANCE DIAGNOSTIC PROGRAM^NoR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITV PROGRAM 
AUX 1443 



PART NO. 2196455 
PAGE 37* 



OOED 





7010 




MDX 


/OOFE 










8AC37430 


OOEE 





700F 




MOX 


/OOFE 










8AC37440 


OOEF 





700E 




HOX 


/OOFE 










8AC37450 


OOFO 





7000 




MOX 


/OOFE 










8 AC 3 7460 


OOFl 





700C 




MOX 


/OOFE 


, 








8AC37470 


O0F2 





7008 




HOX 


/OOFE 










8AC37480 


OOF 3 





700A 




MOX 


/OOFE 










8AC37490 


00F4 





7009 




HOX 


/OOFE 










8AC37SC0 


OOFS 





7008 




MOX 


/OOFE 










8AC37510 


O0F6 





7007 




MOX 


/OOFE 










8AC37520 


30F7 





7006 




MOX 


/OOFE 










8AC37S30 


0OF8 





7005 




MDX 


/OOFE 










8AC37540 


00F9 





7004 




MOX 


/OOFE 










8AC375S0 


OOFA 





7003 




MOX 


/OOFE 










8AC37560 


OOFB 





7002 




fOX 


/OOFE 










8AC37570 


DOFC 





7001 




MOX 


/OOFE 










6AC37S80 


OOFD 





7000 




MOX 


/OOFE 










aAC37S90 








«««»««!*«»**««•»«»«**»*****««••<>»«•»••*«*** V**»**«** 


8AC37600 








• 














8AC37610 


0000 






QQOQ 


EOU 


/O 


GO 


TO LOAOER AT 


/D 


8AC37620 


7007 






NNNN 


EQU 


/7007 


FOR 


CARD 


LOADER 


AT /3S 


8AC37630 


0813 






hhhti 


EQO 


/0813 


SET 


IN LOAOER AT 


/04 


8AC37640 


7035 






TTTT 


EOU 


/7000+ 


kETUR-/4 


-I 


THIS IS 


EQUAL TO 


8AC37650 








• 






THE 


BRANCH FRO^ 


THE LOAOER 


8AC37660 








• 






TO 


lETJR 


IN THIS 


PROGRAM. 


8AC37670 








»»«»»«t»ts.t*»*tts*t.*«»t**»«e«« »*«•«»»»««»««♦» ♦*«•«■• 


8AC37680 


OOFE 




OOFO 




END 


*-l 


END 


CARP 


NEVER USED 


3AC37690 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 


AREA 


3000 


0053,0055,0057,0065.0067 


85 


0085 




CECO 


0068 


004C 


CEOFF 


0056 


0038,0058 


CEON 


0054 


003 A, 0045 


CESW 


0062 


0041 


CTRL 


0066 




OS>(52 


0052 


0036.0030 


NNNN 


7007 


0052 


NOTRO 


0058 


0043, 004E. 006 1.006 8, 0069, 006A, 0063, 006C. 0060. 006Ei 
006F,0070.007t,0072,0073.0C74.00 75,0076,0077.007St 
C079,t07A, 0078, 007C,C0TD,007E,007F, 0030. OOai. 0082, 
0083, DOS';. 008 5,0066. COS 7, C0S8, 0089, 003A, 0038, 008C. 
0080, O08E.OO8F, 0090, 0091, 0092, 0093, 009',, 0095, 0096, 
009 7,f 098,0099,009A,009B,C09C,C09D,009E,009F,OOAO, 
O0Al,0OA2,O0A3,0CA4,C0A5,0OA6,O0A7,OOA3,O&A9,0OAA, 
OOAB,OOAC,OOAO,OOA£.OOAF,COBO,OOB1 ,0032.0083.0034, 
0086,008 7, 0GB8, 0089,003 A, OOSB. ODBC. 0030. OOBE. 00 3F 


Q4QQ 


0300 


0060 


RETUR 


003A 


OOFE 


SAVE2 


005C 


003B.0046 


SAyE3 


005E 


00 3C 


SEN3I 


0D50 


003F. 0040, 0042 


STATU 


0063 


003E 


TERM 


004E 


0048 


TTTT 


7035 


0056 


WRITE 


0064 




MiriUU 


0313 


0058 



DATE 
EC NO. 



28FE866 
415120 



PROG 10 
PACE 



08«C-a 
S7 



DATE 
EC NO. 



28FEB66 
415120 



PROG 10 
PACE 



08AC-0 
3TA 



o 
n 



( t < 

I V ( 



( ( ( ( ( i ( ( ( ( ( ( ( (,<<((( 1 ( ( C 1 ( ( ( C i i ( 



( ' 



I.- C ( ( ( 1" ( 



1 ' 



( ( (,• (' c 



r 

V 
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02BC 

0CE4 1000 



ASS 
ORG 



3300 



AREA DC /lOOO IST l*« AREA CODE 

• IP THIS PROG IS TO BE USED FOR A MACHINE 

• WITH A OlFF AREA CODE THE CONTENTS AT THE LOCATN 

• REFERRED TO AS A(*EA MUST BE CHANGED BY A 

• STANDARD HEX CARD OVERLAY INSERTED PRIOR TO THIS 

• PROGRAMS 12-4 OBJECT DECKS END CARD 

* 



7 CARD EDIT AND PUNCH 

THIS PROG IS OPERATED IN MAIN CORE AND REQUIRES 
» THE ENTIRE 1800 SYSTEM 



PURPOSE 

THIS PROGRAM ALLOWS THE CE TO HAKE CHANGES TO 
AN EXISTING AUX 8-8 CARD DECK BY MEANS OF CARD 
OVERLAYSt AND OBTAIN A NEW AUX 8-8 DECK (7 CARDSI 



♦ OPERATING INSTRUCTIONS TO CONVERT AN EXISTING 

* • AUX 3-S PROG CARD DECK 

» HAKE SURE THAT AT LEAST ONE OF THE FIGHT 

» * CONSOLE PROG AND SENSE SWITCHES ARE OFF 

• LOAD CARD DECK ASSEHBLEO IN ORDER SHOWN BELOW 



1. CYCLE STEAL LOADER 

2. THIS PROGRAMS 12-4 OBJECT DECK 

3. THE AUX 8-8 OBJECT DECK OF AUX PROG TO BE 
» MODiriED IT CARDS IN CORRECT ORDER) 

4. HEX OVERLAY CARDS (STANDARD F0R«1AT. 

THESE CARDS MUST ADHERE TO THE FOLLOWNG 
FORMAT 

COL. FIELD DESCRIPTION 

I 12 PUNCH 

2-S ADDRESS WHERE 1ST CORRECTION GOES 
6 BLANK 

7-10 FIRST CORRECTION WORD 

11 BLANK 

12-15 SECOND CORRECTION WORD 

16 BLANK 

ETC. UP TO 15 CORRECTION WORDS CAN BE 
PUNCHED IN ONE CARD. CORRECTION 
WORDS ARE ENTERED AT SUCCESIVELY 
HIGHER ADDRESSES FOLLOWING THE 
1ST CORRECTION WORDS ADDRESS. 

5. BLANK CARDS 



» OPERATING INSTRUCTIONS TO CONVERT AN EXISTING 

• » AUX 8-8 LOADER CARD DECK 

• MAKE SURE THAT ALL OF THE EIGHT 

» » CONSOLE PROG AND sJnSE SWITCHES ARE ON 

• THE METHOD TO BE FOLLOWED iS IDENTICAL 

• TO THE AUX 8-8 PROG CONVERTION PROCEDURE 
» EXCEPT THAT AN ADDITIONAL PUNCH MUST BE 

• PLACED IN COL I OF HEX OVERLAY CARDS AS 

• • SHOWN BELOW 

• X PUNCH CORRECTION FOR 1ST 



DATE 
EC NO. 



28FEB66 
415120 



8AC00000 

8AC00010 

8AC00020 

8AC00030 

8AC00040 

8AC00050 

8AC000&0 

8AC00070 

SACOCOSO 

8AC0009a 

SACOOIOO 

8AC00110 

8AC00120 

8AC00130 

8AC00140 

8AC00150 

8AC00I60 

8AC00170 

8AC00180 

8AC00190 

8AC00200 

8AC00210 

SAC00229 

8AC00230 

eAC00240 

6AC00250 

8AC00260 

8tC00270 

3ACC0289 

aACO0290 

8AC00300 

8AC00310 

8ACO0320 

8AC00330 

BAC00340 

8AC00350 

8AC00369 

8AC00370 

8AC00380 

8AC00390 

8AC00400 

8AC00410 

8AC00420 

8AC00430 

BAC0044a 

aAC004S0 

8AC00460 

8AC00470 

8AC00480 

8AC00490 

8AC00500 

8AC0OS1O 

SAC00520 

8AC0053a 

8AC00540 

8AC00550 

8AC005&a 

8AC00570 

8AC00S80 

8AC00590 

BAC00600 

8AC00610 

8AC0O620 

8ACC0630 

8AC00640 

8AC00650 

eAC00660 

BAC00670 



PROG 10 
PAC6 



08AC-0 
38 





* 








• BOOTSTRAP CARD 


8AC006eO 






• 






PUNCH 


CORRECTION FOR 2N0 


8AC00690 






* 








* BOOTSTRAP CARD 


8AC00700 






• 






1 PUNCH 


CORRECTION FOR ACTUAL 


8AC00710 






• 








» AUX LOADER CARDS 


8AC00720 






* 










8AC00730 






♦ FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 


8AC00740 






» REFER TO THE PROGRAM 


DESCRIPTION WRITE-UP. 


SAC00750 






* 






*»«=♦»»»«»»»»»«*(,»♦»»»»#»»»#»**,,,,»,, 8AC00760 




0CE5 FFFF 


FFFF 


DC 




/FFFF 




8AC00770 




3CE6 0001 


ADD 


DC 




/OOOl 




8AC00780 




0CE7 8000 


NUMBE DC 




/8000 




8AC00790 




0CE8 0080 


EOR 


DC 




/0080 




8AC00800 




0CE9 0008 


TWELV DC 




8 


TERMINATOR FOR CARD PUNCH 


SACOOaiO 




DCEA 0000 


X38 


OC 









aAC00820 




OCEB OOOO 


X39 


DC 









BAC00830 




OCEC 0000 


PUN 


OC 







LOC OF DATA TO BE PUNCHED 


8AC00840 






* 


DC 







• PLACED HERE 


8AC00850 




OCEE 0000 




BSS 


E 







8AC00860 




OCEE 0000 


SENBI 


DC 









8AC00870 




OCEF 0760 




OC 




/0760 


SENSE SENSE SWITCHES 


8AC00880 




OCFO 0336 


PUNCH 

♦ 


DC 




/0336 


ALL CARDS PUNCHED FROM 
» THIS ADDR 


8AC00890 
8ACC0900 




OCFl 0501 




OC 




/0501 




8AC00910 




0CF2 1802 


CEOFF 


OC 




/1 802 




BAC00920 






»****•«***»***«* tt *»***» t*»*»*»t***^»«*t***»*»* 


8AC00930 




0CF3 00 C4OO0085 


MOO 


LD 


L 


BITS 




8AC00940 




0CF5 00 4C200007 




BSC 


L 


AUXX, 2 


BR AUX PROGRAM 


8AC00950 






* 






PUKCH AUX 


8-B LOADER PROGRAM DECK 


8AC00960 




0CF7 00 4C000EC2 




BSC 


L 


BOOT 




8AC00970 




0CF9 OEEF 


LO 


OC 




LOAD 




8AC00980 




OCFA COFE 


BOO 


LO 




LO 




8AC00990 


^ 


aCFB 00 D4000EEE 




STO 


L 


ABQ*l 




8AC01000 




DCFO 00 65001000 




LOX 


LI 


/lOOO 




8AC01010 




3CFF 00 6D0C0CE8 




STX 


LI 


EOR 




8AC01020 




ODOl 00 0C000E8E 


MOR 


XIO 


L 


OSMDQ 


SENSE DEVICE STATUS 


8AC01030 




0003 00 4C040D01 




BSC 


L 


MQR.E 


BR READER NOT READY 


8AC0104a 




3005 00 4C0O0EC6 




BSC 


L 


LA 




8AC01050 






*»*»**#»»»*»***ttfi,tt,t****»*»***»*t*-**»»*^»t*» 


8AC01060 






* 










8AC01070 






♦ 










SACOIOBO 






• 


AUX 


PROGRAM PUNCH ROUTjNE 


8AC01090 






• 










8AC01100 




0D07 00 65000536 


AUXX 


LDX 


LI 


/0536 


SET LOCATION OF LOADED 


8AC01110 




3039 69E2 


• 


STX 


1 


PUN 


• AUX PROG IN PUN 


6AC01120 
6AC01130 




OOOA 6126 


MORE 


LOX 


1 


38 


SAVE LOCATIONS 


eAC01140 




0008 COEO 




LD 




PUN 


• WHERE HASH 


8AC011S0 




OOOC 0002 




STO 




SAV*1 


• AND ID NUMBER 


8AC01160 




ODOO DOOS 




STO 




SAVE + 1 


• WILL BE STORED 


8AC01170 




300E 00 C5000000 


SAV 


LO 


LI 





• 


8AC01180 




ODIO D0D9 




STO 




X38 


• 


8AC01190 




0011 6127 




LOX 


1 


39 


• 


8AC012O0 




3012 00 C5000000 


SAVE 


LO 


LI 





• 


8AC01210 




0014 D006 




STO 




X39 


* 


8AC01220 




0015 6125 




LDX 


1 


37 




8AC01230 




0016 C005 




LD 




PUN 




8AC01240 




0017 0013 




STO 




NUM + l 




8AC01250 




0018 0. 0005 




STO 




CHECK+l 




8AC01260 




0019 OOOB 




STO 




HASH+1 


O 


8AC0a270 




OOIA C0D7 




LO 




CEOFF 


LOAD UNIQUE 


eAC01280 




ODIB 1802 




SRA 




2 


• CARD 


8AC01290 




OOIC 0005 




STO 




CEOFF 


• ID NUMBER 


8AC01300 




0010 00 85000000 


CHECK 


A 


LI 


0- 




8AC01310 




ODIF 71FF 




MOX 


1 


-l 




8AC01320 




0020 70FC 




MOX 




CHECK 




8AC01330 




0021 F0C3 




EOR 




FFFF 




8AC01340 




0022 80C3 




A 




AOO 




8AC013S0 
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08AC-0 
38A 
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0023 6126 




LDX 


1 38 




8AC01360 




OOZt, 00 osoooooo 


HASH 


STO 


LI O 


PLACE HASH TOTAL 


8AC01370 




0D26 6127 




LDX 


I 39 




8AC01380 




0027 C08F 




LD 


NUMBE 




8AC01390 




3028 1801 




SRA 


1 




8AC01400 




0029 OOBO 




STO 


NUMBE 




8AC01410 




302A 00 DSOOOOOO 


NUM 


STO 


LI 


PLACE CARD NUMBER 


8AC0142a 




002C F03B 




EOR 


EOR 




8AC01430 




002D 00 ^cisoosa 




BSC 


L WAIT.»- 


BR 7 CARDS PUNCHED 


8AC01440 




002F 6128 




LDX 


1 40 


COUNTER 


8AC014S0 




3030 6200 




LDX 


2 




8AC01460 




8031 00 67000335 




LOX 


L3 /33S 


PUNUH TABLE AOOIv. AT /336 


8AC014 70 




0033 C038 




LO 


PUN 




. 8AC01480 




0034 0003 




STO 


SPLA»l 




8AC01490 




3035 lOAO 


NIG 


SLT 


32 




8AC01S00 




0036 7301 




HDX 


3 1 




8AC01S10 




3037 00 C6000000 


SPLA 


LO 


L2 


OBTAIN DATA FROM CARD READ 8AC0i:>20 




3039 1808 




RTE 


24 




BAC01S30 




D03A 00 07000000 




STO 


L3 


STORE IN PUNCH TABLE 


aAC01S40 




303C 7301 




MDX 


3 1 


- 


8AC01550 




0030 1098 




SLT 


24 




8AC01S60 




303E 00 07000000 




sro 


L3 


STORE IN PUNCH TABLE 


8AC04570 




0040 7201 




MOX 


2 1 




8AC01580 




0041 71FF 




HOX 


1 -I 




8AC01590 




0042 70F2 




MOX 


NIG 




8AC01600 




0043 00 C4000385 




LO 


L /385 


PLACE PUNCH TERMINATOR 


8AC01610 




3045 E8A3 




OR 


T-ELV 


• 


8AC01620 




0J46 00 D4000385 




STO 


L /385 


• 


8AC01630 




0043 08A7 




XIO 


PUNCH 


PUNCH CARD IN 8-8 FORMAT 


8AC01640 




0049 C0A2 




LO 


PUN 


RESTORE LOCATIONS 


8AC01650 




004A 000« 




STO 


SAVA*1 


* DESTROYED BY 


8AC01660 




3048 0007 




STO 


SAVEAH 


* HASH AND ID 


8AC01670 




0D4C 6126 




LDX 


1 38 


* NUMBER 


8AC01680 




0040 C09C 




LO 


X38 


• 


8AC01690 




004E 00 05000000 


SAVA 


STO 


LI 


• 


8AC01700 




0050 6127 




LOX 


I 39 


• 


8AC01710 




0051 C099 




LD 


X39 


* 


8J\C01720 




3052 00 05000000 


SAVEA 


STO 


LI 


• 


8AC01730 




0054 00 741B0CEC 




KOX 


L PUtl,27 


UPDATE OUTPUT AREA ADDR 


8AC01740 




3056 00 OC00OE8E 




XIO 


L OSWOQ 


SENSE DEi^ICE STATUS 


8AC017S0 




0058 00 4C040056 




BSC 


L •-4,E 


BR READER N3T READY 


8AC01760 




005A 70AF 


BLK 


KUX 


MORE 




8AC01770 






**•••***•*•«**«»»«*<>*«***«««»««*******»*»**•*• 


8AC017S0 






* 




THE AUX 


8-8 DECK HAS BEEN 


8AC01790 






• 




• MODIFIED AND PUNCHED 


8AC01800 




0058 3000 


WAIT 


WAIT 




JOB COMPLETE 


8AC01810 




0D5C 70FE 




MDX 


•-2 




8AC01820 






* 




»*•»«••**«»»«*«*»»***«**»******«*«*«» 


8AC01830 




0059 00 C4000E91 


HEXA 


LD 


L 0300 


, 


8AC01840 




005F 00 0400012A 


• 


STO 


L UPPER 




8AC01850 
8ACO1860 






* THIS ROUTINE READS 


THE OBJECT CARDS 


8AC01870 






• 








BAC01883 




0061 0812 


R005 


XIO 


H^K 


MASK 


8AC01890 




0062 0813 


R020 


XIO 


STRO 


START READER 


8AC01904 




0063 081A 


R025 


XIO 


ESW 


CHECK DSU 


8AC01910 




0064 00 4C040D63 




BSC 


L R025.E 


STILL BYSY IF BR 


8AC01920 




0066 801B 




CMP 


HSK2 




8AC01930 


. 


006 7 7004 




HDX 


RD40 


ERROR B2 ON 


8AC01940 




0O6S 7001 




HOX 


R030 


READY HAY NOT BE N 


8AC01950 




0069 7O0« 




MDX 


RD50 


B4 ON, CARD IN 


8AC01960 




a06A 8018 


RD30 


CMP 


MSK3 


. CHECK IF 65 OR 6 N 


8AC01970 




0068 1000 




NOP 




YES ■ 


8AC01980 




006C 1000 


R040 


NOP 






8AC01990 




0060 70F5 




HDX 


R02S 


READY NOT ON 


8AC02000 




006E 0311 


ROSO 


XIO 


REOSW 


RESET 


8AC02010 




006F 00 C4000E17 




LO 


L COIN 




8AC02020 




0071 00 4C280DD2 


ROSS 


BSC 


L HB05i*Z 


BR HEX CARD 


8AC02030 




DATE 28FEB66 










PROG 10 


08AC-0 


EC NO. 415120 










PACE 


39 



0073 


7014 




MOX 




SB05 






0074 


0000 




BSS 


E 









0074 


FFFF 


MSK 


DC 




/FFFF 






0075 


0480 




DC 




/0480 






0076 


0E17 


STRO 


DC 




COIN 






0077 


0600 




OC 




/0600 






0078 


0600 


RDIX 


DC 




/0600 






0079 


0601 




DC 




/0601 






007A 


0500 


RBOTl 


OC 




/0500 






0078 


0601 




OC 




/0601 






007C 


0550 


RB0T2 


DC 




'0550 






0070 


0601 




DC 




/0601 






00 7£ 


0000 


ESW 


OC 




/OOOO 






007F 


0700 




DC 




/0700 






3080 


0000 


REOSh 


DC 




/OOOO 






0081 


0703 




OC 




/0703 






0082 


0800 


HSK2 


DC 




/0800 






0083 


0100 


MSK3 


DC 




/OlOO 






0084 


OOFF 


FEED 


DC 




/OOFF 






0035 


0000 


BITS 


OC 







■ 




3086 


1802 


CEOFX 


DC 




/1 802 






0087 


018C 


CEOX 


OC 




/0180 










» THIS ROUTINE PACKS 


AND STORES BINARY DA 


A 


0088 


61B8 


SB05 


LOX 


1 


-72 






0389 


6300 




LOX 


3 









003A 


62F0 


S806 


LDX 


2 


-3 






OOSB 00 


C60000AI 


SS07 


LD 


L2 


SL*3 






0030 


0006 




STO 




SBIO 






OOSE 00 


C5000E60 




LO 


LI 


CDIN+73 






0090 


1800 




RTE 




16 


" 




0091 00 


C5000E5F 




LD 


LI 


CDIN*72 






0D93 


1804 




SRA 




4 






0D94 


1000 


SBIO 


SLA 











0095 00 


07000E17 




STO 


L3 


COIN 






0097 


7301 




MDX 


3 


1 






OO'-B 


7101 




MDX 


1 


I 






0399 


7201 




HOX 


2 


1 






009A 


70F0 




HOX 




S807 


FINISHED 




0093 


7101 




HOX 


I 


1 






009C 


70ED 


- 


MOX 




SB06 






0093 


7003 




MDX 




LBOS 






009E 


1084 


SL 


SLT 




4 






009F 


1088 




SLT 




8 






OOAO 


108C 





SLT 




12 










♦ THIS ROUTINE LOADS BINARY DATA INTO MEM 


RY 


OOAI 


C077 


LB05 


LO 




C0IN*2 






03A2 


EOIT 




AND 




LBIS 






00A3 


0015 




STO 




PC AM 






30A4 00 


4Cle0CF3 




BSC 


L 


MQQ,*- 


BR END CARD 




0OA6 00 


660C0E20 




LDX 


L2 


6I0A 






0DA8 


6100 


LB06 


LOX 


1 









00A9 


6A07 




STX 


2 


LB10«-1 






03AA 


C06C 




LD 




COIN 






ODAB 00 


8400012A 




A 


L 


UPPER 






OOAO 


0069 




STO 




COIN 






OOAE 00 


66aO0E17 


O 


LOX 


12 


COIN 






OOBO 00 


C5000000 


LBIO 


LD 


LI 









0O82 


0200 




STO 


2 









0033 


7201 




HOX 


2 


1 






0084 O" 


7101 




MOX 


1 


1 






0DB5 00 


74FF00B9 




MOX 


L 


PCAM»-1 


SKIP WORD COUNT 


ERO 


00B7 


70F8 




MOX 




LBIO 






0OB8 


70A9 




MDX 




R020 






0DB9 


0000 


PC AM 


OC 







WORD COUNT 




DATE 


28FEB66 














EC NO. 


41S120 















8AC02040 

8AC02050 

eAC02060 

8AC02070 

3AC02080 

8AC02090 

6AC02100 

8AC02110 

8AC02120 

8AC02130 

BAC02140 

8AC02iSa 

8AC02t60 

8AC0217O 

8AC0218a 

8AC02190 

8AC02200 

94C02210 

8AC02220 

6AC02230 

eAC02240 

8AC022S0 

8AC02260 

SAC02270 

8AC0228O 

8AC02290 

8AC02300 

8AC02310 

3AC02320 

8AC02330 

8AC02340 

8AC02350 

8AC02360 

8AC02370 

8AC02380 

8AC02390 

8AC02400 

8AC02410 

8AC02420 

8AC0243O 

8AC02440 

8AC02450 

8AC02460 

8AC02470 

8AC02480 

BAC02490 

eAC02500 

8AC02510 

8AC02520 

8AC02530 

8AC02540 

8AC02550 

8AC02S60 

8AC02570 

3AC02S80 

8AC02590 

8AC02600 

8AC02610 

8AC02620 

8AC0263a 

8AC02640 

8AC02650 

8AC02660 

8AC02670 

8AC02680 

8AC02690 

8AC02700 

8AC02710 



PROG 10 
PACE 



It 






08AC-0 
39A 



\ - 



n 



( ( 



N(*»-' 



< ( ( ( C ( ( ( 1 ( 

(■ ; (" < ( i ( •'. ( (( i 

ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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OOBA 
30BB 00 
0080 00 
lOaF 00 
DDCl 00 
00C3 00 
ODCS 00 
0DC7 00 
30C9 ^50 
OOCB 00 



OOFF 

65000500 

60000 12A 

4COO0DOB 

65000600 

6000012A 

4COO0DOB 

65000500 

6000012A 

4CO00OOB 



OOCO 00 66000E1S 
OOCF 00 7'.FF00B9 
3001 7006 



0002 
0OO3 
0005 
D006 
0008 
0039 
300e 
300C 
OODO 

oooe 

D30F 
00£0 
30EI 
0OE2 

aoE* 

00E6 
OOES 
00E9 
ODEA 
OOEB 
OOEC 
OOEE 
30F0 
0OF2 
OOFS 
OOF* 
OOFS 



1001 

00 4C280DBB 

1001 

00 '.C280OCT 

1001 

00 4C280DC1 

61B0 

1810 

DOOB 

1310 

6204 

1004 

0013 
00 C5000E68 
00 4C1800C0 
00 440000F6 

Eaoc 

7101 
72FF 
70F4 
00 67800089 
00 07000E17 
00 740100B9 
7101 
70EA 
7008 
0001 



00F6 
0OF7 00 
00F9 
OOFA 
0OF8 
OOFC 
OOFE 00 
OEOO 
OEOl 
0EO2 
3E03 00 
0E05 00 
0E07 
0E08 
0609 
OEOA 






00 



tBlS DC /OOFF 

BTl LOX LI /0500 

STX LI UPPER 

BSC L HES 

BT3 LDX LI /0600 

STX LI UPPER 

BSC L HES 

eT2 LOX LI /0500 

STX LI UPPER 

BSC L HES 



DATE 
EC NO. 



0001 

4C100E00 

6306 

1002 

13C0 

C7000E07 

4C8000F6 

630A 

loot 

13C0 

C7OO0E0O 

4C8000F6 

OOOF 

OOOE 

0000 

OOOC 



28FEB66 
41S120 



» THI 

* 

LH05 



S ROUTINE PUIS CONVERTEO HEX DATA IN 
STORAGE 

LOX L2 COtN*l 

HOX L PCAHi-l 

HDX LB 06 
• 

* THIS ROUTINE CONVERTS HEX TO BINARY 
* 
* 
H805 



TEST FOR TYPE OF OVERLAY CARDS 



HES 

HB06 
HBIO 



EHPl 



SLA 

BSC 

SLA 

BSC 

SLA 

BSC 

LOX 

SRA 

STO 

SRA 

LOX 

SLA 

STO 

LO 

BSC 

BSI 

OR 

HOX 

MOX 

HOX 

LDX 

STO 

HDX 

HOX 

HOX 

HOX 

BSS 



,*l 



1 
L BTl, 

1 
L BT2,*Z 

1 
L BT3,»Z 

1 -80 
16 

PC AM 
16 

2 4 
4 
TEHPl 

LI CDlN+81 
L LH05t»- 
L HTOB 

TEMPI 

1 

-I 

H810 
13 PCAN 
L3 COIN 
L PCAH.l 
1 1 

HB06 

LH05 

I 



BR OVERLAY BOOT 1 
BR OVERLAY BOOT 2 
BR OVERLAY AUX LOADER 



1 

2 



THIS SUBROUTINE CONVERTS HEX TO BEIN C ACJ 
AND LEAVES RESULT IN ACCUMULATOR 



HTOB 



HTIO 



HTBl 



BSS 

BSC 

LDX 

SLA 

SLC 

LO 

BSC 

LOX 

SLA 

SLC 

LO 

BSC 

OC 

DC 

OC 

OC 



L HTlOt- 
3 6 
2 
3 

L3 HTBl 

I HTOB 

3 10 

t 
3 
\V3 HTB2 
I HTOB 
/OOOF 
/OOOE 
/OOOO 
/OOOC 



( ( ( 

( { ( 
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8AC02720 
8ACO2730 
8AC02740 
8AC027S0 
8AC02760 
8AC02770 
8AC02780 
8AC02790 
ti£CO2800 
8AC028tO 
8AC02820 
8AC02830 
3AC0284G 
8ACO2aS0 
SAC02860 
8AC02870 
8AC02880 
8AC02a9a 
8AC02900 
SAC02910 
8AC02920 
S&C02930 
8AC02940 
8AC02950 
aACO2960 
8AC02970 
8 4002980 
8AC02990 

eAco'iOoo 

8AC03010 

SACO3O20 

8iC03050 

8*003040 

SAC030SO 

8AC03060 

SAC03070 

eAC03080 

8AC03090 

8AC03100 

8AC03110 

3AC03120 

8AC03130 

SAC03140 

SAC03150 

8AC03160 

SAC03170 

8AC03180 

8ACO3190 

8AC03200 

8AC03210 

SAC03220 

8AC03230' 

8AC03240 

aAC03250 

8AC03260 

8AC03270 

8ACO3280 

8AC03290 

8AC03300 

8AC03310 

8AC03320 

8A003330 

6AC03340 

8AC03350 

eAC03360 

8AC03370 

8AC03380 

8AC03390 



< i 1 



( ( ^ < f ^ .^ ^ ^ < ( 1 ,1 
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oEoa 

OEOC 
OEOD 
OEOE 
OEOF 
OEIO 
OEll 
0E12 
0E13 
0E14 
DEIS 
0E16 
0E17 
OE20 
012A 

0E67 
0E6e 
3E6A 
0E6C 
0E60 
DE6F 
0E71 
3E73 
0E74 
0£7i 
0E77 
0E78 
0E79 
0E7A 
OETB 
0t7C 
OE70 
0E7F 
0E30 
DE81 
0E33 
0E35 
0E86 



OOOB 
000* 
0009 
0008 
0007 
0006 
000 S 
0004 
0003 
0002 
0001 
0000 
0050 



0826 

00 4C040E67 

00 OCOOOOEE 

1808 

00 F4000084 

00 04000085 

00 4C180E92 

0818 

0819 

00 40040E74 

6126 

C013 

0004 

COIS 

1802 

0013 
00 85000000 
71FF 
70rC 
00 4C200E8A 
00 741B0E8C 
COOA 
00 4C200E73 



OESa 00 4C0O0OS0 



0E8A 





3000 


0E88 





70FE 


0E3C 




0000 


0E8C 





0S36 


0E8O 





0601 


0E8E 





0000 


0E8F 





0703 


0E90 





1802 


0E91 





0500 



DE92 00 OC00007A 
0c94 00 OC0O0E8E 
0E96 00 40040E94 
0E98 00 OC00007C 
0E9A 00 OC0O0E8E 
0E9C 00 40040E9A 



0E9E 7009 
0E9F 00 C4000D86 



HTB2 



COIN 
BIOA 



OC 

DC 

OC 

DC 

DC 

OC 

OC 

OC 

DC 

OC 

CC 

OC 

GSS 

EQU 



UPPER EOU 



/OOOB 

/OOOA 

/0009 

/OOOB 

/0007 

/0006 

/0005 

/0004 

/0003 

/0002 

/OOOl 

/OOOO 

80 

C0IN*9 

298 



** *»*»*t»t***»*tt ♦»*»»»»*»»»»»»**♦••• *»♦***♦•»*»*♦ 



BLA 



8BB 
ABB 



OHECK 



XIO 

BSC 

XIO 

SRA 

EOR 

STO 

BSC 

XIO 

XIO 

BSC 

LOX 

LD 

STO 

LO 

SRA 

STO 

A 

HDX 

MOX 

BSC 

HDX 

LO 

BSC 



LI 
1 



DSWOQ 

BLA.E 

SENBl 

8 

FEEO 

BITS 

TOOT,*- 

ROIN 

OSWOO 

ABBtE 

38 

RDIN 

DHECK*l 

OEOFF 

2 

OEOFF 



-1 

OHECK 
INIZA.Z 
R0IN,2T 
OEOFF 

BBB.2 



SEN READER 

BR READER NOT READY 



BR READ AUX LOADER 

READ CARD 

SENSE READER 

BR READER NOT READY 



BR CARD IN WRONG 



BR READ MORE CARDS 
ALL CARDS LOADED AND CHECKED 
BSC L HEXA BR ALL AUX CARDS READ 

• THE AUX 8-8 CARDS FAILED TO READ IN 
» « CORRECTLY. CHECK FOR PROPER CARD 

• • SEQUENCE AND TRY AGAIN 



INIZA WAIT 
HOX 



*-? 



»»»»♦»♦*»*»♦♦*»»»»*»»**»♦•*•**»*»»•»****»»»»»*»♦»** 

BSS E 
RDIN OC /0S36 INITIAL READ IN ADDRESS 

DC /0601 
DSWOQ OC 

DC /0703 
OEOFF OC /1802 COUNTER AND 10 
0300 DC /0500 
»*««»»»•*»»»»»»»***»»**«••*»»•*•*»♦»»»»***********• 



READ 1ST BOOT 
SENSE READER 



READ 2N0 BOOT 
SENSE READER 



TOOT XIO L R80T1 

XIO L DSWOQ 

BSC L »-4,E 

XIO L RB0T2 

XIO L DSWOQ 

BSC L »-4,E 

» 

• READ AND CHECK CARD 2 AND 3 OF AUX 

* * LOADER 
HDX FIRA 

FIRSQ LO t CEOFX 



PART NO. 2196455 
PACE 40A 



3AC03400 

8AC03410 

8AC03420 

8AC03430 

8AC03440 

8AC034S0 

8AC03460 

8AC0J470 

8A003480 

8AC03490 

BACOSSOO 

8AC03510 

3AC03520 

8AC03533 

8AC03S40 

aAC03550 

8AC03560 

8AC03570 

8ACO3580 

8AC03590 

8AC03600 

8AC03610 

8A003620 

8AC036dO 

8AC03640 

8AC03650 

8A00366a 

8A003670 

8AC03&80 

8AC03690 

8&C03700 

8AC03710 

8AC03720 

8AC03730 

8A003740 

8AC03750 

8AC03760 

8AC03770 

3AC03780 

8A003T93 

8AC03800 

8AC03810 

8AC0382a 

8AC03830 

8AC03a40 

8AC03850 

8AC03860 

8A0O387O 

8AC03880 

8AC03890 

8AC03900 

8A003910 

8AC03920 

8AC03930 

8AC03940 

8AC03950 

8A003960 

eAC03970 

8AC03980 

8A003990 

8AC04000 

8A0040IO 

8AC04020 

aAC04030 

SAC04040 

8AC040S0 

8AC04060 

8AC04070 



I 

i 



PROG 10 
PACE 



08AC-0 
40 



DATE 
EC NO. 



28FEB66 
41S120 



PROG 10 
PACE 



OPAC-0 
tOA 



I n 
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i ( C 1 i ( 1 I ( ( ( I 1 ( c < 

c ( (■■ ( ( i I ( k . -, C ■ ( 



IBH MAINTENANCE DIAGNOSTIC PROGRAM FDR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1627 



PART NO. 
PAGE 



21964S5 
41A 



OEAl 0006 




STO 




FIRA 




8 ACQ 40 80 




0EA2 00 0C000D7S 


KK 


XIO 


L 


ROIX 


READ CARD 


8AC04093 




OEA* 00 0C000E8E 




XIO 


L 


OSKOQ 


SENSE READER 


8AC04100 




0EA6 00 ^CO'iOEA* 




BSC 


L 


♦-4,E 




8AC04110 




0EA8 70F6 


FIRA 


«0X 




FIRSO 


MOX OR NO OP 


8 ACQ 41 20 




0EA9 6126 




LOX 


1 


38 




8AC04130 




3EAA 00 C40COD78 




LO 


L 


ROIX 1 




8AC04I40 




OEAC, D006 




STO 




CMEC2*! 




8AC041S0 




OEAO 00 CA000086 




LD 


L 


CEOFX 




8AC04160 




DEAF 1302 




SRA 




2 




8AC041TO 




OEBO 00 D«OO0D86 




STO 


L 


CEOFX 




SAC04180 




3EB2 00 85000000 


CHEC2 


A 


LI 







8AC04199 




OEB* TIFF 




KOX 


1 


-1 




8AC04200 




0EB5 70FC 




MOX 




CHEC2 




8AC04210 




0EB6 4820 




esc 




2 


SKIP CARD IN CORE OK 


8&C04220 




0EB7 70FF 


A 


«0X 




A 


FAILED TO LOAO AUX LOADER 


8AC04230 




0E38 00 T41B0D78 




CD* 


L 


ROIX, 27 


" 


8AC04240 




0E8A 00 C4000D86 




LO 


L 


CEOFX 




8AC04250 




OEBC 00 F4000D87 




EOR 


L 


CEOX 




8AC04260 




OEBE 00 4C200EA2 




BSC 


L 


KX,2 


BR READ MORE CARDS 


8AC04270 






• 






THE ACTUAL AUX LOADER IN CORE OK 


8AC04280 






• 






READ OVERLAY CARDS 


8AC04290 




OECO 00 <iC00005D 




BSC 


L 


HEXA 




8AC04300 






«•**»••«*»*««»«***»«»»**»«*«»**••«•«••*(.»*•*••••••• 


8AC04310 






• 










8AC04320 






• 










8AC04330 






♦ 


BOOTSTRAP PUNCH 


ROUTINE 


8AC04340 






* 










8AC043S0 




0EC2 00 55000500 


BOOT 


LOX 


LI 


/500 


SET AOOR OF DATA 


8AC04360 




OEC* 00 60000CEC 




STX 


LI 


PUN 


» TO BE PUNCHED JBOOT 11 


8AC04370 




0EC6 6128 


LA 


LOX 


1 


40 


COUNTER 


8AC04380 




0EC7 6200 




LDX 


2 







8ACt)4390 




0EC8 00 6700033S 




LOX 


L3 


/335 


PUKCH TABLE ADDR AT /336 


8AC04400 




3ECA 00 C4000CEC 




LD 


L 


PUN 




BAC04410 




OECC 0003 




STO 




SPLAS+l 




8AC04420 




OECO lOAO 


NIGS 


SLT 




32 




8AC04430 




OECE 7301 




KDX 


3 


1 




8AC04440 




OECF CO C6000000 


SPLAS 


LO 


L2 





OBTAIN DATA FROM CARD READ 


8AC04450 




3E01 1808 




RTE 




24 




8AC04460 




0ED2 00 07000000 




STO 


L3 





STORE IN PUNCH TABLE 


8AC04470 




0ED4 7301 




HOX 


3 


1 




8AC04480 




0E05 1098 




SLT 




24 




8AC04490 




OEOO 00 D7000000 




STO 


L3 





STORE IN PUNCH TABLE 


8AC04500 




0E08 7201 




KOX 


2 


I 




8AC04510 




0ED9 71FF 




MOX 


1 


-1 




8AC04S20 




OEDA 70F2 




MOX 




NIGS 




8AC04530 




OEOB 00 C400038S 




LO 


L 


/3S5 


PLACE PUNCH TERMINATOR 


8AC04540 


* 


OEOO OC EC000CE9 




OR 


L 


TWELV 


• 


8AC04550 




OEOF 00 04000385 




STO 


L 


/385 


» 


8AC04560 




OEEl 00 0C000E8E 




XIO 


L 


DSHOQ 


SENSE DEVICE STATUS 


8AC04570 




0EE3 00 OCOOOCFO 




XIO 


L 


PUNCH 


PUNCH CARD IN 8-8" FORMAT 


8AC04S80 




OEES 00 OC0O0E8E 




XIO 


L 


DSWOQ 


SENSE READER 


8AC04S90 




0EE7 00 4C040EE5 




BSC 


L 


»-'..e 




8AC04600 




0EE9 00 65000550 


GO 


LOX 


LI 


/550 


SET ADDR OF DATA TO BE 


8AC04610 




3EEB 00 60000CEC 




STX 


LI 


PUN 


• PUNCHED IBOOT 2> 


8AC04629 




OEEO 00 4C000CFA 


ABO 


BSC 


I 


BOO 




8AC04630 






***•••••*****•****»******•*•******»****»*•**•***•** 


8AC04640 






• 










8AC04650 






* 










8AC04660 






• 


AUX LOADER PUNCH ROUTINE "• 


8AC04670 






• 










8AC04680 




OEEF 00 65000600 


LOAO 


LOX 


LI 


/600 


SET AOOR OF DATA TO BE PU 


8AC04690 




OEFl 00 60000CEC 




STX 


Lt 


PUN 




8AC04700 




0EF3 00 4C00000A . 




BSC 


L 


MORE 




8AC04710 






•*•*••****••***»••»*•******••*••*•••••••••••**••*•• 


8AC04720 




0EF5 00 C4000CF1 


EDIT 


LO 


t" 


PUNCH»l 




8AC04730 




0EF7 00 ECOOOCE* 




OR 


L 


AREA 




8AC04740 




0EF9 00 04000CF1 




STO 


L 


PUNCH»t 




8AC0475e 




DATE 28FEB6« 












PROC to 


08AC-d 


EC NO. 415120 












PACE 


41 



OEFB 


00 


C4000077 


LO 




STRD»I 


OEFD 


00 


EC0OOCE4 


OR 




AREA 


OEFF 


00 


04000077 


STO 




STRD*l 


OFOl 


00 


C4000079 


LO 




RDIX*1 


0F03 


00 


EC000CE4 


OR 




AREA 


0F05 


00 


04000079 


STO 




ROIX^I 


0F07 


00 


C400007B 


LD 




R30T1+1 


0F09 


00 


EC00CCE4 


OR 




AREA 


OFOB 


00 


04000O7B 


STO 




RBOTl*! 


OFXJD 


00 


C4000D7D 


LO 




R80T2»t 


OF OF 


00 


EC000CE4 


OR 




AREA 


OFll 


00 


D400DD7D 


STO 




R30T2*l 


0F13 


00 


C4000D7F 


LO 




ESH»1 


0F15 


00 


EC000CE4 


OR 




AREA 


0F17 


CO 


D400007F 


STO 




ESM*l 


0F19 


00 


C4000081 


LO 




REDSW*l 


OF!B 


00 


EC000CE4 


CR 




AREA 


OFIO 


00 


04000081 


STO 




REDSW*I 


OFIF 


00 


C4000E80 


LD 




R0IN*1 


0F21 


00 


EC000CC4 


OR 




AREA 


0F23 


00 


D4000E80 


STO 




R0IN*1 


DF25 


00 


C4000ESF 


LO 




0SW0Q*l 


0F27 


00 


EC000CE4 


OR 




AREA 


0F29 


00 


D4000E8F 


STO 




OSoOQ*-! 


0F28 


00 


4C000E67 


BSC 




SLA 


0F2E 




OEFS 


END 




EDIT 



8AC04760 
8AC04770 

8 ACQ 47 80 
8AC04790 
eAC04800 
8AC04810 
SAC04820 
8AC04830 
8AC04840 
8AC04850 
8AC04860 
8AC04870 
8AC04880 
8AC04890 
8AC04900 
8AC04910 
8AC04920 
8AC0493a 
8AC04940 
8AC049S0 
8AC04960 
8AC04970 
8AC04980 
8AC04990 
8AC05000 
8AC05010 



DATE 
EC NO. 



28FEB66 
415120 



PROC 10 
PACE 



08AC-0 
41* 



^1 -> 



( t ( 



( ( ( ( • ( ( ( ( (' C C i c ■ < 
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SYMBOL 

A 

ABB 

ABO 

ADO 

AREA 

AUXX 

BBS 

BIQA 

BITS 

BLA 

BLK 

BOO 

BOOT 

BTl 

BT2 

bT3 

COIN 

CEOFF 

ceoFx 

CEOX 

C'lECK 

CHECZ 

DEOFF 

CHECK 

OSHOa 

D300 

LOIT 

EOR 

ESi< 

FEED 

FFFF 

FIRA 

FIRSO 

GO 

HASH 

HB05 

Ha06 

HBIO 

HES 

HEXA . 

HTBl 

HTB2 

HTDB 

HTIO 

INIZA 

KK 
LA 

LBOS 

LB06 

LBIO 

LBIS 

LH05 

LO 

LOAD 

MOO 

MOR 

MORE 

HSK 

MSK2 

MSK3 

NIG 

NIGS 

MUM 



VALUE 

OEBT 

OEM 

OEED 

0CE6 

0CE4 

0007 

OE73 

0E20 

0D85 

0E67 

OOSA 

OCFA 

0EC2 

OOdB 

0DC7 

''OCl 

0E17 

0CF2 
0086 
0D37 
0010 
OfcBZ 
0£90 
0E7C 
0E8E 

0E91 

0EF5 

0CE8 

007E 

008* 

0CE5 

0EA8 

0E9F 

0EE9 

002« 

O0D2 

OOOE 

OOEO 

OODB 

0050 

0E07 

OEOO 

00F6 

OEOO 

0E8A 

0E~2 

0EC6 

ODAl 

0DA8 

OOBO 

ODBA 

OOCO 

0CF9 

OEEF 

0CF3 

0001 

ODOA 

0D74 

00S2 

0083 

0035 

OECD 

002A 



REFERENCES 

0EB7 

0E75 

OCFB 

0D22 

0EF7,OEfOtCF03t0F09,OF0Fi0Fl5i0FlB,OF21tOF27 

CCF5 

0E86 

03A6 

OCF3,0E6F 

0E6'Jt0F2B 

OEEO 
0CF7 
0DO3 
0006 
0009 
006F, 0076, 008Ei0O91tOD95f00Al,OOAA,00A0fOOAE. OOCO. 

OD£2.00EE,OE67 

ODIA.OOIC 

OE9F,OEA0,0EBO.0EBA 

OEBC 

0013.0020 

OEAC.0EB5 

0E7A,0E7C,0E85 

0£79,0E80 ^, ^^,, 

0001, 0056, 0t67,OE7«,OE94,0E9A,0EA4,OEEl.OE€5.OF25, 

OF 29 

OOSD 

0F20 

0CFF,0D2C 

0D63,0F13.0F17 

0E6D 

0021 

0E9E.OEA1 

OEAS 

0019 

0071 

OOF 3 

OOES 

003F,OOC5tOOCa 

OEBStOECO 

ODFC 

0E03 

OOE6.00FE.0EOS 

OOF 7 

OEBl 

OEBE 

OOOS 

0090 

0001 

0DA9.0DB7 

00 A 2 

00E4,00F* 

OCFA 

0CF9 

00A4 

0003 

005A,0EF3 

O06i' 

0366 

006A - 

0042 

OEBfc 

0017 



1 I 
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0027.0029 

00A3.CD35.0DCF,00D0.00EC.COFO 

0D09.0C0S, 00 16. 0033.00*9. CDS*. OEC4.0ECA,OEEB,OEFl 

0D'i8.0££3,0£F5,0EF9 

0fc92,0FO7,0FOB 

OE93.CF00.OF11 

Oe73,O£78.0t83.0FlF,0F23 

0EA2.CEAA.0EB8,0F01.0F05 

CD3S 

0064,0060 

0068 

0067 

0069 

0DoE.0F19.0F10 

OOOC 

004* 

0000 

004B 

0073 

009C 

009A 

0080 

0E6A 

ODSa 

003* 

OECC 

0052 

ODEl 

0E71 

0045 

005F 

0020 

0010.0040 

0014. 0051 



PART NO. 2196^5 
PAGE 42)L^ 



NUM6E 


0CE7 


PC AM 


00B9 


PUN 


OCEC 


PUNCH 


OCFO 


RBOTl 


007A 


RaOT2 


007C 


RDIN 


0E8C 


RDIX 


0078 


R005 


0061 


R020 


0062 


R025 


0063 


R030 


006A 


R040 


006C 


R050 


006E 


RD55 


0071 


REDSW 


0080 


SAV 


OOOE 


SAVA 


004E 


SAVE 


0012 


SAVEA 


0052 


SBOS 


0088 


SB06 


008A 


SBQ7 


0088 


SBIO 


0094 


SENBI 


OCEE 


Si. 


009E 


SPLA 


0037 


SPLAS 


OECF 


STRO 


0076 


TEMPI 


00F5 


TOOT 


0E92 


TwELV 


0CE9 


UPPER 


012A 


MAIT 


0058 


X38 


OCEA 


X39 


OCEB 



J.OEFB.OEFF 
1>00E« 

.OEOO 
.0OA3.O0B0.ODC3.0DC9 



EC NO. 



28FEB66 
415120 ' 



PROG 10 
PACE 



08AC-0 
42 



DATE 

EC NO. 



28FEB66 
415120 



PROG 10 
PACE 



08AC-0 
42* 
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I8H MAINTENANCE OfAGNOSTIC PROGRAM FDR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAN 
AUX 1316 



C I (■ C. C, (.- ( < ( ^ i : ( r ( ( 



PART NO. 219645S 
PACE <.i 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1816 



PART NO. 21964S5 
PACE «3A 



02BC 



0800 



ABS 
ORG 

AREA EQU 

♦ IF 

* WITH A DI 

• REFER TO 

* BE CHANGE 

• MODIFIED 
» GENERATOR 



/36 

/0800 

THIS PROG IS 
FF AREA CODE 
THE LAdEL A 
P BY HEX CORR 
AUX 8-8 08JEC 

WRITE-UP ;0R 



1ST 1053 AREA CODE 
TO BE USED FOR A MACH 
ALL THE LOCATIONS WHICH 
REA IN SYMBOL TABLE MUST 
ECriON CARDS TO OBTAIN A 
T DECK. SEE AUX CE PROG 
fWOCEOURE. 



* 
* 

* 
« 

* 
* 



1816 SKELETON PROGRAM 
(SEE AUX CE PROG GENERATOR 

THIS PROG CAN NOT BE LOADED F10H PAPER TAPE 



PURPOSE 

THE PURPOSE OF THIS PROGRAM IS 
TO PROVIDE A SKELETON PROGRAM 
UPON WHICH THE CE CAM WRITE AN 
AUX STORAGE PROGRAM. 



GENERAL INSTRUCTIONS 

CE SWITCH SETTINGS 

OOOOllll CE SERVICE STOP 

millll TERMINATE PROGRAM 

ALL OTHER COMBINATIONS ARE STORED 

* AT THE LOCATION CESW FOR 

* POSSIBLE USE BY THE CE TO 

* CONTROL HIS PROGRAM 



• 
•1BM*IBM*IBH»IBM*IBM*IBM*IBH*IBM»IBM»IBM»IBN»IBH»I 

• CORRECTIONS FOR THE FOLLOWING 27 » 

• WORDS MUST BE MADE IN THE CARD • 

• NUMBERED X OF TnIS AUX PROGRAMS » 

• 7 CARD OBJECT DECK. • 
•lBH*IBH*IBH*IBH»IBM*IBK*I8H*IBM»iaH*IBM*IBM»IBM»I 



0036 

0037 


COIS 
OOFO 


0038 

0039 


COlO 
DOCA 


003A 
303B 
003C 


0819 
6A21 
6822 


DATE 
EC NO. 


• 

28FEa&« 
415120 






AUX PROG ENTRY POINTS 
1ST PASS ENTRr 



LO 
STO 

LO 
V STO 



DSW52 
/35 



CEOFF 
/O* 



RESTORE LOC NICE 

* IN AUX LOADER 

PLACE BRANCH 

• TO RETUR LABEL 



RETUR XIO 



ALL BUT 1ST PASS ENTRY POINT 
CEON SET DEVICE IN CE MODE 



STK 2 SAVE2»1 
STX 3 SAV£3*I 



SAVE INDEX REGISTER 2 
SAVE INDEX REGISTER 3 



8AC41340 
8AC413S} 
8AC41360 
8AC«1370 
SAC<rl380 
8AC41390 
8AC<>1400 
8AC41410 
8AC41420 
8AC41430 
8AC41««0 
SAC^l^SO 
8AC41460 
aAC4l470 
8AC41480 
8AC41490 
8AC41500 
SACVlSia 
8AC41520 
SAC<^1S30 
8AC41S40 
8AC41S50 
8AC41S60 
8AC41570 
SACVISBO 
8AC41S90 
8Ar«1600 
eAC<^1610 
8AC41620 
8AC41630 
6AC41640 
8AC'V16S0 
8ACA^1660 
8AC41670 
8AC41680 
8AC41690 
eAC41700 
8AC41710 
8AC41T20 
8AC41730 
8AC41740 
8AC417S0 
8AC41760 
8AC41T70 
8AC41780 
8AC41799 
8AC41S00 
SACtiaiO 
8AC41820 
8AC41830 
8AC4ie40 
8AC418S0 
8AC41860 
8AC41870 
8AC418S0 
8AC41890 
8AC41900 
8AC41910 
8AC41920 
8AC41930 
8AC41940 
8AC4t9S0 
eAC«1960 
8AC41970 
8AC«1980 
8AC41990 
8AC42000 
8AC420ia 



PROG 10 
PACE 



004C 00 4C00006C 
OO'iE 00 4C000058 



0050 0000 
0050 OOFF 



0051 





0760 


0052 





7007 


0053 





0F03 


0054 





OOFO 


0055 





0803 


005» 





7035 


0057 





0802 



0058 00 65000813 
005A 69A9 
005B 08FA 



005C OC 66000000 
005E 00 67000000 

0060 70AC 



0051 O 70F6 

0062 0000 

0062 0000 

0063 0000 



08AC-0 
43 



0064 

0065 



DATE 
EC NO. 



006B 
0902 



SENSE DEVICE STATUS 
SAVE DEVICE STATUS 
SENSE CE PROG SW TO ACCUM 
BLOCK OUT PROG SEL SH 
SAVE CE PROG S4 SETTINGS 

BR TERMINATE PROGRAM 

BR SERVICE STOP 

SET TERCINATOR BR AT END 
• OF AUX CORE AS A SAFETY 
• * PRECAUTION 

BSC I CEGO BR TO 00 IT YOURSELF PROG 
TERM SSC L NOTRD TERMINATOR BRANCH 
•••«*«••*»♦»**»»*♦*»»*****»»**»»**»»*»»»»*•»****»»* 

• 



0030 


0814 


XIO 




DSW52 


003E 


0024 


STO 




STATU 


003F 


0810 


XIO 




SENBI 


0040 


Eoor 


AND 




SENBI 


0041 


DOZO 


STO 




CESW 


0042 


FOOD 


EOR 




SENBI 


D043 00 


4C180058 


BSC 


L 


NOTROt*- 


0045 


FOOE 


EOR 




CEON 


0046 00 


4C18005C 


BSC 


L 


SAVE2,*- 


0048 00 


CC00004E 


LOO 


L 


TERM 


304A 00 


OCOOOOFE 


STO 


L 


/OOFE 



CONSTANTS AND/OR lOCC WORDS 



/OOFF TERMINATOR CONSTANT 



■ BSS 
SCNBt OC 

« 
• 
*IE<'*lEM«IBM*tBM*lBM*IBH*IBH»IBM*IBM»IBM*IBH*I8H»I 

• CORRECTIONS FOR THE FOLLOWING 27 * 

• WORDS MUST BE MADE IN THE CARD • 

• NUMBERED OF THIS AUX PROGRAMS » 

• 7 CARD OBJECT DECK. » 
» I EH* 1 6H e I B K» I BM« 1 BM* I BM* 1 BM* I BM* I BM* I BM ♦ I BM* I BH* I 



OC /0760 SENSE CE SWITCHES 

DSW52 DC NNNN 

DC /0703*AREA RESET DEVICE STATUS lOCC 

CEON OC /OOFO CE SERVICE STOP CONST 

DC /0003+AREA CE ON WORD 

CEOFF DC TTTT 

OC /0002*AREA CE OFF WORD 

EXIT POINTS TO AUX LOADER 

TERMINATE EXIT POINT 

NOTRD LDX 11 WWWW 

STX 1 /04 

XIO CEOFF REMOVE DEVICE FROM CE MODE 
• 

• NORMAL EXIT POINT 

lOX L2 « 

LOX L3 



SAVE2 
SAVE3 



KOX OQOO 
«*»»»**«»»*»«-«*»»»»»***c»****»»»»* »»*«•»*♦*♦* 



• 

MDX 
BSS 

CESW DC 

STATU DC 

• 

WRITE DC 
OC 



THE FOLLOWING CONSTANTS AND lUCC 
WORDS HAS BEEN PLACED HERE TO AID 
THE CE IN HIS PROGRAMMING EFFORT. 



NOTRD 






THIS LOC IS NOT USED 

CE PROGRAM SW SETTING 
DEVICE STATUS WORD 



OUTWO REFERS TO OUTPUT CHAR. 
/0102«AREA lOCC XRITE WORD 



28FE86* 
415120 



8AC42020 
8AC42030 
8AC42040 
8AC42050 
8AC42060 
8'<C42070 
8AC42080 
8AC42090 
8AC42100 
8AC42110 
BAC42120 
8AC42130 
8AC42140 
8AC42150 
8AC42160 
8AC42170 
eAC42180 
8AC42I99 
BAC42200 
8AC42210 
8AC42220 
eAC42230 
8AC42240 
8AC42250 
8AC4226a 
8AC42270 
8AC42280 
8AC42290 
8AC42300 
8AC42310 
8AC42320 
8AC42330 
8AC42340 
8AC42350 
8AC423&0 
8AC42370 
8AC42380 
8AC42390 
8AC42400 
8AC42410 
8AC42420 
8AC42430 
8AC42440 
8AC42450 
8AC42460 
8AC424T0 
8AC42480 
8AC42499 
8AC42500 
GAC425)0 
8AC42520 
8AC42S30 
8AC42540 
8AC42550 
8AC42560 
8AC42570 
8AC42580 
8AC42590 
8AC42600 
8AC42&10 
eAC42620 
8AC42630 
8AC42640 
8AC426S0 
8AC42660 
8AC42670 
8AC42680 
8AC42690 



PROG ID 
PAGE 



08AC-0 
43* 



(, ( ( 



L i 1 ( C ( ( C < 
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u 



tBH MAINTENANCE DIAGNOSTIC PROCRAH FOR THE 1800 SySTEN 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1816 



PART NO. 21964SS 
PACE «« 







* 






8AC42700 


0066 


006A 


HEAD 


DC 


INWO REFERS TO INPUT CHAR. 


8AC42710 


0067 


OA02 




OC 


/0202tAREA lOCC READ CHAR HORO 


8AC42720 
8AC42730 


0068 


70EF 


:trl 


KDX 


NOTRO THIS WO IS NOT USED - 


8AC42740 


0069 


0C02 




OC 


/0402tAREA lOCC CTRL HO TO PLACE 


8AC42750 










KEYBOARD IN READY STATUS 


8AC42760 












8AC42770 


306A 


0000 


INWO 


OC 


INPUT CHAR PLACED HERE 


8AC42780 


0063 


0000 


3UTW0 DC 


PLACE OUTPUT CHAR. HERE 


8AC42790 






»(***»**»»»•«*»* »««*««*«»«t»2***«» »*«*«« *««»*«#***« 


8AC42800 












8AC42810 












8AC42820 




^ 


»IBH« 


IBN*IBM»IBM*IBH»IBM»IBH*IBH*IBH*IBH»IBM»I'JH*I 


8AC42830 










CORRECTIONS FOR THE FOLLOWING 27 * 


8AC42840 


"■ 








WORDS MUST BE MADE IN THE CARD ♦ 
NUMBERED I OF THIS AUX PROGRAMS * 
7 CARD OBJECT DECK. • 


8AC428S0 
8AC42S60 
8AC42870 






»IBK« 


IBM»IBH*IBH*IBH»I8M»1BH*IBH»IBH*IBM»IBH*I8H*I 


8AC42880 












8AC42890 












8AC42900 












8AC42910 












8AC42920 












8AC42930 










THIS IS THE STARTING POINT OF YOUR 


8AC42940 










PROGRAM. 


8AC42950 










FROM HERE ON YOU ARE ON YOUR OWN, 


aAC42960 










GOOD LUCK. 


8AC42970 
8AC42980 
8AC42990 


006C 


70EB ^ ( 


;ego 


HDX 


NOTRO 1ST LOC OF YOUR PROGRAM 
BRANCH TO LOCATION SAVE2 WHEN 
EXITING FROM YOUR PROGRAM. 


8AC43000 
8AC43010 
8AC43020 


0060 


70EA 




HOX 


NOTRO 


8AC43030 


006E 


70E9 




MOX 


NOTRO 


eAC43040 


006F 


70E8 




MOX 


NOTRO 


8AC43050 


0070 


70E7 




KOX 


NOTRO 


8AC43060 


0071 


70E6 




MOX 


NOTRO 


8AC43070 


0072 


70E5 




MOX 


NOTRO 


8AC43080 


0073 


70E4 




HDX 


NOTRO 


8AC43090 


0074 


70E3 




MOX 


NOTRO 


8AC43100 


0075 


70E2 




MOX 


NOTRO 


8AC43110 


0076 


70E1 




MOX 


NOTRO 


8AC43120 


0077 


70E0 




HDX 


NOTRO 


8AC43130 


0078 


700F 




MDX 


NOTRO 


3AC43140 


0079 


700E 




HOX 


NOTRO 


8AC43150 


007A 


70 DO 




MOX 


NOTRO 


8AC43160 


007B 


70DC 




MDX 


NOTRO 


8AC43170 


00 7C 


70DB 




MOX 


NOTRO 


8AC43180 


0O7O 


70DA 




MDX 


NOTRO 


8AC43190 


00'7E 


70D9 




MOX 


NOTRO 


8AC43200 


007F O 


7008 




HOX 


NSTRO 


6AC43210 


0080 


7007 




MOX 


NOTRO 


8AC43220 


0081 


7006 




HDX 


NOTRO 


8AC43230 


0082 


7005 




HDX 


NOTRO 


8AC43240 


0083 


7004 




MOX 


NOTRO 


8AC43250 


0064 


7003 




HDX 


NOTRO 


8AC43260 


0085 


7002 




MDX 


NOTRO 


8AC43270 


0086 


7001 




MDX 


NOTRO 


8AC43280 
8AC43290 
8AC43300 






IBM* 


IBK»IBM*lBM*IBM»IBH*IBM*IBM*IBH»ieM*IBM»IBM*I 


8AC43310 










CORRECTIONS FOR THE FOLLOWING 27 »" 


8AC43320 










WORDS MUST BE MADE IN THE CARD * 


8AC43330 










NUMBERED 2 OF THIS AUX PROGRAMS • 


8AC43340 










7 CARD OBJECT DECK. ♦ 


8AC43350 






IBM* 


IBM*IBM»IBM»IBM»IBM»IBH*IBM*I8H*IBM*lBM*IBH*f 


6AC43360 












8AC433T0 


DATE 


28FEB66 






' 


PROG 10 08AC-0 


EC NO. 


.415120 








PACE 44 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1816 



0087 





7000 


0088 





70CF 


0089 





70CE 


OOSA 





70C0 


0088 





70CC 


008C 





70C8 


0080 





70CA 


008E 





70C9 


008F 





70C8 


0090 





70C7 


0091 





70C6 


0092 





70C5 


0093 





70C4 


0094 





70C3 


0095 





70C2 


0096 





70CI 


0097 





70C0 


0098 





70BF 


0099 





70BE 


009A 





708D 


0096 





70 BC 


009C 





7088 


0090 





70BA 


009E 





70B9 


009F 





70B8 


OOAO 





7087 


OOAl 





70 B6 



HO* 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRD 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRD 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 



*IBM*IBM*IBH«IBH»IBM»|BM*IBM*IBH»IBH»IBM»IBH*IBM*I 

• CORRECTIONS FOR T>IE FOLLOWING 27 » 

• WORDS MUST BE MADE IN THE CARD • 

• NUMBERED 3 OF THIS AUX PROGRAMS » 

• 7 CARD OBJECT DECK. » 
•I0M*IBH»IBH*I8H*16H*IBM»IBH»IBM»IBM»IBM*IBM*IdM»I 
• 



0OA2 





70 B5 


MOX 


NOTRO 


00A3 





70 B4 


MOX 


NOTRO 


00A4 





7083 


MDX 


NOTRD 


00A5 





7082 


MDX 


NOTRO 


00A6 





7081 


MOX 
MOX 


NOTRD 


00A7 





7080 


NOTRO 


00A8 





70 AF 


MOX 


NOTRD 


00A9 





70AE 


MDX 


NOTRO 


OOAA 





70A0 


MDX 


NOTRO 


OOAB 





70 AC 


MDX 


NOTRO 


OOAC 





70AB 


MDX 


NOTRD 


OOAO 





70AA 


MDX 


NOTRD 


OOAE 





70A9 


MOX 


NOTRO 


OOAF 





T0A8 


MDX 


NOTRO 


OOBO 





70AT 


MDX 


NOTRO 


OOBl 





70A6 


MDX 


NOTRD 


00B2 





70 AS 


MOX 


NOTRO 


0OB3 





70A4 


MDX 


NOTRO 


00B4 





70A3 


MDX . 


NOTRO 


0085 





70A2 


MOX 


NOTRO 


00B6 





70A1 


MOX 


NOTRO 


0087 





70A0 


MOX 


NOTRO 


0C38 





709F 


MOX 


NOTRO 


0039 





709E 


MOX 


NOTRO 


OOSA 





7090 


MOX 


NOTRO 


eoBB 





709C 


HOX 


NOTRD 


ODBC 





709a 


MDX 

• 


NOTRO 








• 
•IBM•tBM•IBM*IBM•IB^ 


DATE 




28FEB66 






EC NO 


. 


415120 




- 



PART NO. 219645S 
PAGE 44A 



8AC43380 

8AC43390 

8AC4340a 

8AC43410 

8AC4i420 

8AC43430 

8fiC43440 

8AC434S0 

8AC43460 

8AC43470 

8AC434a0 

8AC43490 

8AC43S00 

8AC43S10 

8AC43520 

8AC43S30 

8AC43540 

8AC43S50 

8AC43S60 

8AC43570 

8AC43580 

8AC43590 

8AC43600 

8AC43610 

8AC43620 

8AC43630 

8AC43640 

8AC436S0 

8AC43660 

8AC43670 

8AC43680 

8AC4J690 

8AC43700 

8AC43710 

8AC43720 

8AC43730 

8AC43740 

SAC43750 

8AC43760 

8AC437 70 

8AC43780 

8AC43790 

8AC43800 

8AC43810 

8/C43820 

8AC43830 

eAC43840 

8AC43850 

8AC43860 

8AC43870 

8AC43880 

8AC43890 

8AC43900 

8AC43910 

8AC43920 

6AC43930 

8AC43940 

8AC43950 

8AC43960 

8AC43970 

8AC43980 

8AC43990 

8AC4400a 

8AC44010 

8AC44020 

8AC44030 

8AC44040 

8AC44050 



PROG 10 
PAGE 



08AC-0 
44A 



i 



I. ( ( ( C i C ( C ( ( <((<( 1_( (((((<((((( ( C 1 ( ( 



I \ 



( ( 



(■ C ( 



I8H HAINTENANCe DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PRCCRAH GENERATOR UTILITY PROGRAM 
AUK 1816 



CORRECTIONS FOR THE FOLLOWING 27 * 
WORDS MUST BE HADE IN THE CARD * 
NUMBERED t, OF THfS AUX PROGRAMS • 
7 CARD OBJECT DECK. ♦ 

1BM*IBM»I0M»IBH»1BM»IBH*IBH*1BH»IBM»IBH»I8M»I8M»I 



OOBO 





709A 


OOBE 





7099 


OOBF 





7098 


OOCO 





7097 


OOCl 





7096 


00C2 





7095 


00C3 





703» 


00C4 





7039 


OOCS 





7038 


00C6 





7037 


0OC7 





7036 


00C8 





7035 


0OC9 





703* 


OOCA 





7C33 


OOCB 





7032 


OOCC 





7031 


OOCO 





7030 


OOCE 





702F 


OOCF 





702E 


0000 





7020 


OODl 





702C 


0002 





7028 


0OD3 





702A 


0004 





7029 


0005 





7028 


0006 





7027 


0007 





7026 



0008 


7025 


0009 


7024 


OOOA 


7025 


0008 


7022 


OODC 


7021 


0000 


7020 


oooe 


70 IF 


OOOF 


701E 


OOEO 


7010 


OOEt 


701C 


00E2 


701B 


00E3 


70 1« 


00E4 


7019 


DOES 


7018 


00E6 


7017 


0OE7 


7015 


0OE8 


7015 


0OE9 


701* 


OOEA 


7013 


00E8 


7012 


OOEC 


7011 


OOEO 


7010 


OOEE 


700F 


OOEF 


7006 


DATE 


28FEB66 


EC NO. 


415 120 



KDX 
HOX 
MDX 
KDX 
MDX 
HOX 
MDX 
HOX 
MOX 
MOA 
MDX 
MOX 
MOX 
MDX 
MDX 
MDX 
, HOX 
MOX 
MDX 
MOX 
MOX 
MOX 
MDX 
MOX 
HOX 
MDX 
MDX 

•IBM»IBH*IBM* 



*IBM*IBM*IBH» 

• - 

MOX 

MOX 

HOX 

HOX 

HOX 

HOX 

HOX - 

HOX 

HOX 

MOX 

MOX 

MOX 

HOX 

HOX 

MOX 

MOX 

MOX 

MOX 

HOX 

MOX 

HOX 

MDX 

HOX 

MCX 



NOTRO 
NOTRO 
NOTRO 
NOTRO 
NOfRP 
NOTRO 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 



IBH*I8*(*IBH*IBH»IBM»IBh*IBM*IBM»IBH*l 
CORRECTIONS FOR THE FOl LOWING 38 • 
WORDS MUST BE MACE IN THE CARD • 
NUMBERED 5 OF THIS AUX PROGRAMS ♦ 
7 CARD OBJECT DECK. • 

IBM*IBM»IBM»1B'<»IBM»IBM*IBM*IBM»IBH»I 



/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OJFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/OOFE 
/00F£ 
/OOFE 
/OOFE 
/OOFE 



PART NO. 21964SS 
PACE *$ 



8AC44060 

8AC4<>070 

8AC4't080 

8AC'V'V090 

aAC4<>100 

8AC44110 

8AC44120 

8AC44130 

8AC44U0 

8AC44150 

eAC4*l69 

8AC44170 

8AC44180 

8AC4419a 

8AC44200 

8AC442I0 

8AC44220 

8AC44230 

SAC44240 

8AC44250 

8AC44260 

8AC44270 

8AC4428a 

8AC44290 

8AC44300 

8AC44310 

8AC44320 

8AC44330 

8AC44340 

8AC44350 

8AC44360 

8AC44370 

8AC44380 

8AC44390 

8AC44400 

8AC44410 

8AC44420 

aAC44430 

eAC444-40 

8AC44450 

8AC44460 

8AC44470 

eAC44480 

8AC44490 

8AC44500 

8AC44510 

6AC44520 

8AC44S30 

8AC44S40 

8AC44550 

eAC44S60 

8AC44S70 

8AC44580 

8AC44590 

8AC44600 

8AC44610 

8AC44620 

8AC44630 

8AC44640 

8AC44650 

8AC44660 

8AC44570 

8AC44680 

8AC44690 

8AC44700 

8AC44710 

aAC4*720 

8AC44730 
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OOFO 





7000 




MOX 


/OOFE 










8AC44740 


OOFl 





700C 




MO. 


/OOFE 










8AC44750 


00F2 





7008 




MOX 


/OOFE 










8AC44760 


00F3 





700A 




MOX 


/OOFE 










8AC44770 


00F4 





7009 




MDX 


/OOFE 










8AC44780 


OOFS 





7008 




MDX 


/OOFE 










8AC44790 


00F6 





7007 




MOX 


/OOFE 










8AC4480a 


OOF 7 





7006 




MDX 


/OOFE 










8AC44810 


00F8 





7005 




MOX 


/OOFE 










8AC44820 


00F9 





7004 




MDX 


/OOFE 










8AC44830 


COFA 





7003 




MOX 


/OOFE 










8AC44840 


OOFB 





7002 




MOX 


/OOFE 










8AC44850 


OOFC 





7001 




MDX 


/OOFE 










8AC44860 


OOFO 





7000 




MOX 


/OOFE 










8AC44870 








****** **9»t»*ttiiftm** ***»*»*»««* »t*t»t- ****** »t***»ti 


8AC44880 








* 














8AC4489a 


0000 






QOOQ 


EOU 


/O 


GO 


TO LOADER AT 


/O 


8AC44900 


7007 






NNNN 


EQU 


/70D7 


FOR 


CARD 


LOADER 


AT /35 


8AC44910 


0813 






WWWW 


EOU 


/0813 


SET 


IN LOADER AT 


/04 


8AC44920 


7035 






TTTT 


EQU 


/7000* 


RETUR-/4 


-I 


THIS IS 


EQUAL TO 


8AC4493a 








• 






THE 


BRANCH FROM 


THE LOADER 


8AC44940 








• 






TO 


!«ETUR 


IN THIS 


PROGRAM. 


8AC44950 








************* 


*t****mt ******* **************** ******* 


8AC44960 


OOFE 




OOFO 




END 


*-l 


END 


CARD 


NEVER USED 


8 AC 449 70 



PROS 10 
PACE 



08AC-^0 



DATE 
EC NO. 



28FEB66 
415120 



PROC 10 
PAGE 



08AC-0 
45* 



(. C ( ( ( i i ( ( ( 1 



.; I ^ ( ■ 



C C 



( ( 



i ( i i ( ( ( 

r ' C\ ('■ C ( , T ( 



( ( ( ( ( ( ( C ( ( ( C ( < 

( C O (■ ( ( ( V > . ■: C ( 



t ( 
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CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 


AREA 


0800 


0053 1 005 5iC05 7>0C65>0067t 0069 


CEGO 


006C 


00 4C 


CEOFF 


0056 


0038,0058 


CEON 


0054 


0O3A,0045 


CESU 


0062 


0041 


CTRL 


0068 




DSW52 


0052 


0036,0030 


INWO 


006A 


0066 


NNNN 


7007 


0052 


N3TRD 


0058 


0043, 004E, 0061, 0068, 006C,006D,006E,006F, 00 70, 0071, 
0072, 0073, 0074, 0075,0076, 0077, 00 78. 0079, 007A, 0076, 
007C,t07D,OC7E,007F,0080,008l,0082,0083.0084,0085, 
0086, 0087,0088, 0089, 008 A, COBB, 008C, 0080, 008E>008F, 
0090,0091,0092,0093,0094,0095,0096,0097,0098,0099, 
009A,009B,OC9C.009D,C09E.C09F,OOAO,OOAl,OaM2.00A3, 
00A4,00A5,0CA6,00A7,OOA3,0OA9,00AA,O0Aa,00AC,00AO, 
O0AE,OOAF, 0030,003 1, 0082.0083,0084, 0035 ,0086, 0087, 
00B8,O0B9,0CBA, 0038,0030, 0030, OOBE.OOBF.OOCO.OOCl, 
00C2 


OUTHD 


0C6B 


0064 


OQQQ 


0000 


O06O 


READ 


0066 




RETUR 


003A 


OOFE 


SAvea 


005C 


0033,0046 


SAVE3 


005E 


00 3C 


SENBI 


0050 


003F, 0040,0042 


STATU 


O053 


003E 


TERM 


OO^E 


0048 


TTTT 


7035 


0056 


WRITE 


0064 




WWWM 


0813 


0058 



IBM HAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1ST 2310 



PART N3. 2196455 
PACE 46* 



DATE ^ 28FEB66 
EC NO. 41S120 



PROG 10 08AC-U 
PAGE 4* 











ABS 




8AC44980 




028C 








ORG 


/36 


8AC44990 
8AC45000 








**•**«•*******»,•*»»»**,**,»••»*«**,**•**••*****«•« 8AC45010 




2000 




AREA 


EQU 


/2000 1ST 2310 DISK 


8AC45020 












IF 


THIS PROG IS TO BE USED FOR A HACH 


8AC45030 










WITH A 01 


FF AREA CODE ALL THE LOCATIONS WHICH 


8AC45040 










REFER TO 


THE LABEL AREA IM SYMBOL TABLE MUST 


8AC45050 










BE 


CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 


8AC45060 










MODIFIED 


AUX 8-a OBJECT DECK. SEE AUX CE PROG 


8AC45070 










GENERATOR 


WRITE-UP FOR PROCEDURE. 


8AC45030 








• »«<'*»**«»»»«»*,**,«*,,,»*«*^,,,e**,**»»««*«^ *«»**•* 8AC4S090 
















8AC451O0 
















8AC45110 














1ST 2310 SKELETON PROGRAM 


8AC45120 














(SEE AUX CE PROG GENERATOR 


8AC45130 














* W.<ITE-UP FOR USE PROCEOUREl 


8AC45140 














«»**«****«•*»,,♦*♦***,,**»•*• 


8AC4SI50 










THIS PROG 


CAN NOT BE LOADED FROM PAPER TAPE 


8AC4S160 
















8AC45170 


■ 














8AC45180 
















8AC45199 
















8AC4S200 














PURPOSE 


8AC45210 














THE PURPOSE OF THIS PROGRAM IS 


8AC45220 














TO PROVIDE A SKELETON PROGRAM 


8AC45239 














UPON WHICH THE CE CAN ((KITE AN 


8AC4524a 














AUX STORAGE PROGRAM. 


8AC4S250 
















8AC45269 
















8AC45g70 














GENERAL INSTRUCTIONS 


8AC45280 














CE SWITCH SETTINGS 


8AC4'i290 














OOOOllll CE SERVICE STOP 


8AC45300 














lllUUl TERMINATE PROGRAM 


8AC45310 














ALL OTHER COMBINATIONS ARE STORED 


8AC45320 














* AT THE LOCATION CESW FOR 


8AC45330 














» POSSIBLE USE 3Y THE CE TO 


8AC45340 














* CONTROL HIS PROGRAM 


8AC45350 
















8AC45360 
















8AC45370 








•*•»*******••**»******••******•*•*•**••»**••** 


8AC4S380 














' 


8AC45390 
















8AC4S400 








•I8M*IBM*IBM*IBM*IBM*IBM*IBH*IBH>IBM»IBH*I&H*tBH«I 


8AC45410 














CORRECTIONS FOR THE FOLLOWING 27 • 


8\C4S420 














WORDS MUST BE MADE IN THE CARD • 
NUMBERED X OF THIS AUX PROGRAMS ♦ 
7 CARD OBJECT DECK. • 


8 AC 45430 
8AC45440 
8AC454'S0 








•I6H»IBM*IBM*IBM»IBM»IBM»I8M»IB'1*IBM»IBM*I8M*JBH»I 


8AC45460 
















8AC45470 
















8AC45480 
















8AC45490 














AUX PROG ENTRY POINTS 


8AC45500 














***»*••*•**•*••*»••»• 


8AC45S10 








-• 








8AC45520 














1ST PASS ENTKY 


8AC4SS30 














*,«****••*»*•* 


8AC45549 
















8AC45550 




0036 


COIF 






LO 


0SW52 RESTORE LOC NICE 


8AC45560 




0037 


OOFO 






STO 


/35 » IN AUX LOADER 


8AC45570 
8AC45580 




0038 


C021 






LD 


CEOFF PLACE BRANCH - 


8AC45590 




0039 


OOCA 






STO 


/04 . » TO RETUR LABEL 
ALL BUT 1ST PASS ENTRY POINT 


8AC45600 
8AC45610 
8AC45620 
8AC45630 




003A 


0810 


RETUR 


XIO 


CEON SET DEVICE IN CE MODE 


8AC45640 




0038 


6A2S 






STX 


2 SAVE2*1 SAVE IN3EX REGISTER 2 


8AC4S6S9 




DATE 


28FEB66 










PROG 10 


08AC-0 


EC NO. 


41S120 










PAGE 


46A 






o 



((<((((((((<(((((( 



I ( 



( - 



r c ( 
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PACE «T 







( ( ( < ( 1 < C ( ( ( 1 c 

( ' ( 1 ( ( ( V ^. I, . V X 



1 c < 
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003C 6326 

0330 0818 

003E 0028 

003F EOll 



00^0 
0042 
0043 
0044 
OO'-S 
0046 
0048 
0049 
304B 
004D 



00 04000065 
0811 
EOlO 
0021 
FOOE 
00 4C18005C 
FOOF 
00 4C180060 
00 CC000052 
00 OCOOOOFE 



304F 00 4C000075 



0051 0800 

0052 0000 
0052 00 4C00005C 



0054 




0000 


0054 





OOFF 


3J55 





0760 


0056 





7007 


3057 





2701 


0058 





OOFO 


0059 





2001 


005A 





7035 


0058 





2000 



005C 00 6S0U0813 
305E 69A5 
005F 08FA 



0060 00 66000000 
0062 00 67000000 

0064 70A8 



STX 
XIO 
STO 
AND 
* 

STO 
XIO 
AND 
STO 
EOR 
BSC 
EOR 
BSC 
LOO 
STO 

»IBM»IBM*1 

* 



3 SAVE3*1 
0SW52 
STATU 
GONE 

L HOME 

SENBI 

SEN8I 

CESH 

SENBI 
. NOTPO,*- 

CEON 
. SAve2,*- 
. TERM 
. /OOFE 



BSC L CEGO 



SAVE INDEX REGISTER 3 
SENSE DEVICE STATUS 
SAVE DEVICE STATUS 
REMOVE ALL DEVICE STATUS 
» COND EXCEPT HOME INO. 
PLACE HOME INDICATION MO 
SENSE CE PROG SH TO ACCUM 
BLOCK OUT PROG SEL SM 
SAVE CE PROG SW SETTINGS 

BR TERMINATE PROGRAM 

8R SERVICE STOP 

SET TERMINATOR BR AT END 

♦ OF AUX CORE AS A SAFETY 

* PRECAUTION 

BR TO DO IT YOURSELF PROG 



*1BH*IBH*I 

CONE DC 

BSS 
TERM BSC 

BSS 
SENBI OC 

DC 
DSM52 OC 

OC 
CEON OC 

OC 
CEOFF DC 

DC 

* 

NOTKO LDX 
STX 
XIO 



BM*IBH*IBH*IBH»IBM»IBH»IBM*IBM*IBM»IBH»1 
CORRECTIONS FOR THE FOLLOWING 27 • 
WORDS MUSI BE MADE IN THE CARD » 
NUMBERED OF THIS AUX PROGRAMS * 
7 CARO OBJECT DECK. * 

aH»IBM*I8M*IBH*IBM»IBM»lBM*lBM*IBH*IBH*I 



/0800 




CONST TO REMOVE ALL BUT 
• HOME INOICATER STATUS 



SAVE2 
SAVES 



LDX 
LDX 



L NOTRD TERMIN'ITOR BRANCH 
»*»*»»»*««»*«»*«»«»•«*»*«*»»»»»♦»»*»♦*»»♦ 

CONSTANTS AND/OR lOCC WORDS 



/OOFF TERMINATOR CONSTANT 

/0760 SENSE LE SWITCHES 

NNNN 

/070I+AREA RESET DEVICE STATUS lOCC 

/OOFO CE SERVICE STOP CONST 

/0001*AREA CE ON WORD 

TTTT 

/OOOO+AREA CE OPF WORD 

EXIT POINTS TO AUX LOADER 

TERMINATE EXIT POINT 
LI WUWH 

1 /O'r 

CEOFF REMOVE DEVICE FROM CE MODE 

NORMAL EXIT POINT 
L2 
L3 






HDX QQCQ 

• **«««•••»«*•»» »*«:***»***»*•*»* ********* 
»»♦»»»»»*♦♦♦»♦»♦♦*♦«♦*»»»*»»*»*♦♦»•♦»«••»«■»•* 

THE FOLLOWING CONSTANTS AND lOCC 
WORDS HAS BEEN PLACED HERE TO AID 
THE C£ IN HIS PROGKAMHINC EFFORT. 



DATE 
EC MO. 



2SFEB66 
415120 



8AC4S660 
8AC45670 
8AC4S680 
8AC4S690 
8AC45700 
8AC4S710 
8AC45720 
8AC45730 
8AC45740 
8AC45750 
8AC45760 
8AC45770 
8AC45780 
8AC45790 
8AC4S80a 
8AC45810 
8AC4S820 
8AC45B30 
8AC45840 
8AC45850 
8AC45860 
8AC45'>70 
8AC45880 
8AC45890 
8AC45900 
8AC45910 
8AC45920 
8AC45930 
8AC45940 
8AC45950 
8AC45960 
8AC45970 
8AC45980 
8AC45990 
8AC46000 
8AC46010 
8AC46020 
SAC46030 
8AC46040 
8AC46050 
8AC46060 
8AC46070 
8AC46080 
8AC46090 
8AC46100 
aAC46110 
8AC46120 
8AC46130 
8AC46140 
8AC461S0 
8AC4&160 
8AC46170 
8AC46180 
8AC46190 
8AC46200 
8AC46210 
8AC46229 
8AC46230 
8AC46240 
8AC46250 
8AC46260 
8AC46270 
8AC46280 
8AC46290 
8AC46300 
8AC46310 
SAC46320 
8AC46330 



PROC 10 
PAGE 



08AC-C 
47 











CAUTION 






8AC46340 














THE 


INSTRUCTION 


FOLLOWING A READ OR WRITE 


8AC463S0 














XIO 


MUST BE A CONTROL XIO. IF A USEFULL 


8AC46360 














CONTROL XIO IS 


HOT DESIRED YOU MAY REFER 


8AC46370 














TO THE LOCATION 


LABfclfcO HECK . THIS 


8AC46380 














MILL 


GIVE YOU A 


RCAO BACK CHECK WITH A 


8AC4639a 














WORD 


COUNT OF ZERO. 


8AC46400 




















8AC46410 




0065 





0000 


HOME 


OC 







IF THIS LOC IS ZERO THE 
* CARRIAGE IS NOT HOME 


aAC46420 
8AC46430 




0066 




0000 




BSS 


E 







8AC46440 




0066 





0000 


CESH 


DC 







Cf PROCRAM SW SETTING 


8AC46450 




3067 





0000 


STATU 


OC 







01 VICE STATUS WORD 


8AC46460 
8AC46470 




0068 





OOBO 


CHECX 


DC 




TABLE 


RIFERS TO SECTOR COUNT TAB 


8AC46480 




0069 





2680 




OC 




/0680»AREA 


li.CC INIT READ CHECK 
FKOM SECTOR 


8AC46490 
8AC46500 
8AC46S10 




006A 





0074 


HECK 


OC 




TABOO 


REFERS TO SECTOR COUNT TAB 


8AC46520 




006B 





2680 




OC 




/0680tAREA 


IfJCC INIT READ CHECK 
FROM SECrOR 
REFERRING TO A TABLE WITH 
\»<X<.0 COUNT OF ZERO 


8AC46530 
8AC46540 
8AC46550 
aAC46560 
8AC46570 
8AC46580 
aAC46S9Q 










♦ IBM* IBM* 


IBM»IBH»I6M*IBM 


HB>'*IiiH»IBM»I8M»IBM*IBH*I 


8AC46600 
















CORRECTIONS FOR THE FOLLOWING 27 ♦ 


SAC46610 
















WORDS MUST 


BE fl-Qi IN THE CARD » 


8AC46620 
















NU1BERED 1 


OF TrtIS AUX PROGRAMS • 


8AC46630 
















7 CARD OBJECT DECK. * 


8AC46640 


" 








•IBM* 


IBM* 


IBM*IBM*I8M»IBM 


»lB«»ieM»IBM»I3M»IBM»IBM»I 


8AC46650 




















8AC46660 




















8AC46670 




306C 





OOBO 


READ 


OC 




TABLE 


REFERS TO SECTOR COUNT TAB 


8AC46680 




3060 





2600 




DC 




/CbOO-^AREA 


IQCC INIT READ 
FROt SECTOR 


aAC46690 
SAC46700 
aAC46710 




006E 





OOBO 


WRITE 


DC 




TABLE 


REFERS TO SECTOR COUNT TAB 


8AC46720 




306F 





2500 




OC 




/OS004AREA 


lOCC INIT WRITE 
FRCH SECTOR 


eAC46730 
8AC46740 
8AC46750 




0070 





0001 


CENTR 


DC 




/OOOl 


1 STEP TOWARDS CENTER 


8AC46760 




3071 





2400 




OC 




/0400+AREA 


lOCC CONTROL WORD 


8AC45770 
eAC46780 




0072 





0001 


EDGE 


DC 




/OOOl 


1 STEP TOWARDS EDGE _ 


8AC46790 




0073 





2404 




OC 




/0404»AREA 


lOCC CONTROL WORD 


aAC46800 
8AC46810 




0074 





0000 


TABOO 


OC 







WO COJhT OF OO NOT ALTE 


8AC46820 










*»»«*•«*»«*»»**«<»»»*««*»««»•<:*••»*•************•*** 


8AC46830 




















aAC46840 




















8AC46850 




















8AC46860 
















THIS IS THE STARTING POINT OF YOUR 


8AC46870 
















PROGRAM. 




8AC46880 




















8AC46690 




















8AC46900 






- 














8AC46910 








- 












8AC46920 




0075 





70E6 


CEGO 


MDX 




NOIRD 


1ST LOC OF YOUii-PRDGRAM 


8AC46930 
















BRANCH TO LOC^ITSON SAVE2 WHEN 


8AC46940 
















EXITING FROM fOJtl PROGRAM. 


8AC46950 




0076 





70 E5 




MOX 




NOTRD 




aAC46960 




0077 





70E4 




MDX 




NOTRD 


. 


8 AC 469 70 




0078 





70E3 




MDX 




NOTRO 




8AC46980 




0079 





70E2 




HDX 




NOTRO 




8AC46990 




007A 





70E1 




MOX 




NOTRO 




8AC47000 




007B 





70E0 




MDX 




NOTRD 


- 


8AC47010 




DATE 




28FEB66 












PROG 10 


08AC-0 


EC NO. 


4IS120 












PACE 


47A 



n 



{ L 

i. V 






i < ( ( ( ( < 1 c c ( ( 
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>f 
J 



OOTC 





70CF 


0070 





7006 


007E 





7003 


007F 





700C 


0030 





70D3 


0081 





700 A 


0082 





7009 


0083 





70D8 


008* 





700T 


0085 





7006 


OOSb 





7005 



0O87 





700* 


0G88 





7003 


0089 





7002 


008A 





7001 


0088 





70 DO 


003C 





70CF 


0080 





70LE 


003E 





70CO 


008F 





70CC 


0090 





70C8 


0091 





70CA 


0092 





70C9 


oo";? 





7008 


009* 





70C7 


0095 





70C6 


0096 





70C5 


0097 





70C« 


0098 





70C3 


0099 





70C2 


009A 





70CI 


0098 





70CO 


009C 





708F 


0090 





708E 


009E 





70BD 


009F 





703C 


OOAO 





70S3 


ODAl 





70 a A 



MOX 


NOTRO 


MOX 


NOTRD 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRD 


HDX 


NOTRD 


MOX 


NOTRO 


HDX 


NOTRO 


MOX 


NOTRD 


MOX 


NOTRO 



IBH»1BM*18M*I6M*IBM*IBH»18M»IBH*IBH»IBM*IBH»IBH»I 
CORRECTIONS FOR THE FOLLOWING 27 ♦ 
WORDS MUSI BE HADE IN THE CARD * 
NUMBERED 2 OF THIS AUX PROGRAMS ♦ 
7 CARD OBJECT OECX. • 

IBH*I6H»iBH*IBM*IBH*IBH*IBH*IBH*IBH*IBM*I8H*IBH*I 



MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


MOX 


NOTRD 


MOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRD 


MOX 


NOTRO 


MDX 


NOTRD 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRD 


MDX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


HDX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRD 


HOX 


NOTRO 


MOX 


NOTRD 


MDX 


NOTRD 


HDX 


NOTRO 


MDX 


NOTRD 



IBM»1BH*I3H»IBM»IBM*IBH»IBH*IBM*IBM*IBM»IBM*IBM»I 
CCPS^TIONS FOR THE FOLLOWING 27 » 
WO'"D-S MUST BE HADE IN THE CARD • 

NUMBERED 3 OF THIS AUX PROGRAMS • 

7 CARD OBJECT DECK. » 

IBM*IBM*IBH»1BM*1BH*IBM*IBH»IBM*IBH*IBM*IBH*1BH*1 



00A2 


7089 


MDX 


NOTRO 


00A3 


70B8 


MDX 


NOTRO 


OOA* 


7087 


HOX 


NOTRO 


00A5 


70B6 


MOX 


NOTRO 


0OA6 


7085 


MOX 


NOTRO 


0OA7 


708* 


MOX 


NOTRD 


00A8 


7083 


MOX 


NOTRO 


0OA9 D 


7032 


MOX 


NOTRO 


OOAA 


7031 


MOX 


NOTRO 


OOAB 


70BO 


HOX 


NOTRO 


DATE 


28FEB66 






EC NO. 


*1SI20 







8AC*7020 

8AC*7030 

8AC*7040 

8AC*7050 

8AC*706O 

8AC*7070 

8AC*7080 

8AC*7090 

8AC*7100 

8AC*7110 

3AC*7120 

8AC*7130 

8AC*71*0 

8AC*71SO 

aAC*7160 

8AC*7170 

8AC*7180 

8AC*7190 

8AC*7200 

8AC*7210 

8AL*7220 

eAC*7230 

8AC*72*0 

6AC*7250 

SAC*7260 

8AC*7270 

8AC*7280 

8AC*7290 

8AC*7300 

8AC47310 

8AC*7320 

8AC*7330 

8AC*73*0 

8AC*7350 

8AC47360 

8AC*7370 

aAC*7380 

aAC*7390 

8AC*7*00 

8AC«7*10 

SAC*7*20 

8AC*7*30 

8 AC* 74*0 

8AC*7*S0 

8AC*7*&0 

8AC*7*70 

8AC*7*80 

8AC*7*90 

8AC*7500 

8AC*7S10 

8AC47S20 

8AC*7530 

8AC*7S*0 

8AC*7550 

BAC47560 

8AC*7570 

8AC*7580 

8AC*7590 

8AC*7600 

8AC*76L0 

8AC*7620 

8AC*7630 

8AC*76*0 

8AC47650 

8AC*7660 

8AC*7670 

8AC*7680 

8AC*7690 



PROG 10 
PACE 



OOAC 70 AF 

OOAO 70AE 

OOAE 70A0 

OOAF 70AC 



OOBO 0050 



0081 





70AA 


0032 





70A9 


00B3 





70A8 


OOB* 





70A7 


OOBS 





70A6 


0086 





70A5 


0087 





70A* 


0038 





70A3 


00S9 





70A2 


OOBA 





70 A I 


OOBB 





70 AO 


OOBC 





709F 



OOBO 





709E 


OOBE 





7090 


OOBF 





709C 


OOCO 





7098 


OOCl 





709A 


0OC2 





7099 


00C3 





7098 


30C* 





7097 


00C5 





7096 


00C6 





7095 


0OC7 





709* 


00C8 





7093 


00C9 





7092 


OOCA 





7091 


OOCB 





7090 


OOCC 





708F 


OOCO 





7030 


OOCE 





702F 


OOCF 





702E 


OODO 





7020 


0001 





702C 


0002 





7028 


0003 





702A 


000* 





7029 


0005 





7028 


0OC6 





7027 


0007 





7026 



MOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 



ABLC DC 


80 


HOX 


NOTRO 


MOX 


NOTRD 


MOX 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRD 


MOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 



PLACE WORD COUNT FOR THE DESIRED 
TABLE LENGTH IN THE FOLLOWING WORD. 
00 NOT EXCEED THE PRESENT COUNT 
OF 80 WORDS FOR THIa LOCATION. AS IT 
IS AGAINST THE RUIES TO READ OR 
WRITE BEYOND THE ESO OF AUX HEMORY. 
PLACE WORD COUNT HERE 



IBH*IBM*IB>1«IBM»IBH»IBH»!BM»ieH*lBM*IBH*IBH*lBH»l 
CORRECTIONS FQO THE FOLLOWING 27 • 
WORDS MUSI BE ftOt IN THE CARD * 
NUMBERED * OF THIS AUX PROGRAMS » 
7 CARO OBJECT DECK. • 

IBM*IBH»IBM»IBM»IBM»IBH»IBH»IS'<»IBH»IBH*IBM»IBH*I 



HOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


HOX 


MOTRO 


MOX 


NOTRD 


MOX 


NOTRO 


HDX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


MDX 


NOTRO 


HDX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRD 


HDX 


NOTRO 


MOX 


/OOFe 


MOX 


/OOFE 


MOX 


/OOFE 


HOX 


/OOFE 


MDX 


/OOFE 


HOX 


/OOFE 


HOX 


/OOFE 


HDX 


/OOFE 


MOX 


/OOFE 


MOX 


/OOFE 


HOX 


/OOFE 



IBH»1BM»IBM»IBH»IBM»IBM*IBM«I6»'»IBM»I3M»1BH*IBH»I 
CORRECTIONS FOR THE FOLLOWING 38 * 
WORDS MUST BE nX?£ IN THE CARD • 
NUMBERED 5 OF T»tS AUX PROGRAMS • 



08AC-0 
4S 



DATE 
EC NO* 



28FEB66 
*1S120 



8AC47700 

8AC47710 

8AC47720 

8AC47730 

8AC47740 

8AC47750 

8 AC* 77 60 

8AC47770 

8AC47780 

6AC47790 

8AC*7803 

8AC*7810 

8AC*7820 

8AC*7830 

eAC*78*0 

8AC*7850 

8 AC* 7860 

8AC47870 

8AC47880 

8 AC* 7890 

8AC*79O0 

8AC*7910 

8AC47920 

8AC*7930 

8AC*79*0 

8AC*7950 

8AC*7960 

8AC*7970 

8AC*7980 

8AC*7990 

8AC*8000 

SACtSOlO 

8AC*8O20 

8AC48030 

8 AC* 80*0 

8AC*3050 

8AC*S060 

8 AC* 30 70 

8AC*8080 

8AC*8090 

8AC*ai00 

8AC*8110 

3AC*3120 

8AC*8130 

8AC*81*0 

8 AC* 8 1^0 

8AC*3160 

8AC*8170 

3AC*8180 

8AC48190 

8AC48200 

8AC*a210 

8 AC* 3220 

8AC*8230 

8AC*82*0 

BAC*3250 

8AC*8260 

8AC*8270 

8AC*8280 

8AC48290 

8AC49300 

8AC*Q320 

8AC*832a 

8AC43330 

8AC*83*0 

8AC*8350 

8AC*8360 

eAC*8370 



PROG ID 
PAGE 



1' 



08AC-0 
48A 



(; ( ( c c C c ( 1 ( 1 ( 1 ( ( ( ( ( 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1ST 2310 



* 7 CARD OBJECT DECK. ♦ 

*IBH*ieH»IBH*tBH*lBM*IBH*IBH»IBH*IBH*IBH*IBH*I8M*I 



0OD8 
0009 
OODA 
0008 
OOOC 
0000 
OOOE 
OOOF 
OOEO 
OOEI 
00E2 
00E3 
00E4 
00E5 
00E6 
OOET 
0OE8 
00E9 
ODEA 
OOEB 

ooec 

OOEO 
OOEE 
OOEF 
OOFO 
OOF J 
00F2 
00F3 
00F4 
OOFS 
00r6 
00F7 
OOF 8 
0OF9 
OOFA 
OOFB 
OOFC 
OOFD 



0000 
700T 
0813 
7035 



ooFe 



7025 
7024 
7023 
7022 
7021 
7020 
701F 
701E 
7010 
70 IC 
7018 
701 A 
7019 
7018 
7017 
7016 
7015 
701* 
7013 
7012 
7011 
7010 
700 F 
700E 
7000 
700C 
7008 
700* 
7009 
7008 
7007 
7006 
7005 
7004 
7003 
7002 
7001 
7000 



OOFO 



/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 
♦*»»»»»»*»»»»»»***»****»*»****»***♦»****»*•**•♦♦**• 
* 

CQQQ EQU /D GO TO LOADER AT /D 

NNNN EQU /7007 FOR CARD LOADER AT /35 
HUHH EQU /0813 SET IN LOADER AT /04 
TTTT EQU /7000*RETUR-/'.-l THIS IS EQUAL TO 

• THE BRANCH FROM THE LOADER 

• TO RETUR IN THIS PROGRAM. 
*•»»«»»*»♦♦»*»**»«»»*»*»»»»•»♦»»♦»*»*♦•♦*****♦*♦♦*** 

END »-l , END CARD NEVER USED 



MDX 
HOX 
HDX 
HOX 
HOX 
HDX 
HDX 
HOX 
HOX 
HOX 
HOX 
HOX 
HD». 
HOX 
HDX 
HDX 
MDX 
HDX 
HOX 
MDX 
MDX 
HDX 
HOX 
HOX 
MDX 
MOX 
HOX 
MDX 
MDX 
MDX 
MOX 
MOX 
MDX 
HDX 
HDX 
HDX 
HDX 
HDX 



PART NO. 219645S 
PAGE «9 



8AC4S380 
8AC43390 
8AC48400 
BAC4a410 
8AC48420 
8AC48430 
8AC48440 
8AC48450 
eAC48460 
8AC48470 
8AC48480 
8AC48490 
8AC48500 
8AC48510 
8AC43S20 
8AC4a530 
8AC48S40 
BAC48SS0 
8Av4B560 
8AC4a570 
8AC43S80 
8AC'k8590 
8AC43600 
8AC48610 
8AC4a620 
BAC48630 
8AC4B640 
8AC486S0 
8AC48660 
8AC48670 
8AC4a680 
8AC48690 
8AC48700 
8AC48710 
8AC48720 
8AC48730 
8AC48740 
8AC48750 
8AC't8760 
8AC48T70 
8AC4a780 
eAC48790 
8AC48800 
8AC488I0 
BAC^aSZO 
8AC4a830 
8AC4a840 
8AC488S0 
8AC48S60 
8AC48870 
8AC48a80 

BAc^aass 



IBM HAINTENANOE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEH 



MCf 



PART NO. 21964SS 
PAGE 49* 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 1ST 2310 • 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 


AREA 


2000 


0057, 0059, OOSBt 0069 i006B, 0060 t006F, 0071, 0073 


CEGO 


0075 


004F 


CENTR 


0070 




CEOFF 


005A 


0038. 005F 


CEON 


00S8 


003A,0048 


CESH 


0066 


0044 


CHECK 


006S 




0SW52 


0056 


0036,0030 


EDGE 


0072 




GONE 


0051 


00 3F 


HECK 


00 6 A 




HOME 


0065 


0040 


NNNN 


7007 


0u56 


NOTRO 


00 5C 


0046, 0052, 0075, 0076, 0077, 0078, 00 79, 007&, 00 7B,007C. 
00 70, 0076, 007 F, 0080, 008 I, 0082, 00 83, 0084, 008 5, 0086» 
OOB7,008 8,008 9,008A,003B,008C,0080,008E,OOaF,0090. 
0091, 0092, 0093, 0094, 0095, 0096, 0097, 0098, 0099, 009A, 
OO9B,O09C,0O9D,OO9E,OO9F,0OA0,O0Al,OOA2,00A3,0OA4t 
O0A5,O0A6,0OA7,0OA8,OO49,OOAA,OOA3,O0AC,O0AD,0OAEt 
OOAF, 008 1,0082, 0063, 0034, 0065,0086, 003 7, O0B8,OOB9t 
008A, 0038,0080,0050, 008 E,OOBF,OOCO,OOC1,OOC2.00C3» 
00C4,OOC5,00C6,0 0C7,OOC8,OOC9,OOCA,0OCB,O0CC 


QQQQ 


0000 


0064 


READ 


006C 




RETUR 


00 3 A 


OOFE 


SAVE2 


0060 


0038,0049 


SAVE3 


0062 


003C 


SENBI 


0054 


0042,0043,0045 


STATU 


0067 


00 3E 


TABLE 


00 BO 


006a,006C,006E 


TABOO 


0074 


006A 


TERM 


0052 


004B 


TTTT 


7035 


00 5 A 


WRITE 


006E 




WMUW 


0813 


005C 



DATE 
EC NO. 



28FEB66 
41 S 120 



\ i 



PROC ID 08AC-0 
PACE *9 



DATE 28FEB66 
EC NO. 415120 



PROG 10 08AC-0 
PAGE 49* 



(1 V. i. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 2N0 2310 



PART NO. 2196455 
PAGE SO 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE J800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 2N0 2310 



PART NO. 2196455 
PAGE SO A 







ABS 


8AC48900 




02BC 




ORG /36 


8AC4a910 
8AC48920 








****»*•***«*** t*«*^tttt*»w»»t****»**»»tt»t»^»t»^t** 8AC4893a 




4000 




AREA EOU /4000 2ND 2310 DISK 

• IF THIS PROG IS TO BE USED FOR A HACH 

• WITH A OlFF AREA CODE ALL THE LOCATIONS WHICH 

» REFER TO THE LABEL AREA IN SYMBOL TABLE MUST 
» BE CHANGED BY HEX CORkECTION CARDS TO OBTAIN A 
» MODIFIED AUX 8-8 OBJECT DECK. SEE AUX C£ PROG 

• GENERATOR WRITE-UP FOR PROCEDURE. 


8AC48940 
8AC48950 
8AC48960 
8AC48970 
8AC43980 
8AC48990 
8 AC 490 00 








******tt*t«**«*Hi*»w*****»t**t»*»»tt*t^*t»^^*»ttt^^ 8AC49010 










8AC49020 










8AC49030 








♦ 2ND 2310 SKELETON PROGRAM 

* ISEE AUX CE PROG GENERATOR 

♦ * WRITE-UP FOR USE PROCEDUREI 

* »•*«*«*•»«»«»*»«•••*•»«••»••* 

* THIS PROG CAN NOT BE LOADED FROM PAPER TAPE 

• PURPOSE 

• THE PURPOSE OF THIS PROGRAM IS 

• 10 PROVIDE A SKELETON PROGRAM 
» UPON WHICH THE CE CAN WRITE AN 

• "AUX STORAGE PROGRAM. 


SAC49040 
8AC490S0 
8AI.49060 
8AC49070 
8AC49080 
8AC4909a 
8AC49100 
8AC49110 
8AC49120 
SAC49130 
8AC49140 
8AC49150 
8AC49160 
8AC49170 
3AC49180 








• GENERAL INSTRUCTIONS 

• CE SWITCH SETTINGS 

• OODOllll CE SERVICE STOP 

• llUllll TERMINATE PROGRAM 

• ALL OTHER COMBINATIONS ARE STORED 

• * AT THE LOCATION CESW FOR 

• » POSSIBLE USE BY THE CE TO 

• » CONTROL HIS PROGRAM 

****** f**ttt«»*»*****9*t**»*t^tt******»t*^**** 

•IBH*IBM*IBH*1BH*IBH»IBH»IBK»IBM*IBM*IBM*IBH*IBH*I 

• CORRECTIONS FOR THE FOLLOWING 27 * 

• WORDS MUST BE HADE IN THE CARD • 

• NUMBERED X OF THIS AUX PROGRAMS * 

• 7 CARD OB.)ECT DECK. ♦ 
*I6M»l6H*IBH*IBM»lBH»I8M*lBH»I8^*IBH»IBM»IBM*IBM*r 

• AU* PROG ENTRY POINTS 

• ********************* 

• 1ST PASS ENTRY 

• ************** 


8AC49190 
8AC49200 
8AC49210 
8AC49220 
8AC49230 
8AC49240 
8AC49250 
8AC49260 
8AC49270 
8AC49280 
8AC49290 
aAC49300 
8AC49310 
8AC49320 
8AC49330 
8AC49340 
8AC493S0 
8AC49360 
8AC49370 
8AC49380 
BAC49390 
8AC49400 
8AC49410 
8AC49420 
8AC49430 
8AC49440 
8AC49450 
8AC49460 
8AC49470 




0036 


COIF 


LD DSW52 RESTORE LOC NICE 


8AC49480 




0037 


OOFO 


STO /35 * IN AUX LOADER 


8AC49490 
8AC49500 




3038 


C021 


LO (FOFF PLACE BRANCH 


8AC49510 




0039 


OOCA 


STO /04 • TO RETUR LABEL 

• ALL BUT 1ST PASS ENTRY POINT 

• **************************** 


8AC49S20 
eAC49S30 
8AC49S40 
8AC495S0 




003A 


0810 


RETUR XIO CEON SET DEVICE IN CE MODE 


8AC49S60 


, 


003B 


6A25 


STX 2 SAVE2«1 SAVE INDEX REGISTER 2 


0AC4957O 




OATE 
EC NO. 


28FEB66 
41S120 




PROG 10 08AC-0 
PACE 50 






- 


• 




o 



003C 


6B26 




STX 


3 


SAVE3*1 


0030 


0818 




XIO 




OSW52 


003E 


D028 




STO 




STATU 


003F 


EOll 


• 


AND 




GONE 


0040 00 


D400006S 


STO 


L 


HOME 


0042 


0811 




XIO 




SENBI 


0043 


EOlO 




AND 




SEN3I 


0044 


0021 




STO 




CESW 


0045 


FOOE 




EOR 




SFN8I 


0046 00 


4C1800SC 




BSC 


L 


NQIRD.*- 


0048 


FOOF 




EOR 




CEON 


0049 00 


4C180060 




BSC 


I 


SAVE2,*- 


004B 00 


CC0000S2 




LOD 


L 


TERM 


0040 00 


DCOOOOFE 


• 
• 

• 
• 


STO 


L 


/OOFE 


004F 00 


4C000075 


BSC 


L 


CEGO 









* 




0051 





0800 


GONE 


DC 


0052 




0000 


BSS 


0052 


00 


4C00005C 


TERM 


BSC 








********* 

* 


3054 




0000 


* 


BSS 


0054 





OOFF 


SENBI 


DC 


3055 





0760 




DC 


0056 





7007 


DSW52 


DC 


0057 





4701- 




DC 


0058 





OOFO 


CEON 


DC 


0059 





4001 




DC 


30SA 





7035 


CEOFF 


DC 


005B 





4000 




DC 



OOSC 00 65000813 
005E 69A5 
005F 08FA 



3060 00 66000000 
0062 00 67000000 

0064 70A8 



OATE 
EC NO. 



28FEB66 
415120 



SAVE INDEX REGISTER 3 
SENSE DEVICE STATUS 
SAVE DEVICE STATUS 
REMOVE ALL DEVICE STATUS 

• CONO EXCEPT HOME IND. 
PLACE HOME INDICATION WD 
SENSE CE PROG SW TO ACCUM 
BLOCK OUT PROG SEL SH 
SAVE CE PROG SW SETTINGS 

BR TERMINATE PROGRAM 

BR SERVICE STOP 

SET TERMINATOR BR AT END 
» OF AJX CORE AS A SAFETY 

• PRECAUTION 

■BR TO DO IT YOURSELF PROG 



*IBH»IBH*IBM*IBH»IBM»I8M»IS»!*IBM»IBM»IBM*IBM»IBM»1 

• CORRECTIONS FOR THE FOLLOWING 27 • 

• WORDS MUST BE MADE IN THE CARD » 

• NUMBERED CF THIS AUX PR3GRAHS • 

• 7 CARD OBJECT DECK. * 

•IBM*1BM»IBH*IBM*IBH»IBH*IB»!*JBM*IBM»IBM»IBH*IBM*I 

* 

/5800 CONST TO REMOVE ALL BUT 
* t-'P't INOICATER STATUS 
E 

L NOTRO TEPTMATOR BRANCH 
************************* t*t *********************** 

CONSTANTS ANO/OR lOCC WORDS 


/OOFF TEP^IWATOR CONSTANT 
/0760 SEfiSE CE SWITCHES 
NNNN 

/0701+AREA RESET DEVICE STATUS I OCC 
/OOFO CE SERVICE STOP CONST 
/0001+AREA CE GN WORD 
TTTT 

/0000+AREA CE OFF WORD . 
************** *tt**t***ttt** ****************** 

EXIT POINTS TO AUX LOADER 

*************m*»******t*t 



NOTRO LDX 
STX 
XIO 



SAVE2 LDX 
AVE3 LDX 



TERMINATE EXIT POINT 
LI HWWH 
1 /04 

CEOFF REraVE DEVICE FROM CE MOOb 

NORMAL EXIT POf*iT 
L2 
L3 



H3X QOQO 
******************** ******t»r*******ft*t***** 
**************t********ttt**t*r*t****»******9**tt^ 
************************************************* t 

THE FOLLOWING CONSTANTS AND lOCC 
WORDS HAS BEEdl PLACED HERE TO AID 
THE CE IN HIS IP«OCPAMMING EFFORT. 



8AC49580 

8AC49590 

8AC49600 

8AC49610 

8AC49620 

8AC49630 

8AC49640 

8AC49650 

aAC49660 

8AC49670 

BAQ49680 

8AC49690 

8AC49700 

8AC497ia 

8AC49720 

8AC49730 

8AC49740 

8AC49750 

8AC4976a 

8AC49770 

8AC49760 

8AC49790 

8AC49800 

8AC49810 

8AC49820 

8AC49830 

8AC49840 

8AC49850 

8AC49860 

8AC49870 

8AC49880 

8AC49890 

8AC49900 

8AC49913 

8AC49920 

8AC49930 

8AC49940 

8AC499S0 

8AC49960 

8AC49970 

8AC49980 

8AC49990 

8AC50000 

8AC50010 

8AC50020 

8AC50030 

8AC50040 

8ACS00S0 

8AC50060 

aAC50070 

8AC50080 

8AC50090 

8AC50100 

8AC50110 

8AC50120 

8AC50130 

8ACS0140 

8AC50150 

8AC5ai60 

8AC50170 

8AC50180 

8AC50190 

8ACS0200 

8AC50210 

8AC 50220 

8AC50230 

8AC50240 

8AC50250 



PROG 10 
PAGE 



08AC-0 
50A 
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IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEK 

AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 2ND 2310 



PART NO. 21964SS 
PAGE 51 



0065 0000 



0066 
0066 
006 7 

0068 

0069 



006A 
006B 



0000 
0000 
0000 

00 BO 
4680 



0074 
4630 



006C 
0060 



006E 
006E 



0070 

0071 

0072 

0073 



OOBO 
4600 



OOBO 
4500 



0001 
4400 

0001 
4404 



0074 0000 



0075 70E6 



0076 
0077 
0078 
0079 
007A 
007B 



CAUTION 

THE INSTRUCTION FOLLOWING A READ OR WRITE 
XIO MUST BE A CONTSOL XIO. IF A USEFULL 
CONTROL XIO IS NOT DESIRED YOU HAY REFER 
10 THE LOCATION LABELED HECK . THIS 
WILL GIVE YOU A READ BACK CHECK WITH A 
WORD COUNT OF ZERO. 



HOME 

* 

CESW 
STATU 

• 

CHECK 

« 
HECK 

* 

• 
•IBM* I 

* 

♦I8H*I 

* 

READ 
WRITE 



DC 

BSS E 

DC 

OC 



IF THIS IOC IS ZERO THE 
• CARRIAGE IS NOT HOME 

CE PROGRAM SH SETTING 
DEVICE STATUS WORD 



OC TABLE REFERS TO SECTOR COUNT TAB 
DC /06eO*AREA lOCC INIT READ CHECK 
FROM SECTOR 

OC TABOO REFERS TO SECTOR COUNT TAB 
DC /0680*AREA lOCC INIT READ CHECK 
FROM SECTOR 
REFERRING TO A TABLE WITH 
WORD COUNT OF ZERO 



6M*IBM*IBM*IBM*IBM»IBH*IBH»!BM»I8M*IBH*IBM*I 
CORRECTIONS FOR THE FOLLOWING 27 » 
WORDS MUST BE HADE IN THE CARD • 
NUMBERED 1 OF THIS AUX PROGRAMS * 
7 CARD OBJECT DECK. • 

BM»ISM*IBH»l8H«IBK*IBH*lBH*IBM*IBH»rBH*I8M*l 



CENTR 

EDGE 

TABOa 

CEGO 



°^ TABLE REFERS TO SECTOR COUNT TAB 

DC /0600*AREA lOCC INIT READ 
FROM SECTOR 

OC TABLE REFERS TO SECTOR COUNT TAB 
DC /0500»AREA lOCC INIT WRITE 
FROM SECTOR 

DC /OOOl 1 STEP TOWARDS CENTER 
OC /0400*AREA lOCC CONTROL WORD 

DC /OOOl 1 STEP TOWARDS EDGE 
DC /0404*AREA lOCC CONTROL WORD 

OC WD COUNT OF DO NOT ALTE 



THIS IS THE STARTING POINT OF YOUR 
PROGRAM. 



DATE 
EC NO. 



TOES 
70E4 
70E3 
70E2 
70E1 
70E0 



28FE666 
415120 



HOX NOTRD 1ST LOC OF YOUR PROGRAM 
BRANCM TO LOCATION SAVE2 WHEN 
EXITING FROM YOUR PROGRAM. 

MDX NOTRD 

HOX NOTRD 

MDX NOTRD 

MDX NOTRD 

MDX NOTRO 

MOX NOTRO 



8AC50260 

8 AC 502 70 

8AC50280 

8ACS0290 

8 AC 50300 

8AC50310 

8AC50320 

8AC5O330 

8ACS0340 

8AC50350 

eAC50360 

8AC503T0 

8ACS0380 

8ACS0390 

8ACS0400 

8AC50410 

8AC50420 

8AC50430 

8AC50440 

8AC50450 

8AC504G0 

8AC50470 

eACS0480 

8AC50490 

8AC50500 

8AC50510 

8AC50520 

8AC50530 

8AC50540 

8AC50550 

SACS0S60 

8AC50570 

SACSOSBO 

8AC50590 

8ACS0600 

8ACS0610 

8AC50620 

8ACS0630 

8AC50640 

8AC50650 

eAC50660 

8ACS0670 

8AC50680 

8AC50690 

8ACS0700 

BACSOTIO 

8AC50720 

8AC50730 

8AC50740 

8AC50750 

8ACS0760 

8AC50770 

8AC50780 

8ACS0790 

8AC50800 

8AC5O8I0 

8AC50820 

8AC50830 

8AC50840 

8ACS0850 

8ACS0860 

8AC50870 

8ACS0880 

8AC50890 

8 AC 50900 

8ACS0910 

8AC50920 

8AC50930 



PROG 10 
PACE 



( ( < < < ( ( ( ( ( ( ( (ICC 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 2ND 2310 



007C 





700F 


0070 





VOOE 


007E 





7000 


007F 





70DC 


0080 





700B 


0081 





700A 


0082 





7009 


0US3 





7008 


0084 





700? 


0085 





7006 


0086 





7005 



0087 

0088 

0089 

OOSA 

0086 

308C 

0080 

008E 

OOSF 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

C098 

0099 

009A 

0098 

009C 

0090 

009E 

009F 

OOAO 

OOAl 












































7004 

7003 

7002 

7001 

7000 

70CF 

70CE 

70CD 

70CC 

70C8 

70CA 

70C9 

70C8 

70C7 

70C6 

70C5 

70C4 

70C3 

70C2 

70CI 

70C0 

70 BF 

70BE 

7080 

70BC 

7038 

70BA 



MDX 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRD 


MDX 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRD 


MDX 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRD 


MDX 


NOTRO 



IBM*IBM«J0H*1BM»I8M»IBH»IBM*IBM«I3H*IBH*IBM*I8M*I 
CORRECTIONS FOR THE FOLLOWING 27 » 
WORDS MUST BE MADE IN THE CARD • 
NUMBERED 2 OF THIS AJX PROGRAMS • 
7 CARD OBJECT DECK. * 

ieH*IflH»IBH»IBM»IBM*IBH*IBM*IBM»I8H»l8M*iaM*IBM»I 



HOX 


NOTRD 


HOX 


NOTRO 


MDX 


NOTRD 


MDX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRD 


HOX 


NOTRO 


MDX - 


NOTRO 


MOX 


NOTRD 


MOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRD 


MDX 


NOTRO 


MDX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRD 


MDX 


NOTRO 


MDX 


NOTRD 


MDX 


NOTRD 


HOX 


NOTRO 



IBH*IBM»1BH»IBM*IBH»IBM»IBM»I6H»I3M*IBH*IBM»IBH»I 
CORRECTIONS FOR THE FOLLOWING 27 » 
WORDS MUST BE MADE IN THE CARD * 

NUMBERED 3 OF THIS AJX PROGRAMS • 

7 CARD OBJECT DECK. • 

IBM*IBM*IBM*IBM*lBH»IBM*IEM»IBM»I3M»I6M»IBH*ieH*I 



PART NO. 219645S 
PAGE SIA 



08AC-0 
51 



0OA2 


7089 


MDX 


NOTRD 


0OA3 


7088 


MDX 


NOTRO 


0OA4 


7087 


HOX 


NOTRO 


00A5 


7086 


HOX 


NOTRO 


0OA6 


70B5 


MDX 


NOTRO 


00A7 


70 B4 


HOX 


NOTRO 


0OA8 


7083 


HOX 


NOTRO 


0OA9 


7082 


HOX 


NOTRO 


OOA* 


7081 


HDX 


NOTRO 


OOAB 


TO BO 


HOX 


NOTRO 


DATE 


28FEB66 






EC NO. 


415120 







8AC50940 

8AC 50950 

8AC50960 

8AC50970 

8AC50980 

8AC50990 

8ACS1000 

8AC51010 

8AC51020 

3AC5t030 

8AC51040 

8AC51050 

8ACS1060 

8AC51070 

8AC51080 

8AC51090 

8AC51100 

8AL51110 

8AC51120 

8ACS1130 

8AC51140 

8AC51150 

8AC51160 

8AC51170 

BACSltSO 

8AC51190 

8AC5120C 

8AC51210 

8AC51220 

8AC51230 

8AC51240 

8AC51250 

aACS1260 

8AC51270 

8ACS1280 

8AC51290 

8AC51300 

8ACS1310 

8AC^1320 

8AC51330 

8AC51340 

8AC51350 

8AC51360 

8AC51370 

8AC51380 

8AC51390 

8AC51400 

8AC51410 

8AC51420 

8ACS1430 

8AC51440 

8AC51450 

8AC51460 

8AC51470 

8AC514S0 

8AC51490 

8AC51500 

8AC51510 

8ACS1520 

8AC5i530 

8AC51540 

8AC51550 

8AC51560 

8ACS1570 

8AC51580 

8ACS1590 

8ACS1600 

8AC5I610 



PROG 10 
PACE 



1 



08AC-0 
5U 



( t ( ( C ( I ( ( ( ( ( 11 1 1 < 1 



iK 



( (i' i ( 



c c c • ( 



tB<< MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 2ND 2310 



OOAC rOAF 

OOAO 70AE 

OOAE TOAD 

OOAF 70 AC 



OOBO 





0050 


OOBl 





70AA 


00B2 





70A9 


00B3 





70A8 


0OB4 





70A7 


30d5 





70A6 


00B6 





70A5 


00B7 





70 A* 


0088 





Ti.3 


C0B9 





70 A2 


C08A 





70AI 


OOBS 





70 AO 


OJSC 





709F 



30BO 





709E 


OOBE 





7090 


OOBF 





709C 


OOCO 





709B 


OOCl 





709A 


00C2 





7099 


0OC3 





7098 


OOCt 





7097 


00C5 





7096 


00C6 





7095 


0OC7 





709V 


ooca 





7093 


00C9 





7042 


OOCA 





7091 


OuCB 





7090 


OOCC 





70bF 


OOCO 





703O 


OOCE 





702F 


OOCF 





702E 


0000 





7020 


0001 





702C 


0002 





702B 


0003 





702A 


000^ 





7029 


0005 





7028 


0006 





7027 


0007 





7026 



HOX 
HOX 
HDX 
HOX 

* 

* 

TABLE DC 

• 

HDX 
HDX 
HDX 
HDX 
HDX 
HDX 
HDX 
HOX 
HOX 
HOX 
HDX 
HDX 



NOTRO 
NOTRD 
NOTRO 
NOTRO 

PLACE WORD COUNT FOR THE DESIRED 
TABLE LENGTH IN THE FOLLOWING WORD. 
DO NOT EXCEED THE PRESENT COUNT 
OF 80 WORDS FOR THIS LOCATIONt AS II 
IS /.GAINST THE RULES TO READ OR 
WRIIF eEYOND THE END OF AUX HEHORY. 
60 PLACE WORD COUNT HERE 

NOTRD 
NOTRD 
NOTRD 
NOTRO 
NOTRO 
NOTRD 
NOTRO 
NOTRO 
NOTRO 
NOTRO 
NOTRO 
NDTRO 



1BM»IBM9IBM*18H»IBM»IBM»IBK*1BH*18H»IBH*IBH*IBH*I 
CORRECTIONS FOR THE FOLLOWING 27 * 
WORDS MUST BE MADE IN THE CARD » 
NU^BEREU « OF THIS AUX PROGRAMS » 
7 CARD OBJECT DECK. * 

IBH*IBH»IBH*IBH*18H»I8M*IBH»IBH*IBH*IBH»IBH*1BH*I 



HOX 


NOTRO 


HOX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRD 


HOX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRD 


HDX 


NOTRO 


HDX 


NOTRD 


HOX 


NOTRO 


HDX 


NOTRO 


HOX 


NOTRO 


HDX 


NOTRO 


HDX 


/OOFE 


HOX 


/OCrE 


HDX 


/OOFE 


HOX 


/OOFE 


HOX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


HDX 


/OOFE 


HOX 


/OOFE 


HDX 


/OOFE 


HOX 


/OOFE 



♦ I BM* I BH» IBH*I BH* I BH» I BH» I BM* I BH* I BH* I BH» I BM*I BM*I 
» CORRECTIONS FOR THE FOLLOWING 38 • 

* WORDS MUST BE HADE IN THE CARD * 

« NUHBERED 5 OF THIS AUX PROGRAMS • 
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8ACS1620 
8AC51630 
8AC51640 
8AC5I650 
8AC51660 
8AC51670 
8ACS1680 
8AC51690 
8AC51700 
8AC51710 
8AC51720 
aAC5l730 
8AC51740 
8AC51750 
8AC51760 
8AC51770 
8AC51780 
8AC51790 
8ACS1800 
8AC51810 
8AC51820 
8ACS1830 
8ACS1840 
8ACS18S0 
8AC51860 
8AC51870 
SACSIBSO 
8AC51S90 
8AC51900 
8AC51910 
8AC51920 
8AC51930 
8AC519«Q 
8AC51950 
8ACS19&0 
8AC51970 
8ACSI980 
8AC51990 
8AC52000 
8AC52010 
8ACS2020 
8AC52030 
8 AC 520*0 
8AC52050 
8AC52060 
8ACS2070 
8AC52080 
8AC52090 
8AC52100 
8AC52110 
8AC52120 
8ACS2130 
BACS2140 
8AC52150 
8AC52160 
8AC52170 
8AC52180 
eAC5219D 
8AC52200 
eACS2210 
8AC52220 
8AC52230 
8AC52240 
8AC52250 
8AC52260 
8AC52270 
8AC52280 
8AC52290 



( 1 1 ( < 1 1 1 ( ( ( 1 1 1 



1 ( 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 2N0 2310 



♦ 7 CARD OBJECT DECK. • 

*1BH»IBH»IBH*IBH»1BH*IBH*IBH»I6M»IBH»IBH*IBM*IBM*I 

* 



0008 


7025 


HOX 


/OOFE 


3009 


7024 


MOX 


/OOFE 


OOOA 


7023 


HDX 


/OOFE 


OODB 


7022 


HOX 


/OOFE 


OOOC 


7021 


HDX 


/OOFE 


0000 


7020 


HDX 


/OOFE 


CODE C 


70 IF 


MOX 


/OOFE 


OOOF 


701E 


HDX 


/OOFE 


OOEO 


7010 


HOX 


/OOFE 


0081 


701C 


MOX 


/OOFE 


0OE2 


701B 


HDX 


/OOFE 


0OE3 


701A 


MOX 


/OOFE 


00E4 


7019 


MOX 


/OOFE 


00E5 


7018 


MOX 


/OOFE 


30E6 


7017 


HDX 


/OOFE 


00E7 


7016 


MOX 


/OOFE 


GOES 


7015 


MOX 


/OOFE 


30E9 


7014 


MOX 


/OOFE 


OOEA 


7013 


HDX 


/OOFE 


0OE8 


7012 


HOX 


/OOFE 


ooec 


7011 


HOX 


/OOFE 


Qoeo 


7010 


HDX 


/OOFE 


OGEE 


700F 


MOX 


/OOFE 


OOEF 


700E 


MOX 


/OOFE 


OOFO 


7000 


MOX 


/OOFE 


OOFl 


700C 


HDX 


/OOFE 


0OF2 


7008 


HOX 


/OOFE 


00F3 


700A 


HOX 


/OOFE 


0OF% 


7009 


HOX 


/OOFE 


OOFS 


7008 


HDX 


/OOFE 


00F6 


7007 


HOX 


/OOFE 


00F7 


7006 


HOX 


/OOFE 


0OF8 


7005 


HDX 


/OOFE 


D0F9 


7004 


HOX 


/OOFE 


OOFA 


7003 


HDX 


/OOFE 


OOFB 


7002 


HDX 


/OOFE 


OOFC 


7001 


MOX 


/OOFE 


OOFO 


7000 


HDX 


/OOFE 






»»»»*«t»»t*»»e*s»*»« 


0000 




OQQQ EOU 


/O 


7007 




NNNN EOU 


/7007 


0813 




WWWW EQU 


/0813 


7035 




TTTT EOU 

* 
» 


/7000« 



OOFE 



OOFO 



GO TO LOADER AT /D 
FOR CARD LOADER AT /35 
SET IN LOADER AT /04 
UR-/4-1 THIS IS EaUAL TO 
THE BRA'.CH FROM THE LOADER 
TO RETUR IN THIS PROGRAM. 

END *-l END CARD NEVER USED 
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8ACS2300 
eAC52310 
8AC52320 
8AC52330 
8ACS2340 
8AC52350 
8AC52360 
8ACS2370 
8AC52380 
8ACi2390 
8AC52400 
BACS2410 
8AC52420 
8ACS2430 
8AC52440 
SAC524S0 
8AC52460 
8AC52470 
8AC52480 
8AC52490 
8AC52500 
8ACS2S10 
8AC5252a 
eAC52530 
8AC52540 
8AC52550 
8AC52560 
8AC52570 
8AC52580 
8AC52590 
8AC52600 
8AC52610 
6ACS2620 
8AC52630 
8AC52640 
8ACS2650 
8ACS2660 
8ACS2670 
8ACS2680 
8AC52590 
8ACS2700 
8ACS2710 
SAC52720 
8ACS2730 
8/C52740 
8ACS2750 
8AC52760 
8AC52770 
8AC52780 
8AC52790 
8AC52800 
8AC52810 



} • 



DATE 
EC NO. 



28FEB66 
415120 



PROG to 
PACE 



OBAC-e 
52 



DATE 
EC NO. 



28FEB66 
415120 



PROG ID 
PAGE 



08AC-0 
52* 



■1 



(<<(((((<(((((( ( 



(; ( 



{ ( 



( ( ( 



\ ^ \^ 



r 



c c 



< ( < < < 1 ( < < ( < 



< < 1 C C 1 ( 



rBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2196^55 
PACE 53 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 2N0 2310 



CROSS REFERCNCE LISTING 



SVISOL 


VALUE 


REFERENCES 


AREA 


4000 


0057, 0059. 005B, 0069, 005B,005D,005F, 0071, 0073 


CEGO 


00 75 


004F 


CENTR 


0070 




CEaFF 


005A 


0038, 005F 


CEON 


0058 


003A,0048 


CESW 


0066 


0044 


CHECK 


0068 




OS.i52 


0055 


0036,0030 


EDGE 


0072 




GONE 


0051 


00 3F 


HECK 


006A 




HOME 


0065 


0040 


NNNN 


7007 


0056 


NOIRD 


O05C 


0045, 005 2, 0o75, 00 75, 007 7,0078, 0079, 007A, 0078, 007C» 
00 70, 007E,007F, 0080, 008 1,0082, 00 83, 0084, 0085, 0085 t 
008 7,0088,008 9,0 08A,008B,OC8C,a08D,OOS£,008F,0090t 
0091, 0092, 0093, 0094, 0095, 0096, 009 7, 0098, 0099, 009A, 
0093,0090, 0090, 009E,009F, 00 AO,0OAl,O0A,:, 00 A3, 00A4, 
OCA5,OOA6,OOA7,OOA8,O0A9,0OAA,OOA8,OOAC,00AD,OOAE» 
OOAF, OOa 1,0082, 03 3, 008 «, 0065,00 86, 0067,0088,0089, 
OOBA,OO8B,00BC,0O3D,O03E,008F,O0C0,OOCl,O0C2,OOC3, 
O0C4,OOC5,OOC5,OOC7,O0C8,OOC9,OOCA,O0C8,O0CC 


0030 


GOOD 


0064 


READ 


C05C 




RETUR 


003A 


OOFE 


SftVe2 


0060 


0038,0049 


SAVe3 


0052 


00 3C 


SESBl 


0054 


0042,0043,0045 


STATU 


0067 


00 3E 


TA3LE 


0080 


0068,006C,Q06E 


TABOO 


0074 


00 5 A 


TERf 


0052 


004B 


riiT 


7035 


00 5 A 


WRITE 


005E 




wwww 


0813 


00 50 



ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 3R0 2310 



PART NO. 2196455 
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DATE 
EC NO. 



28FEB66 
415120 



PROG 10 
PACE 



OSAC-O 
53 







ABS 


8AC52820 




32BC 




ORG /36 


8AC52830 
8AC52840 








****** *******»*t^t*tt»*t»t»t**t»*»»*»*****«*^^t»t*t 8ACS2asa 




■ 4800 




AREA EOU /4800 3RD 2310 DISK 

» IF THIS PROG IS TO BE USED FOR A HACH 

* WITH A DIFF AREA CODE ALL THE LOCATIONS hhlCH 

* REFER TO THE LABEL AREA IN SYMBOL TABLE MUST 

* BE CHANGED 3Y HEX CORRECTION CARDS TO OBTAIN A 
» MODIFIED AUX 8-8 OBJECT DECK. SEE AUX C£ PROG 
» GENERATOR WRITE-UP FOR PROCEDURE. 


8ACS2860 
8AC52870 
SAC52880 
8AC52890 
8AC52900 
8AC52910 
8AC52920 








****** *«*t*t***»t*tt*****t»tt* ********** **»****»*»* 8AC52930 










8AC52940 










8AC52950 








♦ 3R0 2310 SKELETON PROGRAM 


8AC52960 








♦ (SEE AUX CE PROG GENERATOR 


8AC52970 








• » WRITE-UP FOR USE PRCCEDUREI 


8AC52980 








* *************«t****#t:9******* 


8AC52990 








* THIS PROG CAN NOT BE LOADED FROM PAPER TAPE 


8AC530OP 
8AC53010 
8AC53020 
8AC53030 
8AC53040 








» PURPOSE 


8AC53050 








• THE PURPOSE OF THIS PROGRAM IS 


8AC53060 








• TO PROVIDE A SKELETON PROGRAM 


8AC53070 








* UPON WHICH THE CE CAN WRITE AN 


8AC53080 








* AUX STORAGE PROGRAM. 


8AC5J090 
8AC53100 
8AC55110 








• GENERAL INSTRUCTIONS 


aAC53l20 








* CE SWITCH SETTINGS 


8AC53130 








V ♦ OOOOllll CE SERVICE STOP 


8AC53140 








• imUll TESPINATE PROGRAM 


8AC53150 








♦ ALL HTMER C3"&IN&TI0NS ARE STORED 


8AC53160 








* « AT THE LOCATION CESW FOR 


8AC53170 








» * POSSIBLE uSE BY THE CE TO 


8ACS3180 








♦ » CONTROL Mis PROGRAM 


8AC53190 

8AC53200 
8AC53210 








************** *^t»tit,it»tt:t*m *****»****»»*»**»» 


8AC53220 










8AC53230 










8AC53240 








*lBM»IBM»iBH*IBH*IBM»IBh*IS>'«IfcM*IBM»IPH*IBM»IBM*I 


8AC53250 








* CORRECTIONS FO* THE FOLLOklNG 27 « 


8AC53260 








* WORDS MUST BE "AUE IN THE CARD * 


8AC53270 








• NUMBERED X CF TrtIS AUX PROGRAMS * 


8AC53280 








» 7 CARD OBJECT DECK. • 


8AC53290 








♦IBM*IBM*IBM»16M»IBM»I8M»IE><«IBH»IBM»!BM»IBM»IBM*I 


8AC53300 










8AC53310 










8AC53320 










8AC53330 








• AUX PROG ENTRY POINTS 


8AC53340 








» «•»****•*»*••««•*«•»• 


8AC53350 










S)CS3360 








• 1ST PASS ENTRY 


8AC53370 








» »«»»*«*«.•.**•** 


8AC53380 




0035 


COIF 


LD CSH52 RESTOPE LOC NICE 


8AC53390 
8AC53400 




3037 


OOFO 


STO /35 • III AUX LOADER 


8AC53410 




0038 


C021 


LD CEOFF PLACE BRANCH 


8AC53420 
8AC534i3 




0039 


OOCA 


STO /04 • T3 RETUR LABEL 
• ALL BUT 1ST PASS ENTRY POINT 


8AC53440 
8AC53450 
3AC53460 
SAC53470 




003A 


0810 


RETUR XIO CEON SET CEVICE IN CE MODE 


SAC534S0 




003B 


6A2S 


STX 2 SAV£2*1 SAVE INDEX REGISTER 2 


8AC53490 




DATE 
EC NO. 


28FEB6fr 
41S120 




PROG 10 
PACE 


08AC-0 
53A 



1 



O < ( ( < t ( < ( < ( ( < ( < ( ( < ( ( ( 1 1 ( < ( ( ( ( 1 (. C 1 ( 



( ( ( 



\. 



I 



( ( 



( ' { i ( 



{ i 



f r 

\ \ 
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IBM MAINTENANCfc DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



AUX PROGRAM GENERATOR UTILITY PROGRAM 
AUX 3R0 2310 



PART NO. 219645S 
PAGE S4A 



003C 





6826 




srx 


3 


SAVE3+1 


0030 





0818 




XIO 




DSH52 


003E 





0028 




STO 




STATU 


003F 





EOll 


« 


AN3 




GONE 


00<.0 


00 


04000065 


STO 


L 


HOME 


0042 





0811 




XIO 




SE.NBI 


00*3 





EOlO 




ANO 




SENBI 


00«* 





0021 




STO 




CESH 


00»S 





FOOE 




E01 




SENBI 


3046 


00 


4C18005C 




BSC 


L 


NJTRO,* 


0048 





FOOF 




EQR 




CcON 


0049 


00 


4C180C60 




BSC 


I 


SAV£2,t- 


304B 


00 


CC000052 




LOO 


L 


TERM 


0040 


00 


OCOOOOFE 


* 
* 
• 

• 


STO 


L 


/OOFE 


0O4F 


00 


4CC00075 


8 SO 


L 


CEGO 








• 

♦IBM* IBM* IBM* 


r8H«IBH* 



D051 0300 

0052 OOOO 
3052 00 4C00005C 



0054 




0000 


0054 





OOFF 


3055 





0T60 


D056 





70 D7 


005T 





4F01 


0058 





OOFO 


0059 





4801 


305A 





7035 


005B 





4800 



005C 00 65000813 
005E 69A5 
005F 08FA 



3060 00 66000000 
3062 00 67000000 

0064 70AS 



SAVE INDEX REGISTER 3 
SENSE DEVICE STATUS 
SAVE DEVICE STATUS 
RtHDVE ALL DEVICE STATUS 

• CONO EXCEPT HOME INO. 
PI ACE HOME INDICATION HO 
SENSE CE PROG SW TO ACCUH 
BLOCK OUT PROG SEL SW 
SAVE C£ PROG SW SETTINGS 

8R TERMINATE PROGRAM 

BR SERVICE STOP 

SET TERMINATOR BR AT END 

• OF AUX CORE AS A SAFETY 

• PRECAUTION 

BR TO DO IT YOURSELF PROG 



BM*I8H«IBH*IBH*I8M*IBH*IBM»IBM*!8M*IBH*I 
CORRECTIONS FOR THE FOLLOWING 27 » 
WORDS MUSI BE HADE IN THE CARD * 
NUMBERED OF THIS AUX PROGRAMS * 
7 CARD OBJECT DECK. * 

8M*IBH4IBH»ieM*IBM«lBM*iaH»IBM*IBM*I8H*l 



*IBH*ISS«I 

* 

GONE DC /0800 CONST TO REMOVE ALL BUT 

• ^ * HOME INOICATER STATUS 
BSS E 

TERM 5SC -L NOTRD TERMINATOR BRANCH 

• 

• CONSTANTS AND/OR lOCC WORDS 
BSS E 

SENBI DC /OOFF TERMINATOR CONSTANT 

DC /0760 SENSE CE SM^ITCHES 

DSW52 DC NNNN 

OC /0701+AREA RESET DEVICE STATUS lOCC 

CEON DC /OOFO CE SERVICE STOP CONST 

DC /:001*AREm CE ON WORD 

CEOFF DC TTTT 

OC /0000+area ge off word 

• EXIT POINTS TO AUX LOAOER 

• 

TERMINATE EXIT POINT 
T.I WWWW 
J /04 

CEOFF REMOVE DEVICE FROM CE MODE 

NORMAL EXIT POINT 
L2 
13 

QOQO 
**«»**«»««* **t*«»*»««**r***»*»*»»*** 

THE FOLLOWING CONSTANTS AND lOCC 
WORDS HAS BEEN PLACED HERE TO AID 
TWE CE IN HIS PROGRAMMING EFFORT. 



NOTRD LDX 
STX 
XIO 

SAVE2 LDX 
SAVE3 tOX 

MDX 



DATE 
EC NO. 



28FEB66 
41SI20 



8AC53S00 

8AC53510 

8AC53520 

8AC53530 

8AC53540 

8ACS3SS0 

8AC53560 

8AC53570 

8 AC 535 80 

8AC53590 

8«C53600 

8ACS3610 

8AC53620 

8AC53630 

8AC53640 

8AC53650 

8AC53660 

8AC53670 

8AC53680 

8AC53690 

8AC53700 

8AC53710 

8ACS3720 

8AC53730 

8AC53740 

8AC53750 

8AC53760 

8AC53770 

8AC53780 

8AC53790 

8AC53000 

8AC53810 

8AC53820 

8AC53S30 

8AC53840 

8AC5385a 

8AC53360 

8AC53870 

8AC538SQ 

8AC53890 

8AC53900 

8AC53910 

8 ACS 3920 

8AC53930 

8AC53940 

8AC53953 

aAC53960 

8AC53970 

8AC53980 

8AC53990 

8ACS4000 

8AC54010 

8AC54020 

eAC54030 

8AC54040 

8AC54050 

8AC54060 

8AC54070 

8AC540S0 

8AC54090 

8AC54100 

8AC54110 

8AC54120 

8AC54130 

8AC54140 

8AC54150 

8ACS4160 

8AC54170 



PROG 10 
PAGE 



9065 0000 

0066 0000 

0066 0030 

0067 0000 



0068 

0069 



006A 
006B 



0080 
4E80 



0074 
4E80 



306C 0080 
D050 4E00 



0O6E 0080 
306F 4000 



0070 0001 

0071 4C00 

0072 0001 

0073 4C04 

0074 0000 



0075 70E6 



08AC-0 
54 



00T6 


70E5 


0077 


70E4 


0078 


70E3 


0079 


70E2 


007A 


70EI 


007B 


70E0 


DATE 


28FEB6'6 


FC NO. 


415120 



CAUTION 

THE INSTRUCTION FOLLOWING A READ OR WRITE 
XIO MUST BE A CONT.*0L XIO. IF A USEFULL 
CONTROL XIO IS NOT DESIRED YOU MAY REFER 
TO THE LOCATION LABELED HECK . THIS 
WILL GIVE YOU A READ BACK CHECK WITH A 
WORD COUNT OF ZERO. 



* 

* 
* 

HOME 

* 

CESW 
STATU 

• 
CHECK 

* 
* 
HECK 

• 

»IBH»IBM*lBM*IBM»IBM«lBM«IBM*IBM*IB>1»I8M*I6M»IBM*I 

* CORRECTIONS FOR THE FOLLOWING 27 • 

* WORDS MUST BE HADE IN THE CARD • 

• NUMBERED 1 OF THIS AUX PROGRAMS » 

• 7 CARD OBJECT DECK. * 

*I8H*I8M*IBM*lBH5IBM»S3H*IBH*ieH»IBM»IBM«IBM*IBH»I 

* 

READ OC TABLE REFERS TO SECTOR COUNT 
OC /0600+AREA lOCC INIT READ 



OC 

BSS 

DC 

DC 

OC 
DC 



DC 
DC 







TABLE 
/0680+AREA 



TABOO 

/0680*AREA 



IF THIS LOC IS ZERO THE 
» CARRIAGE IS NOT HOME 

CE PROGRAM SW SETTING 
DEVICE STATUS WORD 

REFERS TO SECTOR COUNT 
lOCC INIT READ CHECK 
FROM SECTOR 

REFERS TO SECTOR COUNT 
lOCC INIT READ CHECK 
FROM SECTOR 
REFERRING TO A TABLE WITH 
WORD COUNT OF fERO 



DC 
OC 



* 
WRITE 

CENTR DC 
DC 

EDGE DC 
DC 
t 
TABOO DC 



FROM SECTOR 



8ACS4iaO 
8AC54190 
8ACS4200 
8AC54210 
8AC54220 
8AC54230 
8AC54240 
8AC54250 
SAC5426a 
a AC 542 70 
8AC542eO 
8AC54290 
8AC54300 
8AC54310 

TAB 8AC54320 
8AC5433a 
8AC54340 
8AC54350 

TAB 8ACS43bO 
eAC54370 
8AC54380 
8AC54390 
aAC54400 
8AC54410 
8AC54420 
8AC54430 
8AC54440 
8AC54450 
8AC54460 
8AC54470 
8AC54480 
8AC54490 
SACS4503 
8AC54510 
TAB 8AC54520 
8AC54530 



TABLE 
/05C0+AREA 



/OOOi 



6AC54540 
8AC54550 
REFERS TO SECTOR COUNT TAB 8AC54S60 



IQCC 
FROM 



INIT WRITE 
SECTOR 



1 STEP TOWARDS CENTER 



/0<.0O»AREA lOCC CONTROL WORD 



/OOOI 
/0404*APEA 





I STEP TOWARDS EDGE 
lOCC CONTROL WDRD 



STARTING POINT OF YOUR 



WD COUNT OF DO NOT ALTE 

* 

« 
« 
« 

CEGO 

* 



THIS IS THE 

PROGRAM. 



rox 



OF YOUR 
SAVE2 



jNOTRD 1ST LOC 
BRANCH TO LOCATION 
- EXITING FROM YOUR PR.OGRAM, 
MDX NOTRO 
MOX NOTRO 
MDX NOTRO 
MOX NOTRO 
MOX NOTRO 
MOX NOTRO 



PROGRAM 
WHEN 



8AC545T0 

aAC54580 

8AC54590 

8AC54600 

8AC54610 

8AC54620 

8ACS4630 

8Ar.5464a 

8AC546S0 

8AC54660 

3AC54670 

8AC54680 

eAC54690 

8AC54700 

8AC54710 

8ACS4T20 

8ACS4730 

8AC 54740 

8AC54750 

8AC54760 

8AC54770 

8AC54780 

8AC54790 

SAC54800 

8AC548ia 

eAC548?0 

8AC54330 

8AC54340 

8AC54850 



T'ROG 10 
»>ACE 



1 f 

i 

r 



^1 



OSAC-O 
S4A 






\ ' 



t; < ( < ( ( ( ( ( ( ( < ( 1 < < ( ( ((((((((((( t ( t t ( 



r 



c ( c cr { (~ f ( o C c r..-T) (" c o o o r 



( (■ 






IBH MArNTENANCE DIAGNOSTIC PROGRAM \FOR THE 1800 SYSTEM 



AUX PROCRAH GENERATOR UTILITV PROGRAM 
AUX 3R0 2310 ' 



007C 





700F 


0070 





700E 


OOTE 





7000 


007F 





70DC 


0081) 





700B 


0081 





700A 


0082 





7009 


008S 





7008 


0084 





7007 


ooas 





7006 


0086 





7005 



0097 





7004 


0088 





7003 


0089 





7002 


OOCA 





7001 


0088 





7000 


ooac 





70CF 


0080 





7CCE 


008E 





70C0 


008F 





70CC 


0090 





70CB 


0091 





70CA 


0092 





70C9 


0093 





70C8 


0094 





70C7 


0095 





70C6 


0096 





70C5 


0097 





70C4 


0098 





70C3 


0099 





70C2 


009A 





70CI 


0098 





70C0 


009r. 


i 


70aF 


0090 





70BE 


009E 





70B0 


009F 





70BC 


OOAO 





70BB 


OOAl 





70 BA 



HDX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


HOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NUTRO 



IBM»IBH*IBH*IBM»IBM*I8H»1BH»IBM»IBH»IBM*IBH*IBH*1 
CORRECTIONS FOR THE FOLLOWING 27 * 
WORDS MUST BE HADE IN THE CARO * 

NUMBERED 2 OF THIS AUX PROGRAMS * 

7 CARO OBJECT DECK. • 

IbH»IBH»IEH*lBM*I8H»I61*IBH»IB«»IB,1*IBH*I8M*IBH*I 



MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


HDX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


hOX 


NOTRO 


MDX 


NOTRO 


MDX 


NOTRO 


MOX 


NOTRO 


HDX 


NOTRO 


MDX 


NOTRO 


HDX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 


MOX 


NOTRO 



IBM»IBM»|BM»IBM»IBM»IBM»IBM*IBH*IBM*IBH»IBM*IBH*I 
CORRECTIONS FOR THE FOLLOWING 27 • 
WOKO, MUST BE MADE IN THE CARO • 
NUMBERED 3 OF THIS AUX PROGRAMS • 
7 CARD OBJECT DECK. • 

lBM*IBM»IBM»IBM»IBH*IBM»lBH*IBH*IBM»IBH*IBM*iaM*I 



0OA2 


70B9 


MOX 


NOTPO 


00A3 


70B8 


MOX 


NOTRO 


0QA4 


70B7 


fOX 


NOTRO 


OOAS 


70B6 


MDX 


NOTRO 


00A6 


70BS 


MOX 


NOTRO 


00a7 


70B4 


HOX 


NOTRO 


OOAS 


70B3 


MOX 


NOTRO 


0OA9 


7082 


MDX 


NOTRO 


OOAA 


7081 


MOX 


NOTRO 


OOAB 


70 BO 


HOX 


NOTRO 


DATE 


2eFEB66 






EC NO. 


41S120 
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8ACS4860 
8AC54870 
8AC54880 
SAC 54890 
8ACS4900 
SAC 54910 
8AC54920 
8ACS4930 
8AC54940 
8ACS4950 
8ACS4960 
8AC54970 
8AC54980 
8AC54990 
8AC55000 
8AC55010 
8AC5S020 
8ACS5030 
8AC55040 
8ACS5050 
8AC55060 
8 ACS 50 70 
8AC5S080 
SAC55090 
8AC55I00 
8AC55110 
8ACS5120 
8AC55130 
8ACSS140 
8AC5St50 
8AC55160 
8AC55170 
8AC55180 
8ACSS190 
8AC55200 
8AC55210 
8AC55220 
8AC55230 
8AC55240 
8ACS5250 
SACS5260 
8AC55270 
8AC55280 
8AC55290 
8AC55300 
8AC55310 
8AC5S320 
8ACS5330 
8AC55340 
SAC5S350 
-8AC55360 
8AC55370 
8AC55380 
8AC55390 
eACSS400 
8ACS54I0 
8AC5S420 
8AC55430 
8ACS5440 
8AC55450* 
8ACS5460 
8AC55470 
8AC5S480 
8AC55490 
8ACS550O 
8AC5SS10 
8ACS5520 
8ACS5S30 



-% T 



^ n 



PROC iO 
PACE 



08AC-0 

ss 



o 



IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SrSTEN 

AUX PROGRAM GENERATOR UTILITV PROGRAM 
AUX 3R0 2310 



OOAC 70AF 

OOAO 70AE 

DOAE 70A0 

OOAF 70AC 



OOBO 0050 



OOBl 
00B2 
00B3 
0084 
00B5 
0086 
00B7 
0038 
3089 
OOBA 
OOBB 
OGBC 



OOBO 

OOBE 

008F 

OOCO 

OOCl 

00C2 

O0C3 

00C4 

DOC 5 

0OC6 

00C7 

0OC8 

00C9 

OOCA 

OOCB 

OOCC 

OOCO 

OOCE 

OOCF 

0000 

0001 

0002 

0003 

0O04 

0005 

0006 

00D7 



























































DATE 
EC NO. 



70AA 
70A9 
70A8 
70A7 
70A6 
70A5 
70A4 
70 A3 
70A2 
70AI 
70A0 
709F 



709E 

7090 

709C 

709B 

709A 

7099 

7098 

7097 

7096 

7095 

7094 

7093 

7092 

7091 

7090 

708F 

7030 

702F 

702E 

7020 

702C 

7028 

702A 

7029 

7028 

7027 

7026 



28FEB66 
41S120 



HOX 
MDX 
MOX 
MDX 

* 
* 

TABLE DC 

• 

HOX 
MOX 
MOX 
HOX 
MOX 
HOX 
MOX 
MOX 
HOX 
HOX 
MOX 
MDX 
• 

»IBM»IB«»I 

* 
« 

»I8H*IBH*I 

MOX 

HDX 

HOX 

MOX 

MOX 

MDX 

HOX 

HOX 

HOX 

HOX 

HOX 

HDX 

HDX 

HDX 

HOX 

MDX 

HOX 

HOX 

HOX 

HOX 

HDX 

HOX 

HOX 

HOX 

HDX 

HOX 

MOX 



NOTRO 
NOTRO 
NOTRO 
NOTRO 

PLACE WORD COUNT FOR THE DESIRED 
TABLE LENGTH IN THE FOLLOWING WORD. 
DO NOi EXCEED THE PRESENT COUNT 
OF 80 WORDS FOR THIS LJCATION, AS IT 
IS AGAINST THE RULES TO READ OR 
WRITE BEyONO THE ENO OF AUX MEMORr. 
80 PLACE WORD COUNT HERE 

NOTRO 
NOTRO 
NOTRO 
NOTRO 
NOTRO 
NOTRO 
NOTRO 
NOTRO 
NOTRO 
NOTRO 
NOTRO 
NOTRO 



8H*IBM»!BH»IBM*IBM*1BM»I8M»IBM»IBH»I6M*I 
CORRECTIONS FOR THE FOLLOWING 27 • 
WORDS MUST BE MADE IN Tr!E CARD » 
NUMBERED 4 OF THIS AUX PROGRAMS * 
7 CARD OBJECT DECK. • 

BH»IBH»IBH»IBfl*IBM»IBM*lBM»lBM*lBH*IBM»l 



NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

NOTRO 

/OOFC 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 

/OOFE 



IBM»IBH*IBM»IBM*IBM»IBM»lflM*|BM*lBM*IBH*IBH*I8M»l 
CORRECTIONS FOR THE FOLLOWING 38 • 
WORDS HUST BE MADE IN THE CARO ♦ 
NUMBERED 5 OF THIS AUX PROGRAMS • 



V 
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8AC5S540 

8ACS5550 

8AC55560 

8AC5SS70 

8AC55580 

8AC55590 

8AC55600 

8AC$S610 

8ACS5620 

8ACSS630 

8 ACS 5640 

8AC556S0 

8ACSS660 

8AC5S670 

8ACS56a0 

8AC55&90 

8AC55700 

8AC55710 

BACS5720 

8AC55730 

8AC5S740 

8ACSS7S0 

eAC55760 

8AC55770 

8ACSS780 

8AC55790 

8AC55800 

8AC55810 

8AC55820 

8ACS5S30 

8AC55840 

8AC5S850 

8ACS5860 

8ACS5S70 

8ACSS880 

8AC55890 

8AC55900 

8AC55910 

8ACS5920 

8ACSS930 

8AC55940 

8ACS59S0 

8AC5S960 

8AC55970 

8AC55980 

8AC5S990 

8AC56000 

8AC5601O 

8ACS6020 

BACSbOSO 

8AC56040 

8ACS6050 

8AC56060 

8AC56070 

8ACS&080 

8AC56090 

8AC5&100 

8AC56110 

8ACS6I20 

6AC56130 

SACS6140 

8AC56150 

8AC56160 

SAC 56170 

SACS6180 

8AC56190 

8ACS6200 

8ACS6210 



PROG ID 
PACE 



08AC-e 
55* 



"J 



(. < 



( 



r 



f 



C ( ( ( ( ( ( ( ( 

( , ( 1 (■ ( C. ( '• t c 



IBH MAINTENANCE 01 AGNOSTIC PROCRAH FOR THE 1800 SYSTEH 



AUX PROGRAM GENERATOR UTILITY PROCRAH 
AUX 3R0 2)10 



♦ 7 CARD OSJECT DECK. ♦ 

♦IBM»IBM*IBH»IBM*IBH*IBH*IBH»IBH»IBM*ISH*IBH*I8H*I 

* 

* 

HOX /OOFE 

HOX /OOFE 

HOX /OOFE 

MOX /OOFE 

HOX /OOFE 

MOX /OOFE 

HOX /OOFE 

HOX /OOFE 

HOX /OOFE 

MOX /OOFE 

MOX /COFE 

HOX /OOFE 

MOX /OOFE 

MOX /OOFE 

MOX /OOrE 

HOX /OOFE 

MOX /OOFE 

HOX /OOFE 

MOX /OOFE 

HOX /OOFE 

HOX /OOFE 

MDX /OOFE 

HOX /OOFE 

MOX /OOFE 

HOX /OOFE 

HOX /OOFE 

HOX /OOFE 

MOX /OOFE 

HOX /OOFE 

MOX /OOFE 

HOX /OOFE 

HOX /OOFE 

HDX /OOFE 

MOX /OOFE 

HOX /OOFE 

MOX /OOFE 

MDX /OOFE 

HOX /OOFE 
•*******»*****»*«*****j* *»»***•»«*•* *************** 
• 

QQOQ ECU /D GO TO LOADER AT /D 

NNNN EOU /7007 FOR CARD LOADER AT /35 

WWWW EQU /0813 SET IN LOADER AT /04 

TTTT EOU /7000*RETUR-/*-l TMi i IS EQUAL TO 

♦ ' THfc BRANCH FROM THE LOADER 

• TO RETUR IN THIS PROGRAM. 

END »-l END CARD NEVER USED 



0008 





7025 


0009 





702* 


OODA 





7023 


OODB 





7022 


OOOC 





7021 


0000 





7020 


OOOE 





70 IF 


OOOF 





701E 


OOEO 





7010 


OOEl 





701C 


0OE2 





7018 


90E3 





701A 


0OE4 





7019 


0OE5 





7018 


00E6 





7017 


00E7 





7016 


00E8 





7015 


DOE 9 





7014 


OOEA 





7013 


OOEB 





7012 


OOEC 





7011 


OOEO 





7010 


OOEE 





700F 


OOEF 





700E 


OOFO 





7000 


OOFl 





700C 


00F2 





7008 


00f3 





7Q0A 


OOF* 





7009 


OOFS 





7008 


0OF6 





7007 


OOF 7 





7006 


OOFS 





7005 


O0F9 





7004 


OOFA 





7003 


OOFB 





7002 


OOFC 





7001 


OOFO 





7000 


0000 






7007 






0813 






703S 







OOFE 



OOFD 



DATE 
EC NO. 



28FEB66 
415120 



( ( ( ( ( 
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8AC56220 

eAC5&230 

8AC56240 

8ACS6250 

8AC56260 

8ACS6270 

8AC56280 

8AC56290 

8ACS6300 

8AC5•^3lO 

8AC56320 

8AC56330 

8AC56340 

8ACS63S0 

8AC56360 

SAC56370 

8AC56380 

8ACS6390 

8AC56400 

8AC56410 

8ACS6420 

8AC5&430 

8AC5&440 

8ACS&450 

8AC56460 

8AC56470 

BAC56480 

8ACS6490 

8AC56500 

8AC55510 

eACS6S2C 

8AC56530 

8ACS6540 

8AC5e>550 

8AC56S60 

8AC56S70 

8ACS6580 

8AC56590 

6ACS6600 

8AC566I0 

8AC56620 

8ACS6630 

8AC56640 

8ACS6650 

8AC56660 

eAC56670 

eAC56680 

eACS6690 

8AC56700 

8AC56710 

8AC56720 

8AC56730 



PROG ID 
PAGE 



V 



(^ C ( (. C ( 1 ( ( ( ( ( ( C ( 
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